--- a/gameServer/EngineInteraction.hs Wed Jan 22 09:19:08 2014 +0400
+++ b/gameServer/EngineInteraction.hs Wed Jan 22 14:45:33 2014 +0400
@@ -86,7 +86,7 @@
mapgen = mParams Map.! "MAPGEN"
mapgenSpecific = case mapgen of
"1" -> [eml ["e$maze_size ", head $ prms Map.! "MAZE_SIZE"]]
- "2" -> drawnMapData . head $ prms Map.! "DRAWNMAP"
+ "2" -> let d = head $ prms Map.! "DRAWNMAP" in if null $ tail d then [] else drawnMapData d
_ -> []
gameFlags :: Word32
gameFlags = foldl (\r (b, f) -> if b == "false" then r else r .|. f) 0 $ zip scheme gameFlagConsts