--- a/gameServer/EngineInteraction.hs Tue Jan 21 10:59:52 2014 +0400
+++ b/gameServer/EngineInteraction.hs Tue Jan 21 11:48:43 2014 +0400
@@ -85,8 +85,8 @@
scheme = tail $ prms Map.! "SCHEME"
mapgen = mParams Map.! "MAPGEN"
mapgenSpecific = case mapgen of
- "+maze+" -> [eml ["e$maze_size ", head $ prms Map.! "MAZE_SIZE"]]
- "+drawn" -> drawnMapData . head $ prms Map.! "DRAWNMAP"
+ "1" -> [eml ["e$maze_size ", head $ prms Map.! "MAZE_SIZE"]]
+ "2" -> drawnMapData . head $ prms Map.! "DRAWNMAP"
_ -> []
gameFlags :: Word32
gameFlags = foldl (\r (b, f) -> if b == "false" then r else r .|. f) 0 $ zip scheme gameFlagConsts