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;

   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;

   479         StatsHandled:= false;

   478         StatsHandled:= false;

   480         end

   479         end

   481     end

   480     end

   482 else

   481 else

   483     begin

   482     begin