equal
deleted
inserted
replaced
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."] |