home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch06_med / smiley / smiley.dcr / 00032.ls < prev    next >
Encoding:
Text File  |  1996-12-02  |  374 b   |  16 lines
  1. on mouseDown
  2.   puppetSound("electriCharge")
  3.   set colorcycle to list(156, 76, 19, 96)
  4.   set spriteList to list(40, 41, 42, 43)
  5.   repeat while the mouseDown
  6.     set the foreColor of sprite getAt(spriteList, random(4)) to getAt(colorcycle, random(4))
  7.     updateStage()
  8.   end repeat
  9. end
  10.  
  11. on mouseUp
  12.   repeat with channel = 1 to 48
  13.     puppetSprite(channel, 0)
  14.   end repeat
  15. end
  16.