home *** CD-ROM | disk | FTP | other *** search
/ HYPE / HYPE.ISO / explora.dxr / 00201.ls < prev    next >
Encoding:
Text File  |  1996-06-21  |  402 b   |  20 lines
  1. on exitFrame
  2.   puppetSprite(2, 1)
  3.   puppetSprite(3, 1)
  4.   puppetSprite(4, 1)
  5.   puppetSprite(5, 1)
  6.   puppetSprite(6, 1)
  7.   repeat with x = 1 to 2
  8.     repeat with y = 2 to 6
  9.       set the foreColor of sprite y to random(255)
  10.       updateStage()
  11.     end repeat
  12.   end repeat
  13.   puppetSprite(2, 0)
  14.   puppetSprite(3, 0)
  15.   puppetSprite(4, 0)
  16.   puppetSprite(5, 0)
  17.   puppetSprite(6, 0)
  18.   go(marker(random(5)))
  19. end
  20.