hedgewars/uTeams.pas
changeset 13756 a0d6404a80a2
parent 13755 6908d1e65cdc
child 13758 b1177e9c9ee9
--- a/hedgewars/uTeams.pas	Mon Sep 03 22:14:46 2018 +0200
+++ b/hedgewars/uTeams.pas	Tue Sep 04 14:20:15 2018 +0200
@@ -308,7 +308,10 @@
         begin
         for i:= 0 to ClansCount do
             if ClansArray[i] <> nil then
+                begin
                 ClansArray[i]^.TurnNumber:= 0;
+                ClansArray[i]^.DiedThisTurn:= false;
+                end;
         ResetWeapons
         end;
 
@@ -471,7 +474,9 @@
         ClanIndex:= Pred(ClansCount);
         Color:= TeamColor;
         TagTeamIndex:= 0;
-        Flawless:= true
+        Flawless:= true;
+        DiedThisTurn:= false;
+        StatsHandled:= false;
         end
     end
 else