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 / 00367.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.3 KB  |  37 lines
  1. on exitFrame
  2.   global gFirstNum, gReturn, gGrooveSel, gOnSynth
  3.   handlesprite()
  4.   writeFieldGroove()
  5.   if gOnSynth then
  6.     set the visible of sprite 52 to 1
  7.     set the visible of sprite 51 to 0
  8.   else
  9.     if windowPresent("synth") then
  10.       set the visible of sprite 51 to 1
  11.       set the visible of sprite 52 to 0
  12.     end if
  13.   end if
  14.   if gFirstNum <> 0 then
  15.     repeat with i = 1 to 8
  16.       if line integer(gFirstNum) + i - 1 of field "grooveMem" <> EMPTY then
  17.         set mNum to "g" & integer(gFirstNum) + i - 1
  18.         set the memberNum of sprite (29 + i) to the number of member mNum
  19.         updateStage()
  20.         next repeat
  21.       end if
  22.       exit repeat
  23.     end repeat
  24.     if gGrooveSel then
  25.       set firstNum to integer(chars(the name of member the memberNum of sprite 30, 2, length(the name of member the memberNum of sprite 30)))
  26.       set lastNum to integer(chars(the name of member the memberNum of sprite (28 + i), 2, length(the name of member the memberNum of sprite (28 + i))))
  27.       if (gGrooveSel >= firstNum) and (gGrooveSel <= lastNum) then
  28.         puppetSprite(12, 1)
  29.         set nS to "h" & gGrooveSel
  30.         set the memberNum of sprite 12 to the number of member nS
  31.         set the loc of sprite 12 to the loc of sprite (29 + (gGrooveSel - firstNum + 1))
  32.       end if
  33.     end if
  34.   end if
  35.   set gReturn to EMPTY
  36. end
  37.