hedgewars/uSound.pas
branch0.9.17
changeset 6372 b392132a588c
parent 6367 a7fbf18b2d55
child 6415 af2047bb4f70
--- a/hedgewars/uSound.pas	Mon Nov 14 13:13:38 2011 -0500
+++ b/hedgewars/uSound.pas	Mon Nov 14 13:14:32 2011 -0500
@@ -307,7 +307,7 @@
     if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd = snd) and  (LastVoice.voicepack = voicepack)) then exit;
     if (snd = sndVictory) or (snd = sndFlawless) then
         begin
-        Mix_HaltChannel(-1);
+        Mix_FadeOutChannel(-1, 800);
         for i:= 0 to 7 do VoiceList[i].snd:= sndNone;
         LastVoice.snd:= sndNone;
         end;