home *** CD-ROM | disk | FTP | other *** search
/ GQ - Louise, World Cup, …remy Clarkson, Armageddon / GQCD.iso / files / menu.dxr / 00001.ls next >
Encoding:
Text File  |  1998-05-21  |  1.1 KB  |  36 lines
  1. global gGoFlag, gCursorIndex, greturnmovie, gvideo, gCustompath, gSoundObj, gMasterObj, gMyMovie
  2.  
  3. on startMovie
  4.   set the volume of sound 2 to 127
  5.   autoUnloadMovie(gMasterObj)
  6.   autoLoad(gMasterObj, 29, 271)
  7.   set the actorList to []
  8.   append(the actorList, gSoundObj)
  9.   playSoundTrack(gSoundObj, "menu", 1, 255)
  10.   set greturnmovie to the movieName
  11.   set gvideo to "arma.icv"
  12.   set gCursorIndex to the memberNum of member "myCursor"
  13.   set gGoFlag to 0
  14.   repeat with i = 1 to 3
  15.     set myMember to getAt(["largeRock", "mediumRock", "smallRock"], i)
  16.     set myTargetG to getAt(["trail.PCT", "game.PCT", "abort.PCT"], i)
  17.     set myPos to point(640 / 4 * i, 240)
  18.     set mySound to getAt(["lEX", "mEX", "sEX"], i)
  19.     set myMovie to getAt(["Movie5", "Intro", "menuMAIN"], i)
  20.     set newRock to new(script "asteroidScript", myMember, myPos, mySound, myTargetG, myMovie)
  21.   end repeat
  22. end
  23.  
  24. on goMovie whichMovie
  25.   set gMyMovie to whichMovie
  26.   go("safe")
  27. end
  28.  
  29. on playSound whichChannel, whichSound
  30.   puppetSound(whichChannel, 0)
  31.   puppetSound(whichChannel, whichSound)
  32. end
  33.  
  34. on stopMovie
  35. end
  36.