hedgewars/uSound.pas
changeset 1225 f882a92ef872
parent 1137 58cd4277382e
child 1562 c0eea030347b
--- a/hedgewars/uSound.pas	Sat Aug 16 20:15:27 2008 +0000
+++ b/hedgewars/uSound.pas	Sat Aug 16 20:36:18 2008 +0000
@@ -109,7 +109,7 @@
 TryDo(Mus <> nil, msgFailed, false);
 WriteLnToConsole(msgOK);
 
-Mix_PlayMusic(Mus, -1)
+SDLTry(Mix_FadeInMusic(Mus, -1, 3000) <> -1, false)
 end;
 
 function ChangeVolume(voldelta: LongInt): LongInt;