hedgewars/uSound.pas
changeset 175 d226d976d836
parent 174 0b2c5b22f644
child 181 7dfffbf0c7f6
--- a/hedgewars/uSound.pas	Wed Sep 27 20:13:29 2006 +0000
+++ b/hedgewars/uSound.pas	Wed Sep 27 20:52:22 2006 +0000
@@ -122,7 +122,9 @@
 begin
 inc(Volume, voldelta);
 if Volume < 0 then Volume:= 0;
-Volume:= Mix_Volume(-1, Volume);
+Mix_Volume(-1, Volume);
+Volume:= Mix_Volume(-1, -1);
+Mix_VolumeMusic(Volume * 3 div 8);
 Result:= Volume * 100 div MIX_MAX_VOLUME
 end;