--- a/gameServer/HWProtoInRoomState.hs Wed Apr 01 02:42:37 2015 +0200
+++ b/gameServer/HWProtoInRoomState.hs Wed Apr 01 10:17:01 2015 +0300
@@ -125,7 +125,7 @@
defaultHedgehogsNumber rm
let newTeam = clNick `seq` TeamInfo clNick tName teamColor grave fort voicepack flag isRegistered dif hhNum (hhsList hhsInfo)
return $
- if not . null . drop (teamsNumberLimit rm) $ roomTeams then
+ if not . null . drop (teamsNumberLimit rm - 1) $ roomTeams then
[Warning $ loc "too many teams"]
else if canAddNumber roomTeams <= 0 then
[Warning $ loc "too many hedgehogs"]