home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / hurrican / hurrican.dxr / 00043.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  780 b   |  22 lines
  1. on mouseDown
  2.   global left, right, maximum, increment, photoFiles, photoNumber, movieLocation
  3.   set the locH of sprite 26 to the mouseH
  4.   updateStage()
  5.   set z to the number of lines in photoFiles - 1
  6.   set q to photoNumber
  7.   repeat while the mouseDown
  8.     set x to the mouseH
  9.     set the locH of sprite 26 to x
  10.     updateStage()
  11.     set x to the locH of sprite 26
  12.     set photoNumber to integer(((x - left) / increment) + 1)
  13.     if photoNumber <> q then
  14.       set the text of field "counter" to photoNumber && "of" && z
  15.       set q to photoNumber
  16.     end if
  17.   end repeat
  18.   put photoNumber into word 4 of movieLocation
  19.   set the fileName of cast 31 to item 1 of line photoNumber of photoFiles
  20.   set the text of field "credits" to item 2 to 3 of line photoNumber of photoFiles
  21. end
  22.