384     end;

   384     end;

   385 end;

   385 end;

   386 

   386 

   387 function AddTeam(TeamColor: Longword): PTeam;

   387 function AddTeam(TeamColor: Longword): PTeam;

   388 var team: PTeam;

   388 var team: PTeam;

   390 begin

   390 begin

   391 if checkFails(TeamsCount < cMaxTeams, 'Too many teams', true) then exit(nil);

   391 if checkFails(TeamsCount < cMaxTeams, 'Too many teams', true) then exit(nil);

   392 New(team);

   392 New(team);

   393 if checkFails(team <> nil, 'AddTeam: team = nil', true) then exit(nil);

   393 if checkFails(team <> nil, 'AddTeam: team = nil', true) then exit(nil);

   394 FillChar(team^, sizeof(TTeam), 0);

   394 FillChar(team^, sizeof(TTeam), 0);

   397 team^.Flag:= 'hedgewars';

   397 team^.Flag:= 'hedgewars';

   398 

   398 

   399 TeamsArray[TeamsCount]:= team;

   399 TeamsArray[TeamsCount]:= team;

   400 inc(TeamsCount);

   400 inc(TeamsCount);

   401 

   401 

   404 

   403 

   405 c:= Pred(ClansCount);

   404 c:= Pred(ClansCount);

   406 while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c);

   405 while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c);

   407 if c < 0 then

   406 if c < 0 then

   408     begin

   407     begin