gameServer/HWProtoInRoomState.hs
changeset 13678 1aa5e884326a
parent 13515 60bcc20e6ab0
child 13701 d732ca5dcab9
equal deleted inserted replaced
13676:7a31a292fa84 13678:1aa5e884326a
    72 handleCmd_inRoom ["CHAT", msg] = do
    72 handleCmd_inRoom ["CHAT", msg] = do
    73     n <- clientNick
    73     n <- clientNick
    74     s <- roomOthersChans
    74     s <- roomOthersChans
    75     return [AnswerClients s ["CHAT", n, msg]]
    75     return [AnswerClients s ["CHAT", n, msg]]
    76 
    76 
    77 handleCmd_inRoom ["PART"] = return [MoveToLobby "part"]
    77 -- Leave room normally
       
    78 handleCmd_inRoom ["PART"] = return [MoveToLobby ""]
       
    79 -- Leave room with custom quit message by player
       
    80 -- "part: " is a special marker string to be detected by the frontend. Not translated for obvious reasons
    78 handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg]
    81 handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg]
    79 
    82 
    80 
    83 
    81 handleCmd_inRoom ("CFG" : paramName : paramStrs)
    84 handleCmd_inRoom ("CFG" : paramName : paramStrs)
    82     | null paramStrs = return [ProtocolError $ loc "Empty config entry."]
    85     | null paramStrs = return [ProtocolError $ loc "Empty config entry."]