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 / 00350.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  817 b   |  33 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("grooveM5")
  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 gOn, gPath, gSync, gFirstClick
  19.   if gOn and not (the visible of window "help") then
  20.     if not gSync or (gSync and gFirstClick) then
  21.       set gFirstClick to 0
  22.       set spriteNum to the clickOn
  23.       set traccia to spriteNum - 40
  24.       set temp to chars(the name of member the memberNum of sprite 12, 2, length(the name of member the memberNum of sprite 12))
  25.       if integerp(integer(temp)) then
  26.         puppetSprite(12, 0)
  27.       end if
  28.       clickControlTrack(traccia, spriteNum)
  29.     end if
  30.   end if
  31.   set the editable of member "fieldBpm" to 0
  32. end
  33.