Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HWProtoLobbyState.hs
changeset 4917 8ff92bdc9f98
parent 4914 5c33bb53c1e5
child 4932 f11d80bac7ed 
--- 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
hedgewars