home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00056_volBtn.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  532 b   |  23 lines
  1. on mouseDown
  2.   if the lastClick > 4 then
  3.     exit
  4.   end if
  5.   set spr to the clickOn
  6.   puppetSprite(spr, 1)
  7.   set normalCnum to the castNum of sprite spr
  8.   set hiliteCnum to the number of cast "VOLbtn.h"
  9.   repeat while the mouseDown
  10.     if rollOver(spr) then
  11.       set the castNum of sprite spr to hiliteCnum
  12.     else
  13.       set the castNum of sprite spr to normalCnum
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   if rollOver(spr) then
  18.     showVolumePalette()
  19.   end if
  20.   set the castNum of sprite spr to normalCnum
  21.   updateStage()
  22. end
  23.