hedgewars/uTeams.pas
changeset 15053 e3b3fa42a93b
parent 15052 1a754860b0e5
child 15220 ceb289e8a582
equal deleted inserted replaced
15052:1a754860b0e5 15053:e3b3fa42a93b
   561 for t:= 0 to Pred(TeamsCount) do
   561 for t:= 0 to Pred(TeamsCount) do
   562     with TeamsArray[t]^ do
   562     with TeamsArray[t]^ do
   563         begin
   563         begin
   564         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then
   564         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then
   565             begin
   565             begin
   566             Clan^.LocalOrAlly:= true;
   566             if (MissionTeam = nil) or (MissionTeam^.TeamName = TeamName) then
       
   567                 Clan^.LocalOrAlly:= true;
   567             LocalTeam:= t;
   568             LocalTeam:= t;
   568             LocalAmmo:= Hedgehogs[0].AmmoStore
   569             LocalAmmo:= Hedgehogs[0].AmmoStore
   569             end;
   570             end;
   570         th:= 0;
   571         th:= 0;
   571         for i:= 0 to cMaxHHIndex do
   572         for i:= 0 to cMaxHHIndex do