--- 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})
             ]