home *** CD-ROM | disk | FTP | other *** search
/ GQ - Louise, World Cup, …remy Clarkson, Armageddon / GQCD.iso / files / modlmain.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1998-05-21  |  864 b   |  42 lines
  1. global gMasterObj, gSoundObj, gMenuObj, gSelectedPicture, gPicIndex, gStripMemory, gScroller
  2.  
  3. on startMovie
  4.   autoUnloadMovie(gMasterObj)
  5.   clearActorList()
  6.   set gStripMemory to the locH of sprite 2
  7.   set gPicIndex to the memberNum of member "closeup.PCT" - 1
  8. end
  9.  
  10. on clearActorList
  11.   set the actorList to []
  12.   append(the actorList, gSoundObj)
  13.   playSoundTrack(gSoundObj, "LENNY", 1, 255)
  14.   init(gMenuObj, 7, "1stmenu.00000")
  15. end
  16.  
  17. on setUpStrip
  18.   set the locH of sprite 2 to gStripMemory
  19.   set the locV of sprite 2 to 434
  20. end
  21.  
  22. on selectPicture
  23.   set gStripMemory to the locH of sprite 2
  24.   clearActorList()
  25.   autoNotPuppet(gMasterObj, 2, 7)
  26.   go("display")
  27. end
  28.  
  29. on displayPicture
  30.   puppetSprite(8, 1)
  31.   set the memberNum of sprite 8 to gPicIndex + gSelectedPicture
  32. end
  33.  
  34. on reset
  35.   puppetSprite(8, 0)
  36.   go("gallery")
  37. end
  38.  
  39. on stopMovie
  40.   set the actorList to []
  41. end
  42.