home *** CD-ROM | disk | FTP | other *** search
/ The Museum Of Anything Goes / MOAG.bin / pc / basement / basemntc / 00049.ls < prev    next >
Encoding:
Text File  |  1995-01-30  |  449 b   |  23 lines

  1. on SETTIMER
  2.   global TIMECOUNT, NINENUM
  3.   set TIMECOUNT to 0
  4.   set NINENUM to the number of cast "Five"
  5.   puppetSprite(5, 1)
  6.   set the castNum of sprite 5 to NINENUM
  7.   updateStage()
  8. end
  9.  
  10. on INCTIMER
  11.   global TIMECOUNT, NINENUM
  12.   set TIMECOUNT to TIMECOUNT + 1
  13.   if TIMECOUNT = 5 then
  14.     puppetSprite(5, 0)
  15.     go("Stpt")
  16.     updateStage()
  17.     exit
  18.   end if
  19.   set the castNum of sprite 5 to NINENUM + TIMECOUNT
  20.   go("ClockLoop")
  21.   updateStage()
  22. end
  23.