# HG changeset patch
# User unc0rr
# Date 1297007993 -10800
# Node ID da43c36a6e92619381917fb8d4b0b0aa7f6dff06
# Parent  5d59bb58c365b5d55cd00d27017f198784fe3043
Don't accept EM message when the game isn't started

diff -r 5d59bb58c365 -r da43c36a6e92 gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Sun Feb 06 13:19:00 2011 +0100
+++ b/gameServer/HWProtoInRoomState.hs	Sun Feb 06 18:59:53 2011 +0300
@@ -186,8 +186,8 @@
     cl <- thisClient
     r <- thisRoom
     chans <- roomOthersChans
-    
-    if (teamsInGame cl > 0) && isLegal then
+
+    if (teamsInGame cl > 0) && (gameinprogress r) && isLegal then
         return $ (AnswerClients chans ["EM", msg]) : [ModifyRoom (\r -> r{roundMsgs = roundMsgs r |> msg}) | not isKeepAlive]
         else
         return []