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 / 00366.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  572 b   |  21 lines
  1. on exitFrame
  2.   global gFirstNum, gRandom, gpag, gSolo, gRed, randomizeList
  3.   handlesprite()
  4.   set gSolo to 0
  5.   set gpag to 1
  6.   set gRandom to getAt(randomizeList, random(count(randomizeList)))
  7.   if gFirstNum <> 0 then
  8.     repeat with i = 1 to 8
  9.       if line integer(gFirstNum) + i - 1 of field "grooveMem" <> EMPTY then
  10.         set mNum to "g" & integer(gFirstNum) + i - 1
  11.         set the memberNum of sprite (29 + i) to the number of member mNum
  12.         updateStage()
  13.         next repeat
  14.       end if
  15.       exit repeat
  16.     end repeat
  17.   end if
  18.   go(3)
  19.   playRandom()
  20. end
  21.