--- a/gameServer/JoinsMonitor.hs	Wed Jan 29 09:17:25 2014 -0500
+++ b/gameServer/JoinsMonitor.hs	Thu Jan 30 00:18:32 2014 +0400
@@ -36,7 +36,7 @@
     let last30sec = length $ takeWhile (< 30) lastJoins
     let last2min = length $ takeWhile (< 120) lastJoins
     let last10min = length $ takeWhile (< 600) lastJoins
-    let pass = last30sec < 2 && last2min < 4 && last10min < 6
+    let pass = last30sec < 2 && last2min < 3 && last10min < 5
 
     when pass $ writeIORef ref $ Map.alter (Just . (:) time . fromMaybe []) host m