--- a/gameServer/CoreTypes.hs Mon Feb 14 08:31:45 2011 -0500
+++ b/gameServer/CoreTypes.hs Tue Feb 15 21:12:22 2011 +0300
@@ -83,6 +83,7 @@
roundMsgs :: Seq B.ByteString,
leftTeams :: [B.ByteString],
teamsAtStart :: [TeamInfo],
+ mapParams :: Map.Map B.ByteString B.ByteString,
params :: Map.Map B.ByteString [B.ByteString]
}
@@ -107,7 +108,12 @@
Data.Sequence.empty
[]
[]
- (Map.singleton "MAP" ["+rnd+"])
+ (
+ Map.fromList $ Prelude.zipWith (,)
+ ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"]
+ ["+rnd+", "0", "0", "seed", "0"]
+ )
+ (Map.singleton "SCHEME" ["Default"])
data StatisticsInfo =
StatisticsInfo