home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / winters / winters.dxr / 00062.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  1.2 KB  |  40 lines
  1. on mouseDown
  2.   if (the mouseV - the top of sprite the clickOn) > (the height of sprite the clickOn / 2) then
  3.     pageDown()
  4.   else
  5.     pageUp()
  6.   end if
  7. end
  8.  
  9. on pageDown
  10.   global top, linesInText, slideRatio, currentLine, textCast, movieLocation
  11.   set the castNum of sprite 40 to 119
  12.   updateStage()
  13.   repeat while the mouseDown
  14.     set currentLine to currentLine + 7
  15.     if currentLine > linesInText then
  16.       set currentLine to linesInText
  17.     end if
  18.     put currentLine into word 5 of movieLocation
  19.     set the locV of sprite 38 to top + ((currentLine - 9) * slideRatio)
  20.     updateStage()
  21.     put char 1 of line currentLine of field textCast into char 1 of line currentLine of field textCast
  22.   end repeat
  23. end
  24.  
  25. on pageUp
  26.   global top, linesInText, slideRatio, currentLine, textCast, movieLocation
  27.   set the castNum of sprite 39 to 118
  28.   updateStage()
  29.   repeat while the mouseDown
  30.     set currentLine to currentLine - 7
  31.     if currentLine < 9 then
  32.       set currentLine to 9
  33.     end if
  34.     put currentLine into word 5 of movieLocation
  35.     set the locV of sprite 38 to top + ((currentLine - 9) * slideRatio)
  36.     updateStage()
  37.     put char 1 of line currentLine of field textCast into char 1 of line currentLine of field textCast
  38.   end repeat
  39. end
  40.