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