520         begin

   520         begin

   521         ClanIndex:= Pred(ClansCount);

   521         ClanIndex:= Pred(ClansCount);

   522         Color:= TeamColor;

   522         Color:= TeamColor;

   523         TagTeamIndex:= 0;

   523         TagTeamIndex:= 0;

   524         Flawless:= true;

   524         Flawless:= true;

   525         DeathLogged:= false;

   526         DeathLogged:= false;

   526         StatsHandled:= false;

   527         StatsHandled:= false;

   527         end

   528         end

   528     end

   529     end

   529 else

   530 else

   560 for t:= 0 to Pred(TeamsCount) do

   561 for t:= 0 to Pred(TeamsCount) do

   561     with TeamsArray[t]^ do

   562     with TeamsArray[t]^ do

   562         begin

   563         begin

   563         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then

   564         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then

   564             begin

   565             begin

   566             LocalTeam:= t;

   567             LocalTeam:= t;

   567             LocalAmmo:= Hedgehogs[0].AmmoStore

   568             LocalAmmo:= Hedgehogs[0].AmmoStore

   568             end;

   569             end;

   569         th:= 0;

   570         th:= 0;

   570         for i:= 0 to cMaxHHIndex do

   571         for i:= 0 to cMaxHHIndex do

  1080 CurrentTeam:= nil;

  1081 CurrentTeam:= nil;

  1081 PreviousTeam:= nil;

  1082 PreviousTeam:= nil;

  1082 CurrentHedgehog:= nil;

  1083 CurrentHedgehog:= nil;

  1083 TeamsCount:= 0;

  1084 TeamsCount:= 0;

  1084 ClansCount:= 0;

  1085 ClansCount:= 0;

  1086 LocalTeam:= -1;

  1086 LocalTeam:= -1;

  1087 LocalAmmo:= -1;

  1087 LocalAmmo:= -1;

  1088 TeamsGameOver:= false;

  1088 TeamsGameOver:= false;

  1089 NextClan:= true;

  1089 NextClan:= true;

  1090 SwapClanPre:= -1;

  1090 SwapClanPre:= -1;