diff -r 6e8b807bda4b -r ba39a1d396c0 gameServer/HWProtoNEState.hs --- a/gameServer/HWProtoNEState.hs Sun Jun 10 18:56:51 2018 +0200 +++ b/gameServer/HWProtoNEState.hs Sun Jun 10 19:12:26 2018 +0200 @@ -34,9 +34,9 @@ handleCmd_NotEntered ["NICK", newNick] = do (ci, irnc) <- ask let cl = irnc `client` ci - if not . B.null $ nick cl then return [ProtocolError $ loc "Nickname already chosen"] + if not . B.null $ nick cl then return [ProtocolError $ loc "Nickname already provided."] else - if illegalName newNick then return [ByeClient $ loc "Illegal nickname"] + if illegalName newNick then return [ByeClient $ loc "Illegal nickname! Nicknames must be between 1-40 characters long, must not have a trailing or leading space and must not have any of these characters: $()*+?[]^{|}"] else return $ ModifyClient (\c -> c{nick = newNick}) : @@ -46,9 +46,9 @@ handleCmd_NotEntered ["PROTO", protoNum] = do (ci, irnc) <- ask let cl = irnc `client` ci - if clientProto cl > 0 then return [ProtocolError $ loc "Protocol already known"] + if clientProto cl > 0 then return [ProtocolError $ loc "Protocol already known."] else - if parsedProto == 0 then return [ProtocolError $ loc "Bad number"] + if parsedProto == 0 then return [ProtocolError $ loc "Bad number."] else return $ ModifyClient (\c -> c{clientProto = parsedProto}) : @@ -90,7 +90,7 @@ (ci, irnc) <- ask let cl = irnc `client` ci - if parsedProto == 0 then return [ProtocolError $ loc "Bad number"] + if parsedProto == 0 then return [ProtocolError $ loc "Bad number."] else return $ [ ModifyClient (\c -> c{clientProto = parsedProto, nick = newNick, webPassword = password, isChecker = True})