--- a/gameServer/HWProtoLobbyState.hs Fri Mar 04 22:45:28 2011 +0300
+++ b/gameServer/HWProtoLobbyState.hs Sat Mar 05 09:32:11 2011 +0300
@@ -110,7 +110,8 @@
| clientProto cl < 38 = map (toAnswer cl) $
(map (\(a, b) -> (a, [b])) $ Map.toList mpr)
++ (("SCHEME", pr Map.! "SCHEME")
- : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr))
+ ++ (("SEED", pr Map.! "SEED")
+ : (filter (\(p, _) -> p /= "SCHEME" && p /= "SEED") $ Map.toList pr))
| otherwise = map (toAnswer cl) $
("FULLMAPCONFIG", Map.elems mpr)