--- a/gameServer/HWProtoLobbyState.hs	Thu Aug 27 22:03:57 2015 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Sun Aug 30 17:12:12 2015 +0300
@@ -113,6 +113,7 @@
             ++ watchRound cl jRoom chans
             ++ [AnswerClients [sendChan cl] ["CHAT", "[greeting]", greeting jRoom] | greeting jRoom /= ""]
             ++ map (\t -> AnswerClients chans ["EM", toEngineMsg $ 'G' `B.cons` t]) clTeams
+            ++ [AnswerClients [sendChan cl] ["EM", toEngineMsg "I"] | isPaused `fmap` gameInfo jRoom == Just True]
 
         where
         moveTeams :: [B.ByteString] -> GameInfo -> ([TeamInfo], GameInfo)