home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 59 / PCR59.iso / scifi_2d / movies / shared.dir / 01421.ls < prev    next >
Encoding:
Text File  |  1995-06-25  |  949 b   |  43 lines
  1. on enterFrame
  2.   set the movieRate of sprite 21 to 0
  3.   set the startTime of sprite 21 to 5
  4.   set the visible of sprite 21 to 1
  5.   updateStage()
  6.   startTimer()
  7.   repeat while the timer < 15
  8.     nothing()
  9.   end repeat
  10. end
  11.  
  12. on exitFrame
  13.   global vidCast, mStartvolume
  14.   set the sound of cast vidCast to 1
  15.   set the volume of sprite 21 to mStartvolume
  16.   set the movieRate of sprite 21 to 1
  17.   updateStage()
  18.   set x to 0
  19.   repeat while the movieRate of sprite 21
  20.     if the mouseDown then
  21.       set x to 1
  22.       exit repeat
  23.     end if
  24.     updateStage()
  25.   end repeat
  26.   set the movieRate of sprite 21 to 0
  27.   set the startTime of sprite 21 to 1
  28.   updateStage()
  29.   if x = 0 then
  30.     set curPal to the framePalette
  31.     puppetPalette(curPal)
  32.     puppetTransition(50, 1, 32)
  33.     go("v2areturn")
  34.   else
  35.     if x = 1 then
  36.       set curPal to the framePalette
  37.       puppetPalette(curPal)
  38.       puppetTransition(50, 1, 32)
  39.       go("v2areturn")
  40.     end if
  41.   end if
  42. end
  43.