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 / 00646.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  738 b   |  35 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("mix1")
  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 mouseUp
  18.   global gStyle, gAnim
  19.   if not (the visible of window "help") then
  20.     if gStyle <> 0 then
  21.       set st to "s" & gStyle
  22.       set the memberNum of sprite (1 + gStyle) to the number of member st
  23.       updateStage()
  24.     end if
  25.     set gStyle to the clickOn - 1
  26.     set gAnim to 48
  27.     repeat with i = 49 to 120
  28.       set the visible of sprite i to 0
  29.     end repeat
  30.     put "000      1" into field "fieldBarBeat"
  31.     clickStyle()
  32.   end if
  33.   set the editable of member "fieldBpm" to 0
  34. end
  35.