home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00505.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  498 b   |  18 lines
  1. on exitFrame
  2.   global movieDuration, therange, bndLt, bndRt
  3.   if the movieTime of sprite 8 < movieDuration then
  4.     set theTime to the movieTime of sprite 8
  5.     set dx to integer(0.5 + (therange * theTime / movieDuration))
  6.     set theLocH to bndLt + dx
  7.     set the locH of sprite 12 to theLocH
  8.     updateStage()
  9.     go(the frame)
  10.   else
  11.     set the locH of sprite 12 to bndRt
  12.     set the castNum of sprite 11 to 446
  13.     puppetSprite(8, 0)
  14.     puppetSprite(11, 0)
  15.     go(the frame + 2)
  16.   end if
  17. end
  18.