hedgewars/uSound.pas
changeset 1127 7e1b94a0fc1f
parent 1098 5b599137aaa1
child 1128 9b3f42bf4eef
--- a/hedgewars/uSound.pas	Sun Jul 27 21:51:35 2008 +0000
+++ b/hedgewars/uSound.pas	Sun Jul 27 21:58:46 2008 +0000
@@ -120,7 +120,7 @@
 if Volume < 0 then Volume:= 0;
 Mix_Volume(-1, Volume);
 Volume:= Mix_Volume(-1, -1);
-Mix_VolumeMusic(Volume * 3 div 8);
+Mix_VolumeMusic(Volume * 5 div 8);
 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME
 end;