home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00413.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  470 b   |  14 lines
  1. on mouseUp
  2.   global gMovieList, gWhichBullet, gQTMovieSprite, overQTstate
  3.   set gWhichBullet to the clickOn - 8
  4.   set the movieRate of sprite gQTMovieSprite to 0
  5.   set the movieTime of sprite gQTMovieSprite to getAt(gMovieList, gWhichBullet + 4)
  6.   if overQTstate = #play then
  7.     set the castNum of sprite 18 to the number of cast "VidPlay"
  8.     set the castNum of sprite 19 to the number of cast "VidPause lit"
  9.     set overQTstate to #pause
  10.   else
  11.     exit
  12.   end if
  13. end
  14.