hedgewars/uTeams.pas
changeset 13763 b1177e9c9ee9
parent 13761 a0d6404a80a2
child 13765 72a8c0d63d80
equal deleted inserted replaced
13762:f0cb47f0bfaf 13763:b1177e9c9ee9
   308         begin
   308         begin
   309         for i:= 0 to ClansCount do
   309         for i:= 0 to ClansCount do
   310             if ClansArray[i] <> nil then
   310             if ClansArray[i] <> nil then
   311                 begin
   311                 begin
   312                 ClansArray[i]^.TurnNumber:= 0;
   312                 ClansArray[i]^.TurnNumber:= 0;
   313                 ClansArray[i]^.DiedThisTurn:= false;
       
   314                 end;
   313                 end;
   315         ResetWeapons
   314         ResetWeapons
   316         end;
   315         end;
   317 
   316 
   318     end;
   317     end;
   473         begin
   472         begin
   474         ClanIndex:= Pred(ClansCount);
   473         ClanIndex:= Pred(ClansCount);
   475         Color:= TeamColor;
   474         Color:= TeamColor;
   476         TagTeamIndex:= 0;
   475         TagTeamIndex:= 0;
   477         Flawless:= true;
   476         Flawless:= true;
   478         DiedThisTurn:= false;
   477         DeathLogged:= false;
   479         StatsHandled:= false;
   478         StatsHandled:= false;
   480         end
   479         end
   481     end
   480     end
   482 else
   481 else
   483     begin
   482     begin