hedgewars/uTeams.pas
changeset 7119 2737c488756b
parent 7048 0a4c88935902
child 7151 ec15d9e1a7e3
--- a/hedgewars/uTeams.pas	Wed May 23 21:19:15 2012 +0200
+++ b/hedgewars/uTeams.pas	Wed May 23 23:24:03 2012 +0400
@@ -580,12 +580,13 @@
     exit;
 
 with TeamsArray[t]^ do
-    begin
-    AddChatString('** '+ TeamName + ' is gone');
-    hasGone:= true
-    end;
+    if not hasGone then
+        begin
+        AddChatString('** '+ TeamName + ' is gone');
+        hasGone:= true;
 
-RecountTeamHealth(TeamsArray[t])
+        RecountTeamHealth(TeamsArray[t])
+        end;
 end;