diff -r 9329dab04490 -r c33b2f001730 gameServer/Utils.hs --- a/gameServer/Utils.hs Mon Nov 17 15:25:24 2014 +0100 +++ b/gameServer/Utils.hs Tue Nov 18 00:32:39 2014 +0300 @@ -158,7 +158,7 @@ head (Map.findWithDefault ["Default"] "SCHEME" (params r)), head (Map.findWithDefault ["Default"] "AMMO" (params r)) ] - | otherwise = [ + | p < 48 = [ showB $ isJust $ gameInfo r, name r, showB $ playersIn r, @@ -169,6 +169,25 @@ head (Map.findWithDefault ["Default"] "SCHEME" (params r)), head (Map.findWithDefault ["Default"] "AMMO" (params r)) ] + | otherwise = [ + B.pack roomFlags, + name r, + showB $ playersIn r, + showB $ length $ teams r, + n, + Map.findWithDefault "+rnd+" "MAP" (mapParams r), + head (Map.findWithDefault ["Normal"] "SCRIPT" (params r)), + head (Map.findWithDefault ["Default"] "SCHEME" (params r)), + head (Map.findWithDefault ["Default"] "AMMO" (params r)) + ] + where + roomFlags = concat [ + "-" + , ['g' | isJust $ gameInfo r] + , ['p' | B.null $ password r] + , ['j' | isRestrictedJoins r] + , ['r' | isRegisteredOnly r] + ] answerFullConfigParams :: ClientInfo