--- a/gameServer/Actions.hs	Tue May 17 19:05:13 2011 -0400
+++ b/gameServer/Actions.hs	Sun May 22 19:44:53 2011 +0400
@@ -381,7 +381,12 @@
 
 processAction (KickClient kickId) = do
     modify (\s -> s{clientIndex = Just kickId})
-    processAction $ ByeClient "Kicked"
+    clHost <- client's host
+    currentTime <- io getCurrentTime
+    mapM_ processAction [
+        AddIP2Bans clHost "60 seconds cooldown after kick" (addUTCTime 60 currentTime),
+        ByeClient "Kicked"
+        ]
 
 
 processAction (BanClient seconds reason banId) = do