Add IntMapHelper, locate wall cutting bug

2021-05-22 15:14:21 +02:00
parent 26f0ca4ab5
commit 9c2bcbec10
35 changed files with 221 additions and 139 deletions
@@ -20,7 +20,7 @@ firstWorld = do
 --    i <- randomRIO (0,5000)
    let i = 2
    putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
-    return $ generateFromList levx $ initialWorld {_randGen = mkStdGen i}
+    return $ generateLevelFromRoomList levx $ initialWorld {_randGen = mkStdGen i}

 initialWorld :: World
 initialWorld = defaultWorld