home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / grooveM.dxr / 00494.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.2 KB  |  46 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("stop")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global dentro
  19.   if (IKGetCurrentBeat() <> -1) or ((field "fieldMarkerSeq" <> EMPTY) and not (the visible of window "help")) then
  20.     set x to the mouseH
  21.     set y to the mouseV
  22.     if not (((x >= 111) and (x <= 168) and (y >= 195) and (y <= 216)) or ((x >= 111) and (x <= 168) and (y >= 262) and (y <= 284)) or ((x >= 98) and (x <= 181) and (y >= 235) and (y <= 242))) then
  23.       set dentro to 1
  24.       repeat while the mouseDown
  25.         set the memberNum of sprite 36 to the number of member "HredSeq"
  26.         set the ink of sprite 36 to 36
  27.         updateStage()
  28.       end repeat
  29.     else
  30.       set dentro to 0
  31.     end if
  32.   end if
  33. end
  34.  
  35. on mouseUp
  36.   global dentro
  37.   if dentro and not (the visible of window "help") then
  38.     set the memberNum of sprite 36 to the number of member "redButton"
  39.     set the ink of sprite 36 to 8
  40.     updateStage()
  41.     put EMPTY into field "fieldState"
  42.     clickRedSeq()
  43.   end if
  44.   set the editable of member "fieldBpm" to 0
  45. end
  46.