changeset 1815 | 3d62cf9c350e |
parent 1814 | e5391d901cff |
child 1818 | 4391c7037281 |
--- a/gameServer/HWProtoInRoomState.hs Fri Feb 20 19:46:22 2009 +0000 +++ b/gameServer/HWProtoInRoomState.hs Fri Feb 20 19:47:31 2009 +0000 @@ -13,8 +13,8 @@ handleCmd_inRoom :: CmdHandler -handleCmd_inRoom clID clients _ ["CHAT_STRING", msg] = - [AnswerOthersInRoom ["CHAT_STRING", clientNick, msg]] +handleCmd_inRoom clID clients _ ["CHAT", msg] = + [AnswerOthersInRoom ["CHAT", clientNick, msg]] where clientNick = nick $ clients IntMap.! clID