117 keys2 = Set.fromList ["AMMO", "SCHEME", "SCRIPT", "THEME"] |
117 keys2 = Set.fromList ["AMMO", "SCHEME", "SCRIPT", "THEME"] |
118 sane = Set.null (keys1 Set.\\ Map.keysSet mParams) |
118 sane = Set.null (keys1 Set.\\ Map.keysSet mParams) |
119 && Set.null (keys2 Set.\\ Map.keysSet prms) |
119 && Set.null (keys2 Set.\\ Map.keysSet prms) |
120 && (not . null . drop 41 $ scheme) |
120 && (not . null . drop 41 $ scheme) |
121 && (not . null . tail $ prms Map.! "AMMO") |
121 && (not . null . tail $ prms Map.! "AMMO") |
122 mapGenTypes = ["+rnd+", "+maze+", "+drawn+"] |
122 mapGenTypes = ["+rnd+", "+maze+", "+drawn+", "+perlin+"] |
123 maybeScript = let s = head . fromMaybe ["Normal"] $ Map.lookup "SCRIPT" prms in if s == "Normal" then [] else [eml ["escript Scripts/Multiplayer/", s, ".lua"]] |
123 maybeScript = let s = head . fromMaybe ["Normal"] $ Map.lookup "SCRIPT" prms in if s == "Normal" then [] else [eml ["escript Scripts/Multiplayer/", s, ".lua"]] |
124 maybeMap = let m = mParams Map.! "MAP" in if m `elem` mapGenTypes then [] else [eml ["emap ", m]] |
124 maybeMap = let m = mParams Map.! "MAP" in if m `elem` mapGenTypes then [] else [eml ["emap ", m]] |
125 scheme = tail $ prms Map.! "SCHEME" |
125 scheme = tail $ prms Map.! "SCHEME" |
126 mapgen = mParams Map.! "MAPGEN" |
126 mapgen = mParams Map.! "MAPGEN" |
127 templateFilterMsg = eml ["e$maze_size ", mParams Map.! "MAZE_SIZE"] |
127 templateFilterMsg = eml ["e$maze_size ", mParams Map.! "MAZE_SIZE"] |