diff -r 33c1e9bc68ad -r 8ff92bdc9f98 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Fri Feb 04 20:41:46 2011 +0100 +++ b/gameServer/HWProtoLobbyState.hs Sat Feb 05 11:05:16 2011 +0300 @@ -62,7 +62,7 @@ else [ AddRoom newRoom roomPassword, - AnswerClients [sendChan cl] ["NOT_READY", nick cl] + AnswerClients [sendChan cl] ["CLIENT_FLAGS", "-r", nick cl] ] @@ -91,7 +91,7 @@ [ MoveToRoom jRI, AnswerClients [sendChan cl] $ "JOINED" : nicks, - AnswerClients chans ["NOT_READY", nick cl] + AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl] ] ++ (map (readynessMessage cl) jRoomClients) ++ (answerFullConfig cl $ params jRoom) @@ -99,7 +99,7 @@ ++ (watchRound cl jRoom) where - readynessMessage cl c = AnswerClients [sendChan cl] [if isReady c then "READY" else "NOT_READY", nick c] + readynessMessage cl c = AnswerClients [sendChan cl] ["CLIENT_FLAGS", if isReady c then "+r" else "-r", nick c] toAnswer cl (paramName, paramStrs) = AnswerClients [sendChan cl] $ "CFG" : paramName : paramStrs