diff -r 3d460e57d4e6 -r 835ad028fb66 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Sun Oct 21 16:38:54 2012 +0400 +++ b/gameServer/HWProtoLobbyState.hs Sun Oct 21 17:00:35 2012 +0400 @@ -51,8 +51,10 @@ [Warning "Room exists"] else [ - AddRoom rName roomPassword, - AnswerClients [sendChan cl] ["CLIENT_FLAGS", "-r", nick cl] + AddRoom rName roomPassword + , AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+hr", nick cl] + , ModifyClient (\cl -> cl{isMaster = True, isReady = True}) + , ModifyRoom (\r -> r{readyPlayers = 1}) ]