home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / Pref.dxr / 00081.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  839 b   |  36 lines
  1. on startMovie
  2.   global gStop, gReturn, gBlue, randomizeList
  3.   handlesprite()
  4.   setMonitor()
  5.   oldVar()
  6.   set gBlue to 151
  7.   if randomizeList <> [] then
  8.     repeat with i = 1 to 4
  9.       set m to "rand" & i
  10.       put getAt(randomizeList, i) into field m
  11.       set the textFont of member m to "IK10"
  12.       set the textSize of member m to 13
  13.       set the foreColor of member m to gBlue
  14.     end repeat
  15.   else
  16.     repeat with i = 1 to 4
  17.       set m to "rand" & i
  18.       put " " into field m
  19.     end repeat
  20.   end if
  21.   if word 1 of gReturn <> "vMix" then
  22.     set gStop to 0
  23.   end if
  24. end
  25.  
  26. on stopMovie
  27.   if the optionDown or (the keyCode = 53) or (charToNum(the keyPressed) = 27) then
  28.     cursor(4)
  29.     IKSynthStop()
  30.     IKStop()
  31.     closeXLib("Xtras\IKTrack.X32")
  32.     closeXLib("Xtras\Fileio.X32")
  33.     closeXLib("Xtras\FileUtil.X32")
  34.   end if
  35. end
  36.