# HG changeset patch
# User unc0rr
# Date 1390290523 -14400
# Node ID fc586f2f8782b64ab7191880f10f8515218ff81e
# Parent  0cdb8bb83ef75549d79458a90b2a18bfdffb3b70
Fix detection of mapgen

diff -r 0cdb8bb83ef7 -r fc586f2f8782 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