home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / tornado / tornado.dxr / 00047.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  717 b   |  19 lines
  1. on exitFrame
  2.   global start, duration, ratio, videoNumber, videoFiles, movieLocation
  3.   put 3 into word 3 of movieLocation
  4.   put videoNumber into word 4 of movieLocation
  5.   puppetSprite(38, 0)
  6.   puppetSprite(26, 0)
  7.   set the visible of sprite 15 to 0
  8.   puppetSprite(28, 1)
  9.   set the constraint of sprite 28 to 27
  10.   set the cursor of sprite 14 to 0
  11.   set start to the left of sprite 27
  12.   set the locH of sprite 28 to start
  13.   set duration to float(the duration of cast 32)
  14.   set ratio to the width of sprite 27 / duration
  15.   set the locH of sprite 28 to start + (the movieTime of sprite 16 * ratio)
  16.   set the text of field "vcounter" to videoNumber && "of" && the number of lines in videoFiles - 1
  17.   go(the frame + 1)
  18. end
  19.