Fix FULLMAPCONFIG message
authorunC0Rr
Tue, 02 Dec 2014 12:02:20 +0300
changeset 10602 1ec0268f28af
parent 10601 3f4964eeaf01
child 10603 bda5c7caf396
Fix FULLMAPCONFIG message
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")