home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / calndrx.dxr / 00037_NextMonth.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  587 b   |  24 lines
  1. on mouseDown
  2.   global dateWindow, firstDayOfMonthList, thisMonth, monthList, thisYear
  3.   set the castNum of sprite 4 to the castNum of sprite 4 + 1
  4.   updateStage()
  5.   repeat while the mouseDown
  6.     nothing()
  7.   end repeat
  8.   reminderTest()
  9.   set x to getPos(monthList, thisMonth)
  10.   if x > 22 then
  11.     set x to 1
  12.     set thisYear to thisYear + 1
  13.     leapCheck()
  14.     setUpYear()
  15.   else
  16.     set x to x + 2
  17.   end if
  18.   set the castNum of sprite 2 to 40 + ((x + 1) / 2)
  19.   updateStage()
  20.   set thisMonth to getAt(monthList, x)
  21.   put thisMonth && thisYear into field "monthName"
  22.   go("loopBack")
  23. end
  24.