diff -r e97e00427204 -r 0ea76ea45e6a gameServer/HWProtoLobbyState.hs --- 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]