home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / STRATEGY.DXR / 00171.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  310 b   |  15 lines
  1. on exitFrame
  2.   puppetSprite(30, 1)
  3.   set MyCast to the castNum of sprite 30
  4.   repeat with i = 1 to 39
  5.     startTimer()
  6.     repeat while the timer < 8
  7.       nothing()
  8.     end repeat
  9.     set MyCast to MyCast + 1
  10.     set the castNum of sprite 30 to MyCast
  11.     updateStage()
  12.   end repeat
  13.   puppetSprite(30, 0)
  14. end
  15.