# HG changeset patch
# User nemo
# Date 1321212794 18000
# Node ID d812246272e8c03e6e1baa639650ed44357ff615
# Parent  ceacd1b61833d2715765b953ecfc25311363d704
Use -1 to clear all channels before playing victory sound

diff -r ceacd1b61833 -r d812246272e8 hedgewars/uSound.pas
--- a/hedgewars/uSound.pas	Sun Nov 13 19:32:42 2011 +0100
+++ b/hedgewars/uSound.pas	Sun Nov 13 14:33:14 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
-        for i:= 1 to Succ(chanTPU) do StopSound(i);
+        Mix_HaltChannel(-1);
         for i:= 0 to 7 do VoiceList[i].snd:= sndNone;
         LastVoice.snd:= sndNone;
         end;