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