--- 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")