diff -r 0551b5c3de9a -r 3c193ec03e09 gameServer/HWProtoNEState.hs --- a/gameServer/HWProtoNEState.hs Sat Jan 12 01:18:50 2013 +0400 +++ b/gameServer/HWProtoNEState.hs Sun Jan 13 01:02:08 2013 +0400 @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, CPP #-} module HWProtoNEState where import Control.Monad.Reader @@ -48,6 +48,7 @@ return [ByeClient "Authentication failed"] +#if defined(OFFICIAL_SERVER) handleCmd_NotEntered ["CHECKER", protoNum, newNick, password] = do (ci, irnc) <- ask let cl = irnc `client` ci @@ -59,6 +60,6 @@ , CheckRegistered] where parsedProto = readInt_ protoNum - +#endif handleCmd_NotEntered _ = return [ProtocolError "Incorrect command (state: not entered)"]