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