gameServer/HWProtoInRoomState.hs
changeset 4917 8ff92bdc9f98
parent 4908 99d6797b7ff4
child 4931 da43c36a6e92
--- a/gameServer/HWProtoInRoomState.hs	Fri Feb 04 20:41:46 2011 +0100
+++ b/gameServer/HWProtoInRoomState.hs	Sat Feb 05 11:05:16 2011 +0300
@@ -154,7 +154,7 @@
     return [
         ModifyClient (\c -> c{isReady = not $ isReady cl}),
         ModifyRoom (\r -> r{readyPlayers = readyPlayers r + (if isReady cl then -1 else 1)}),
-        AnswerClients chans [if isReady cl then "NOT_READY" else "READY", nick cl]
+        AnswerClients chans ["CLIENT_FLAGS", if isReady cl then "-r" else "+r", nick cl]
         ]
 
 handleCmd_inRoom ["START_GAME"] = do