how about we 60-sec-ban the _kicked user_ instead of the _admin that kicked that user_? :P
--- a/gameServer/Actions.hs Sat Jan 22 22:35:53 2011 +0300
+++ b/gameServer/Actions.hs Thu Jan 27 22:55:11 2011 +0100
@@ -392,7 +392,7 @@
processAction (clID, serverInfo, clients, rooms) (KickClient kickID) = do
- let client = clients ! clID
+ let client = clients ! kickID
currentTime <- getCurrentTime
liftM2 replaceID (return clID) (processAction (kickID, serverInfo{lastLogins = (host client, (addUTCTime 60 $ currentTime, "60 seconds ban")) : lastLogins serverInfo}, clients, rooms) $ ByeClient "Kicked")