home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch06_med / scaleabl / scaleabl.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1996-12-03  |  194 b   |  12 lines
  1. on mouseDown
  2.   repeat with n = 10 to 22
  3.     set the height of sprite n to the height of sprite n * 5
  4.     updateStage()
  5.     waitfor(0.20000000000000001)
  6.   end repeat
  7. end
  8.  
  9. on mouseUp
  10.   beep()
  11. end
  12.