home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / RESOURCES.Dxr / 00089.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  408 b   |  18 lines
  1. on mouseUp
  2. end
  3.  
  4. on mouseDown
  5.   set spritenum to the clickOn
  6.   puppetSprite(spritenum, 1)
  7.   set the soundLevel to 7
  8.   repeat while the mouseDown
  9.     set curpos to min(max(the mouseH, 519), 612)
  10.     set the locH of sprite spritenum to curpos
  11.     setvolume((curpos - 519) * 255 / (612 - 519))
  12.     puppetSound(2, 0)
  13.     puppetSound(2, "Beeps Transmission")
  14.     updateStage()
  15.   end repeat
  16.   puppetSound(2, 0)
  17. end
  18.