hedgewars/uTeams.pas
changeset 15052 1a754860b0e5
parent 14940 8b848c2939da
child 15053 e3b3fa42a93b
--- a/hedgewars/uTeams.pas	Sat May 25 18:18:42 2019 +0300
+++ b/hedgewars/uTeams.pas	Sun May 26 14:16:35 2019 +0200
@@ -522,6 +522,7 @@
         Color:= TeamColor;
         TagTeamIndex:= 0;
         Flawless:= true;
+        LocalOrAlly:= false;
         DeathLogged:= false;
         StatsHandled:= false;
         end
@@ -562,7 +563,7 @@
         begin
         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then
             begin
-            LocalClan:= Clan^.ClanIndex;
+            Clan^.LocalOrAlly:= true;
             LocalTeam:= t;
             LocalAmmo:= Hedgehogs[0].AmmoStore
             end;
@@ -1082,7 +1083,6 @@
 CurrentHedgehog:= nil;
 TeamsCount:= 0;
 ClansCount:= 0;
-LocalClan:= -1;
 LocalTeam:= -1;
 LocalAmmo:= -1;
 TeamsGameOver:= false;