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 / 00642.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.0 KB  |  48 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("mix6")
  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.   if not (the visible of window "help") then
  19.     repeat while the mouseDown
  20.       set the memberNum of sprite 41 to the number of member "HnewMix"
  21.       updateStage()
  22.     end repeat
  23.   end if
  24. end
  25.  
  26. on mouseUp
  27.   global gStyle, gPlaySong, gPath, gOnSynth
  28.   if not (the visible of window "help") then
  29.     set the memberNum of sprite 41 to the number of member "newMix"
  30.     updateStage()
  31.     if IKGetCurrentBeat() <> -1 then
  32.       if gOnSynth then
  33.         IKSynthStop()
  34.         set gOnSynth to 0
  35.       end if
  36.       IKStop()
  37.       IKFunction()
  38.       set gPlaySong to 0
  39.       set sN to "s" & gStyle
  40.       set the memberNum of sprite (gStyle + 1) to the number of member sN
  41.       updateStage()
  42.     end if
  43.     set the randomSeed to the timer
  44.     createSong()
  45.   end if
  46.   set the editable of member "fieldBpm" to 0
  47. end
  48.