home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / tornado / tornado.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  977 b   |  22 lines
  1. on mouseDown
  2.   global textFiles, textNumber, textCast, currentLine, slideRatio, top, linesInText, movieLocation
  3.   set the castNum of sprite 34 to 121
  4.   set currentLine to 9
  5.   updateStage()
  6.   set textNumber to textNumber - 1
  7.   if textNumber = 0 then
  8.     set textNumber to the number of lines in textFiles - 1
  9.   end if
  10.   put textNumber into word 4 of movieLocation
  11.   set textCast to the number of cast item 1 of line textNumber of textFiles
  12.   set the castNum of sprite 15 to textCast
  13.   set linesInText to float(the number of lines in field textCast)
  14.   set slideRatio to the height of sprite 37 / (linesInText - 43)
  15.   set linesInText to linesInText - 34
  16.   set the text of field "tcounter" to textNumber && "of" && the number of lines in textFiles - 1
  17.   put EMPTY after line currentLine of field textCast
  18.   set the locV of sprite 38 to top + ((currentLine - 9) * slideRatio)
  19.   set the text of field "articleTitle" to item 2 to 3 of line textNumber of textFiles
  20.   updateStage()
  21. end
  22.