gameServer/Utils.hs
changeset 10602 1ec0268f28af
parent 10524 2bc0ff00e95b
child 10614 4afb4c4bf495
--- 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")