--- a/gameServer/HWProtoLobbyState.hs	Fri Nov 30 15:26:49 2012 +0100
+++ b/gameServer/HWProtoLobbyState.hs	Fri Nov 30 18:43:43 2012 +0400
@@ -160,6 +160,10 @@
     cl <- thisClient
     return [BanIP ip (readInt_ duration) reason | isAdministrator cl]
 
+handleCmd_lobby ["BANNICK", n, reason, duration] = do
+    cl <- thisClient
+    return [BanNick n (readInt_ duration) reason | isAdministrator cl]
+
 handleCmd_lobby ["BANLIST"] = do
     cl <- thisClient
     return [BanList | isAdministrator cl]