home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 October / NET_DISC.iso / pc / html / issue / smatic / carypepp / explain.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  252 b   |  14 lines
  1. on mouseUp
  2.   global p, x
  3.   puppetSound("hmmm.aiff")
  4.   set x to the castNum of sprite 4
  5.   set x to x - 1
  6.   if x < 15 then
  7.     puppetSprite(2, 0)
  8.     puppetSprite(3, 0)
  9.     puppetSprite(4, 0)
  10.     go(1)
  11.   end if
  12.   set the castNum of sprite 4 to p - 1
  13. end
  14.