hedgewars/uTeams.pas
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);