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