# HG changeset patch
# User unc0rr
# Date 1218133551 0
# Node ID bd0f414e395a908ff6814bd5fb2d9ab56f7d7c45
# Parent  686360e7df8fa2eda9e55c01a5a046644f262831
Fix max teams detection

diff -r 686360e7df8f -r bd0f414e395a 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);