home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / macf / mger.dir / 00221.ls < prev    next >
Encoding:
Text File  |  1995-10-10  |  756 b   |  34 lines
  1. on mouseUp
  2.   global LastButton, gRewind, movieID, gSpeed, prev
  3.   repeat with x = 3 to 5
  4.     puppetSprite(x, 1)
  5.     set the visible of sprite x to 0
  6.     puppetSprite(x, 0)
  7.   end repeat
  8.   puppetSprite(5, 1)
  9.   set the visible of sprite 5 to 1
  10.   puppetSprite(5, 0)
  11.   if gRewind = 1 then
  12.     QTMovie("Direct", movieID, "reverse")
  13.     set gRewind to 0
  14.   end if
  15.   set gRewind to 0
  16.   if gSpeed = 2 then
  17.     set speed to 1.0
  18.     set speed to string(speed)
  19.     QTMovie("Direct", movieID, "Set", "rate", speed)
  20.     set gSpeed to 1
  21.   end if
  22.   put "inside play button, script 16"
  23.   put "LastButton", LastButton
  24.   if LastButton = 1 then
  25.     unpauseQT()
  26.   else
  27.     if LastButton = 2 then
  28.       set prev to 1
  29.       go("PPrv")
  30.     end if
  31.   end if
  32.   set LastButton to 0
  33. end
  34.