--- a/gameServer/Actions.hs Sun Mar 13 15:09:04 2011 +0300
+++ b/gameServer/Actions.hs Sun Mar 13 15:09:29 2011 +0300
@@ -405,7 +405,7 @@
if isJust info then
mapM_ processAction [ModifyServerInfo (\s -> s{lastLogins = newLogins}), ByeClient (snd . fromJust $ info)]
else
- processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 0 $ connectTime cl, "Reconnected too fast")) : newLogins})
+ processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 10 $ connectTime cl, "Reconnected too fast")) : newLogins})
processAction PingAll = do