changeset 1170 | bd0f414e395a |
parent 1066 | 1f1b3686a2b0 |
child 1242 | 4aca5f7b2504 |
--- a/hedgewars/uTeams.pas Thu Aug 07 16:26:25 2008 +0000 +++ b/hedgewars/uTeams.pas Thu Aug 07 18:25:51 2008 +0000 @@ -227,7 +227,7 @@ var Result: PTeam; c: LongInt; begin -TryDo(TeamsCount <= cMaxTeams, 'Too many teams', true); +TryDo(TeamsCount < cMaxTeams, 'Too many teams', true); New(Result); TryDo(Result <> nil, 'AddTeam: Result = nil', true); FillChar(Result^, sizeof(TTeam), 0);