home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Resources / audiosyncrasy / a_s_demo.dxr / 00087.ls < prev    next >
Encoding:
Text File  |  1996-03-16  |  783 b   |  26 lines
  1. on mouseDown
  2.   global gCurrentVolume
  3.   set theSprite to the clickOn
  4.   puppetSprite(theSprite, 1)
  5.   set the castNum of sprite theSprite to the number of cast "volUpHi"
  6.   updateStage()
  7.   repeat while the stillDown
  8.     if the soundLevel < 7 then
  9.       set the soundLevel to the soundLevel + 1
  10.       startTimer()
  11.       repeat while the timer < 20
  12.       end repeat
  13.       set the castNum of sprite theSprite to the number of cast "volUpDim"
  14.       puppetTransition(14)
  15.       updateStage()
  16.       set the castNum of sprite theSprite to the number of cast "volUpHi"
  17.       updateStage()
  18.     end if
  19.     puppetTransition(0)
  20.   end repeat
  21.   set the castNum of sprite theSprite to the number of cast "volUpDim"
  22.   updateStage()
  23.   set gCurrentVolume to the soundLevel
  24.   puppetSprite(theSprite, 0)
  25. end
  26.