home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00560.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  539 b   |  15 lines
  1. on exitFrame
  2.   global movieDuration, therange, bndTp, bndBt
  3.   setUpSprites("10-12", 1, 1)
  4.   set bndTp to the bottom of sprite 10 + (the height of sprite 12 / 2)
  5.   set bndBt to the top of sprite 11 - (the height of sprite 12 / 2)
  6.   set therange to the top of sprite 11 - the bottom of sprite 10 - the height of sprite 12
  7.   if (the height of sprite 12 mod 2) > 0 then
  8.     set therange to therange - 1
  9.   end if
  10.   if the castType of cast 9 = #digitalVideo then
  11.     set movieDuration to the duration of cast 9
  12.   end if
  13.   puppetSprite(8, 0)
  14. end
  15.