diff -r 7a31a292fa84 -r 1aa5e884326a gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Sun Aug 19 09:54:46 2018 -0400 +++ b/gameServer/HWProtoInRoomState.hs Tue Aug 21 02:14:15 2018 +0200 @@ -74,7 +74,10 @@ s <- roomOthersChans return [AnswerClients s ["CHAT", n, msg]] -handleCmd_inRoom ["PART"] = return [MoveToLobby "part"] +-- Leave room normally +handleCmd_inRoom ["PART"] = return [MoveToLobby ""] +-- Leave room with custom quit message by player +-- "part: " is a special marker string to be detected by the frontend. Not translated for obvious reasons handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg]