home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / htracker / htracker.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  565 b   |  22 lines
  1. on mouseDown
  2.   global stormData1, stormPlot1, currentLocation, keyFlag, addHilite
  3.   if the frame > (label("storms1") - 1) then
  4.     exit
  5.   end if
  6.   set the visible of sprite addHilite to 1
  7.   updateStage()
  8.   if keyFlag then
  9.     saveRecord()
  10.     set keyFlag to 0
  11.   end if
  12.   set x to the number of lines in stormData1 + 1
  13.   put " " into line x of stormData1
  14.   set currentLocation to the number of lines in stormData1 - 1
  15.   append(stormPlot1, -2000)
  16.   append(stormPlot1, -2000)
  17.   clearDisplay()
  18.   set the visible of sprite addHilite to 0
  19.   updateStage()
  20.   replot(0)
  21. end
  22.