home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 01741.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  523 b   |  31 lines
  1. on wait what
  2.   set temp to the ticks
  3.   set elap to the ticks - temp
  4.   repeat while elap < what
  5.     set elap to the ticks - temp
  6.   end repeat
  7. end
  8.  
  9. on pmovie what
  10.   global gframe, rframe
  11.   puppetSprite(43, 0)
  12.   setoff(1)
  13.   set rframe to gframe
  14.   set gframe to EMPTY
  15.   set the visible of sprite 42 to 0
  16.   unLoad()
  17.   go("movietemp")
  18.   set what to the moviePath & what
  19.   play movie what
  20. end
  21.  
  22. on rmovie
  23.   global rframe
  24.   unLoad()
  25.   updateStage()
  26.   puppetSprite(24, 0)
  27.   puppetSprite(23, 0)
  28.   puppetSprite(42, 0)
  29.   go(rframe)
  30. end
  31.