home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 59 / PCR59.iso / scifi_2d / movies / shared.dir / 01006.ls < prev    next >
Encoding:
Text File  |  1995-06-25  |  994 b   |  42 lines
  1. on setMusicVol mLevel
  2.   global gReturnValue, mFinalVolume
  3.   set mousePos to the mouseH
  4.   if mousePos > 470 then
  5.     set mousePos to 470
  6.   else
  7.     if mousePos < 335 then
  8.       set mousePos to 335
  9.     end if
  10.   end if
  11.   set the locH of sprite 30 to mousePos
  12.   readini("SCIFI.INI", "[AUDIO]", "EFFECTS VOLUME")
  13.   set tempvolume to gReturnValue
  14.   set the volume of sound 1 to mLevel
  15.   puppetSound("pageturn.aif")
  16.   updateStage()
  17.   set counter to 1
  18.   repeat while counter < 10000
  19.     set counter to counter + 1
  20.   end repeat
  21.   set the volume of sound 1 to tempvolume
  22.   set the volume of sound 2 to mLevel
  23.   set mFinalVolume to mLevel
  24. end
  25.  
  26. on setEffectsVol eLevel
  27.   global eFinalVolume
  28.   set mousePos to the mouseH
  29.   if mousePos > 470 then
  30.     set mousePos to 470
  31.   else
  32.     if mousePos < 335 then
  33.       set mousePos to 335
  34.     end if
  35.   end if
  36.   set the locH of sprite 31 to mousePos
  37.   set the volume of sound 1 to eLevel
  38.   puppetSound("pageturn.aif")
  39.   updateStage()
  40.   set eFinalVolume to eLevel
  41. end
  42.