aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Classes/UMusic.pas7
-rw-r--r--Game/Code/Screens/UScreenSing.pas2
2 files changed, 6 insertions, 3 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index fbd7fb29..fae0ffd2 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -455,8 +455,11 @@ begin
if Volume > 100 then
Volume := 100;
- //Set Volume
+ //Set MP3 Volume
BASS_ChannelSetAttributes (Bass, -1, Volume, -101);
+
+ //Set Applause Volume
+ BASS_ChannelSetAttributes (BassApplause, -1, Volume, -101);
end;
procedure TMusic.Fade(InitVolume, TargetVolume: Integer; FadeTime: real);
@@ -499,7 +502,7 @@ begin
Loaded := true;
DSP_VocalRemover:=0;
//Set Max Volume
- SetMusicVolume (100);
+ //SetMusicVolume (100);
end;
Result := Loaded;
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index eeb7edbb..43ad1dde 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -1397,7 +1397,7 @@ begin
begin
PlaylistMedley.ApplausePlayed:=true;
Music.PlayApplause;
- Music.Fade(100, 10, AktSong.Medley.FadeOut_time);
+ Music.Fade(MP3Volume, 10, AktSong.Medley.FadeOut_time);
end;
end;