gameServer/EngineInteraction.hs
changeset 10034 fc586f2f8782
parent 10027 403b86a1d05f
child 10040 4ac87acbaed9
--- 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