home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 August / macformat-040.iso / mac / Demos / RedNex / DATA / REDNEX.DIR / 00132.ls < prev    next >
Encoding:
Text File  |  1995-07-20  |  282 b   |  17 lines
  1. on mouseDown
  2.   puppetSprite(3, 1)
  3.   set the constraint of sprite 9 to 8
  4. end
  5.  
  6. on mouseUp
  7.   puppetSprite(3, 1)
  8.   set x to the locH of sprite 9
  9.   set x to x / 80
  10.   put x
  11.   set the soundLevel to x
  12.   set v to the soundLevel
  13.   put v
  14.   set the castNum of sprite 3 to v
  15.   updateStage()
  16. end
  17.