home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / jscript / yrmovie.dcr / 00007.ls < prev    next >
Encoding:
Text File  |  1996-11-14  |  1002 b   |  58 lines
  1. global gGreenMonster, gPinkMonster, gGreenClickNum, gPinkClickNum, gWhichScreen
  2.  
  3. on startMovie
  4.   puppetSprite(13, 1)
  5.   puppetSprite(20, 1)
  6.   set gGreenMonster to 1
  7.   set gGreenClickNum to 0
  8.   set gPinkMonster to 0
  9.   set gPinkClickNum to 0
  10.   set gWhichScreen to 1
  11. end
  12.  
  13. on returnToIt
  14.   global lastspot
  15.   puppetSound("WaitLoop")
  16.   play frame "ender"
  17.   go(1, string(lastspot))
  18. end
  19.  
  20. on thisLocation
  21.   global lastspot
  22.   set lastspot to "DazHelp"
  23. end
  24.  
  25. on next
  26.   shutUp()
  27.   go("NextBut")
  28. end
  29.  
  30. on prev
  31.   shutUp()
  32.   go("prevBut")
  33. end
  34.  
  35. on shutUp
  36.   if soundBusy(1) then
  37.     sound stop 1
  38.   end if
  39. end
  40.  
  41. on enterFrame
  42.   if soundBusy(1) then
  43.     set the volume of sound 2 to 128
  44.   else
  45.     set the volume of sound 2 to 255
  46.   end if
  47.   if the timer > 400 then
  48.     if gWhichScreen = 4 then
  49.       set gWhichScreen to 1
  50.     else
  51.       set gWhichScreen to gWhichScreen + 1
  52.     end if
  53.     set the castNum of sprite 20 to the number of member ("Screen" && string(gWhichScreen))
  54.     updateStage()
  55.     startTimer()
  56.   end if
  57. end
  58.