Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/bigtop/shockwav/27_pollu.dcr/00055_volumeSlider.ls

Text File | 1996-04-10 | 714 b | 28 lines

on mouseDown
  set sliderSpr to the clickOn
  set barSpr to sliderSpr - 1
  set oldSndLev to the volume of sound 1
  set increm to 20
  set hOrg to the locH of sprite barSpr
  repeat while the mouseDown
    set index to (the mouseH - hOrg + (increm / 2)) / increm
    if index < 0 then
      set index to 0
    end if
    if index > 7 then
      set index to 7
    end if
    set chanVol to index * 36
    set the locH of sprite sliderSpr to hOrg + (index * increm) - 2
    set the volume of sound 1 to chanVol
    set the volume of sound 2 to chanVol
    if oldSndLev <> chanVol then
      puppetSound("pop")
    end if
    set oldSndLev to chanVol
    updateStage()
  end repeat
  puppetSound(0)
  hideVOL()
end