hedgewars/uTeams.pas
changeset 4978 0ef650ea3b12
parent 4976 088d40d8aba2
child 5016 9347d82a26cc
--- a/hedgewars/uTeams.pas	Wed Mar 02 11:48:02 2011 -0500
+++ b/hedgewars/uTeams.pas	Wed Mar 02 15:19:55 2011 -0500
@@ -80,6 +80,10 @@
                         with Hedgehogs[i] do
                             if (Gear <> nil) then
                                 Gear^.State:= gstWinner;
+            if Flawless then
+                PlaySound(sndFlawless, Teams[0]^.voicepack) 
+            else
+                PlaySound(sndVictory, Teams[0]^.voicepack);
 
             AddCaption(s, cWhiteColor, capgrpGameState);
             SendStat(siGameResult, s);
@@ -278,6 +282,7 @@
         begin
         ClanIndex:= Pred(ClansCount);
         Color:= TeamColor;
+        Flawless:= true
         end
    end else
    begin