equal
deleted
inserted
replaced
225 |
225 |
226 function AddTeam(TeamColor: Longword): PTeam; |
226 function AddTeam(TeamColor: Longword): PTeam; |
227 var Result: PTeam; |
227 var Result: PTeam; |
228 c: LongInt; |
228 c: LongInt; |
229 begin |
229 begin |
230 TryDo(TeamsCount <= cMaxTeams, 'Too many teams', true); |
230 TryDo(TeamsCount < cMaxTeams, 'Too many teams', true); |
231 New(Result); |
231 New(Result); |
232 TryDo(Result <> nil, 'AddTeam: Result = nil', true); |
232 TryDo(Result <> nil, 'AddTeam: Result = nil', true); |
233 FillChar(Result^, sizeof(TTeam), 0); |
233 FillChar(Result^, sizeof(TTeam), 0); |
234 Result^.AttackBar:= 2; |
234 Result^.AttackBar:= 2; |
235 Result^.CurrHedgehog:= cMaxHHIndex; |
235 Result^.CurrHedgehog:= cMaxHHIndex; |