home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / tornado / tornado.dxr / 00058.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  973 b   |  22 lines
  1. on mouseDown
  2.   global textFiles, textNumber, textCast, currentLine, slideRatio, top, linesInText, movieLocation
  3.   set the castNum of sprite 35 to 122
  4.   set currentLine to 9
  5.   updateStage()
  6.   set textNumber to textNumber + 1
  7.   if textNumber = the number of lines in textFiles then
  8.     set textNumber to 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.