Fix detection of mapgen
authorunc0rr
Tue, 21 Jan 2014 11:48:43 +0400
changeset 10034 fc586f2f8782
parent 10033 0cdb8bb83ef7
child 10035 ec523f66d0ff
Fix detection of mapgen
gameServer/EngineInteraction.hs
--- 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