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 / 00627.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.1 KB  |  43 lines
  1. on createVariableMix
  2.   global gStyle, gPlaySong, gCont, gList, gRand, gRadio, gFade, gAnim
  3.   set gStyle to 0
  4.   set gPlaySong to 0
  5.   set gCont to 0
  6.   set gList to 0
  7.   set gRand to 0
  8.   set gRadio to 0
  9.   set gFade to 0
  10.   set gAnim to 0
  11. end
  12.  
  13. on createListMix
  14.   global durationList, randomList
  15.   set durationList to []
  16.   append(durationList, the number of lines in field "fieldStyle1" * 8)
  17.   append(durationList, the number of lines in field "fieldStyle2" * 8)
  18.   append(durationList, the number of lines in field "fieldStyle3" * 8)
  19.   append(durationList, the number of lines in field "fieldStyle4" * 8)
  20.   set randomList to []
  21. end
  22.  
  23. on handleSpriteMix
  24.   global gStyle, durationList
  25.   repeat with i = 2 to 5
  26.     puppetSprite(i, 1)
  27.   end repeat
  28.   puppetSprite(24, 1)
  29.   repeat with i = 43 to 44
  30.     puppetSprite(i, 1)
  31.   end repeat
  32.   puppetSprite(48, 1)
  33.   puppetSprite(39, 1)
  34.   repeat with i = 6 to 9
  35.     puppetSprite(i, 1)
  36.     set the memberNum of sprite i to the number of member "d22"
  37.     updateStage()
  38.   end repeat
  39.   repeat with i = 49 to 120
  40.     set the visible of sprite i to 0
  41.   end repeat
  42. end
  43.