Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/grooveM.dxr/00343.ls

Text File | 1999-09-17 | 5.7 KB | 120 lines

on showGrooveMessage
  if objectp(the mouseMember) then
    set x to the mouseH
    set y to the mouseV
    if (x >= 249) and (x <= 390) and (y >= 169) and (y <= 310) and not ((x >= 292) and (x <= 348) and (y >= 196) and (y <= 216)) and not ((x >= 280) and (x <= 360) and (y >= 236) and (y <= 242)) and not ((x >= 292) and (x <= 348) and (y >= 264) and (y <= 284)) then
      tell window "help"
        go("grooveM22")
      end tell
    else
      if ((x >= 104) and (x <= 117) and (y >= 93) and (y <= 106)) or ((x >= 127) and (x <= 140) and (y >= 65) and (y <= 88)) or ((x >= 153) and (x <= 166) and (y >= 40) and (y <= 53)) or ((x >= 182) and (x <= 195) and (y >= 18) and (y <= 31)) then
        tell window "help"
          go("grooveM2")
        end tell
      else
        if (x >= 35) and (x <= 81) and (y >= 155) and (y <= 197) then
          tell window "help"
            go("grooveM1")
          end tell
        else
          if (x >= 22) and (x <= 78) and (y >= 212) and (y <= 269) then
            tell window "help"
              go("grooveM3")
            end tell
          else
            if (x >= 35) and (x <= 81) and (y >= 283) and (y <= 325) then
              tell window "help"
                go("grooveM8")
              end tell
            else
              if (x >= 489) and (x <= 523) and (y >= 408) and (y <= 442) then
                tell window "help"
                  go("grooveM12")
                end tell
              else
                if (x >= 592) and (x <= 611) and (y >= 454) and (y <= 471) then
                  tell window "help"
                    go("pref")
                  end tell
                else
                  if (y >= 454) and (y <= 471) and (x >= 615) and (x <= 634) then
                    tell window "help"
                      go("quit")
                    end tell
                  else
                    if (x >= 567) and (x <= 633) and (y >= 433) and (y <= 446) then
                      tell window "help"
                        go("goMix")
                      end tell
                    else
                      if (x >= 567) and (x <= 633) and (y >= 413) and (y <= 426) then
                        tell window "help"
                          go("goSeqfromGroove")
                        end tell
                      else
                        if (x >= 567) and (x <= 633) and (y >= 372) and (y <= 387) then
                          tell window "help"
                            go("goMenu")
                          end tell
                        else
                          if ((y >= 52) and (y <= 60) and (x >= 565) and (x <= 573)) or ((y >= 52) and (y <= 60) and (x >= 626) and (x <= 634)) then
                            tell window "help"
                              go("grooveM18")
                            end tell
                          else
                            if ((x >= 295) and (x <= 344) and (y >= 42) and (y <= 92)) or ((x >= 295) and (x <= 344) and (y >= 387) and (y <= 437)) or ((x >= 416) and (x <= 466) and (y >= 91) and (y <= 141)) or ((x >= 416) and (x <= 466) and (y >= 336) and (y <= 386)) or ((x >= 174) and (x <= 224) and (y >= 91) and (y <= 141)) or ((x >= 174) and (x <= 224) and (y >= 336) and (y <= 386)) or ((x >= 467) and (x <= 517) and (y >= 216) and (y <= 266)) or ((x >= 123) and (x <= 173) and (y >= 216) and (y <= 266)) then
                              tell window "help"
                                go("grooveM7")
                              end tell
                            else
                              if (x >= 508) and (x <= 563) and (y >= 50) and (y <= 63) then
                                tell window "help"
                                  go("grooveM19")
                                end tell
                              else
                                if (x >= 111) and (x <= 136) and (y >= 402) and (y <= 426) then
                                  tell window "help"
                                    go("grooveM11")
                                  end tell
                                else
                                  if (x >= 584) and (x <= 634) and (y >= 66) and (y <= 367) then
                                    tell window "help"
                                      go("grooveM13")
                                    end tell
                                  else
                                    if (x >= 568) and (x <= 583) and (y >= 66) and (y <= 367) then
                                      tell window "help"
                                        go("grooveM14")
                                      end tell
                                    else
                                      if (x >= 508) and (x <= 563) and (y >= 67) and (y <= 79) then
                                        tell window "help"
                                          go("keep")
                                        end tell
                                      else
                                        if (the mouseMember = member 1000 of castLib 1) or (the mouseMember = member 2 of castLib 1) then
                                          tell window "help"
                                            go("start")
                                          end tell
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end