home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 25 / CDROM25.iso / lazer / fpwtdemo / Option.dcr / Internal_74.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  1.0 KB  |  36 lines
  1. global sVOLUMECONTROL, lstVolumeLoc, lstVolumeCtrl, gnSoundVolume
  2.  
  3. on SetVolumeControl
  4.   if voidp(gnSoundVolume) then
  5.     set gnSoundVolume to the soundLevel
  6.   end if
  7.   set sndLvl to the soundLevel
  8.   set the locH of sprite sVOLUMECONTROL to getAt(lstVolumeLoc, sndLvl + 1)
  9. end
  10.  
  11. on MoveVolumeControl
  12.   set sndLvl to the soundLevel
  13.   set min to getAt(lstVolumeLoc, 1)
  14.   set max to getAt(lstVolumeLoc, 8)
  15.   repeat while the mouseDown
  16.     set sndH to the mouseH
  17.     if (sndH >= min) and (sndH <= max) then
  18.       set the locH of sprite sVOLUMECONTROL to sndH
  19.       updateStage()
  20.       set sndXXX to 1
  21.       repeat while sndH > getAt(lstVolumeCtrl, sndXXX)
  22.         set sndXXX to sndXXX + 1
  23.       end repeat
  24.       set sndLvl to sndXXX - 1
  25.       set the soundLevel to sndLvl
  26.     end if
  27.   end repeat
  28.   set the locH of sprite sVOLUMECONTROL to getAt(lstVolumeLoc, sndLvl + 1)
  29. end
  30.  
  31. on InitVolumeControls
  32.   set sVOLUMECONTROL to 20
  33.   set lstVolumeLoc to [251, 274, 298, 322, 346, 371, 395, 419]
  34.   set lstVolumeCtrl to [266, 286, 310, 334, 358, 383, 407, 430]
  35. end
  36.