home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00426.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  382 b   |  12 lines
  1. on exitFrame
  2.   global gQTMovieSprite, overQTstate, gVidPlaySprite, gVidPauseSprite
  3.   if the movieRate of sprite gQTMovieSprite then
  4.     go(the frame)
  5.   else
  6.     go(the frame + 1)
  7.     set the castNum of sprite gVidPlaySprite to the number of cast "VidPlay"
  8.     set the castNum of sprite gVidPauseSprite to the number of cast "VidPause lit"
  9.     set overQTstate to #pause
  10.   end if
  11. end
  12.