branch | 0.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;