Clear in-game flag when user joins room
authorunc0rr
Wed, 31 Oct 2012 16:52:31 +0400
changeset 7898 ba735701ce7f
parent 7897 5e7c0810f365
child 7906 aea103d58d83
child 7907 3b44ecf91928
Clear in-game flag when user joins room
gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue Oct 30 12:50:50 2012 +0100
+++ b/gameServer/Actions.hs	Wed Oct 31 16:52:31 2012 +0400
@@ -211,7 +211,7 @@
     rnc <- gets roomsClients
 
     io $ do
-        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False}) ci
+        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False}) ci
         modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri
         moveClientToRoom rnc ri ci