author | unc0rr |
Thu, 07 Aug 2008 18:25:51 +0000 | |
changeset 1170 | bd0f414e395a |
parent 1169 | 686360e7df8f |
child 1171 | ab9932feda49 |
--- 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);