gameServer/HWProtoLobbyState.hs
changeset 9304 3f4c3fc146c2
parent 9303 457efde100b5
child 9381 90f9d8046a86
--- a/gameServer/HWProtoLobbyState.hs	Sat Jun 29 00:18:17 2013 +0400
+++ b/gameServer/HWProtoLobbyState.hs	Sat Jun 29 23:58:37 2013 +0400
@@ -115,10 +115,13 @@
         watchRound cl jRoom chans = if isNothing $ gameInfo jRoom then
                     []
                 else
-                    [AnswerClients [sendChan cl]  ["RUN_GAME"]
-                    , AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl]
-                    , ModifyClient (\c -> c{isInGame = True})
-                    , AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom)]
+                    AnswerClients [sendChan cl]  ["RUN_GAME"]
+                    : AnswerClients chans ["CLIENT_FLAGS", "+g", nick cl]
+                    : ModifyClient (\c -> c{isInGame = True})
+                    : (AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : (reverse . roundMsgs . fromJust . gameInfo $ jRoom))
+                    : [AnswerClients [sendChan cl] $ "EM" : [fromJust msg] | isJust msg]
+            where
+            msg = lastFilteredTimedMsg . fromJust . gameInfo $ jRoom
 
 
 handleCmd_lobby ["JOIN_ROOM", roomName] =