diff -r 3f4964eeaf01 -r 1ec0268f28af gameServer/Utils.hs --- a/gameServer/Utils.hs Mon Dec 01 23:09:35 2014 +0100 +++ b/gameServer/Utils.hs Tue Dec 02 12:02:20 2014 +0300 @@ -200,6 +200,11 @@ ++ (("SCHEME", pr Map.! "SCHEME") : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) + | clientProto cl < 48 = map (toAnswer cl) $ + ("FULLMAPCONFIG", tail $ Map.elems mpr) + : ("SCHEME", pr Map.! "SCHEME") + : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) + | otherwise = map (toAnswer cl) $ ("FULLMAPCONFIG", Map.elems mpr) : ("SCHEME", pr Map.! "SCHEME")