diff -r 2573d4ff78f9 -r 1cb7118a77dd hedgewars/uSound.pas
--- a/hedgewars/uSound.pas	Mon Jun 29 00:58:32 2009 +0000
+++ b/hedgewars/uSound.pas	Mon Jun 29 03:47:39 2009 +0000
@@ -104,15 +104,16 @@
 isSoundEnabled:= openal_init(numSounds);
 if isSoundEnabled then WriteLnToConsole(msgOK)
                   else WriteLnToConsole(msgFailed);
-ChangeVolume(cInitVolume)
 end;
 
 procedure ReleaseSound;
 begin
+if isMusicEnabled then openal_fadeout(Mus, 30);
 openal_close();
 end;
 
 procedure SoundLoad;
+const volume = 60;
 var i: TSound;
 	s: shortstring;
 	t: Longword;
@@ -127,6 +128,7 @@
 		s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName;
 		WriteToConsole(msgLoading + s + ' ');
 		defVoicepack^.chunks[i]:= openal_loadfile (Str2PChar(s));
+		openal_setvolume(defVoicepack^.chunks[i],volume);
 		TryDo(defVoicepack^.chunks[i] >= 0, msgFailed, true);
 		WriteLnToConsole(msgOK);
 		end;
@@ -139,6 +141,7 @@
 				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
 				WriteToConsole(msgLoading + s + ' ');
 				voicepacks[t].chunks[i]:= openal_loadfile (Str2PChar(s));
+				openal_setvolume(voicepacks[t].chunks[i],volume);
 				if voicepacks[t].chunks[i] < 0 then
 					WriteLnToConsole(msgFailed)
 				else
@@ -184,7 +187,8 @@
 TryDo(Mus >= 0, msgFailed, false);
 WriteLnToConsole(msgOK);
 
-openal_fadein(Mus, 50);
+openal_setvolume(Mus, 60);
+openal_fadein(Mus, 70);
 openal_toggleloop(Mus);
 end;