hedgewars/uTeams.pas
changeset 2806 db6e2a4da358
parent 2796 7f86e7ad378b
child 2826 fbcfc86ef477
equal deleted inserted replaced
2805:36a8cebb91e8 2806:db6e2a4da358
   295 TryDo(TeamsCount < cMaxTeams, 'Too many teams', true);
   295 TryDo(TeamsCount < cMaxTeams, 'Too many teams', true);
   296 New(team);
   296 New(team);
   297 TryDo(team <> nil, 'AddTeam: team = nil', true);
   297 TryDo(team <> nil, 'AddTeam: team = nil', true);
   298 FillChar(team^, sizeof(TTeam), 0);
   298 FillChar(team^, sizeof(TTeam), 0);
   299 team^.AttackBar:= 2;
   299 team^.AttackBar:= 2;
   300 team^.CurrHedgehog:= cMaxHHIndex;
   300 team^.CurrHedgehog:= 0;
   301 team^.Flag:= 'hedgewars';
   301 team^.Flag:= 'hedgewars';
   302 
   302 
   303 TeamsArray[TeamsCount]:= team;
   303 TeamsArray[TeamsCount]:= team;
   304 inc(TeamsCount);
   304 inc(TeamsCount);
   305 
   305