Fix max teams detection
authorunc0rr
Thu, 07 Aug 2008 18:25:51 +0000
changeset 1170 bd0f414e395a
parent 1169 686360e7df8f
child 1171 ab9932feda49
Fix max teams detection
hedgewars/uTeams.pas
--- 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);