home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch06_med / scaleabl / scaleabl.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-12-03  |  332 b   |  17 lines
  1. on mouseDown
  2.   puppetSprite(1, 1)
  3.   puppetSprite(2, 1)
  4.   puppetSprite(3, 1)
  5.   puppetSprite(4, 1)
  6.   set the width of sprite 1 to the width of sprite 1 / 3
  7.   set the height of sprite 1 to the width of sprite 1 * 3
  8.   updateStage()
  9. end
  10.  
  11. on mouseUp
  12.   puppetSprite(1, 0)
  13.   puppetSprite(2, 0)
  14.   puppetSprite(3, 0)
  15.   puppetSprite(4, 0)
  16. end
  17.