Work on room generation/laser run past

2026-03-17 21:50:28 +00:00
parent 13b12f01a8
commit 3b4cf68a15
18 changed files with 656 additions and 528 deletions
@@ -31,6 +31,7 @@ generateWorldFromSeed rdata i = do
 postGenerationProcessing :: RenderData -> GenWorld -> IO World
 postGenerationProcessing _ gw = do
    let w = _gwWorld gw & cWorld . cwTiles .~ (tilesFromRooms . IM.elems $ _genRooms gw)
+    putStrLn $ show $ gw ^. genInts
    return $ foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)

 assignPushDoors :: World -> Door -> World