--- a/gameServer/HWProtoInRoomState.hs	Thu Jan 30 16:08:05 2014 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Fri Jan 31 12:45:51 2014 +0400
@@ -55,8 +55,8 @@
     s <- roomOthersChans
     return [AnswerClients s ["CHAT", n, msg]]
 
-handleCmd_inRoom ["PART"] = return [MoveToLobby "part"]
-handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg]
+handleCmd_inRoom ["PART"] = return [MoveToLobby "part", RegisterEvent RoomJoin]
+handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg, RegisterEvent RoomJoin]
 
 
 handleCmd_inRoom ("CFG" : paramName : paramStrs)
@@ -240,7 +240,7 @@
                 (\g -> g{
                     roundMsgs = if B.null nonEmptyMsgs then roundMsgs g else nonEmptyMsgs : roundMsgs g
                     , lastFilteredTimedMsg = fromMaybe (lastFilteredTimedMsg g) lastFTMsg})
-                $ gameInfo r})]
+                $ gameInfo r}), RegisterEvent EngineMessage]
         else
         return []
     where