home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00107.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  855 b   |  29 lines
  1. on showVolumePalette
  2.   global SELorgH, SELorgV, stageCenterH, PALspr2, PALspr3
  3.   hideVOL()
  4.   set vOff to 20
  5.   set hOff to 11
  6.   set increm to 20
  7.   set barH to stageCenterH - 70
  8.   puppetSprite(PALspr2, 1)
  9.   puppetSprite(PALspr3, 1)
  10.   set the castNum of sprite PALspr2 to the number of cast "volumeBar"
  11.   set the locH of sprite PALspr2 to barH
  12.   set the locV of sprite PALspr2 to SELorgV + vOff
  13.   set level to the volume of sound 1 / 36
  14.   set sliderH to barH + (level * increm) - 2
  15.   set sliderV to SELorgV + vOff
  16.   set the castNum of sprite PALspr3 to the number of cast "volumeSlider"
  17.   set the locH of sprite PALspr3 to sliderH
  18.   set the locV of sprite PALspr3 to sliderV
  19.   puppetSound("pop")
  20.   updateStage()
  21. end
  22.  
  23. on hideVOL
  24.   global PALspr2, PALspr3
  25.   set the locH of sprite PALspr2 to -1000
  26.   set the locH of sprite PALspr3 to -1000
  27.   updateStage()
  28. end
  29.