justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Start updating rooms "in place" during placement

Browse Source
This commit is contained in:
justin
2025-09-24 22:30:15 +01:00
parent 91e67e37dc
commit eab27fea8b
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
saveSlot/LevelStart0
+1 -1
View File
File diff suppressed because one or more lines are too long
src/Dodge/Layout.hs
+14 -3
View File
@@ -89,14 +89,25 @@ doRoomInPlacements w rm = foldr f (w, rm) $ _rmInPmnt rm
f plf (w', r') = placeSpot (w', r') (plf w') f plf (w', r') = placeSpot (w', r') (plf w')
doIndividualPlacements :: GenWorld -> GenWorld doIndividualPlacements :: GenWorld -> GenWorld
doIndividualPlacements gw = doIndividualPlacements gw = foldl' doRoomPlacements' gw (_genRooms gw)
let (gw', rms) = mapAccumR doRoomPlacements gw (_genRooms gw) -- let (gw', rms) = mapAccumR doRoomPlacements gw (_genRooms gw)
in gw' & genRooms .~ rms -- in gw' & genRooms .~ rms
doRoomPlacements :: GenWorld -> Room -> (GenWorld, Room) doRoomPlacements :: GenWorld -> Room -> (GenWorld, Room)
doRoomPlacements w rm = foldl' placeSpot (w, rm & rmPmnts .~ mempty) doRoomPlacements w rm = foldl' placeSpot (w, rm & rmPmnts .~ mempty)
$ _rmPmnts rm $ _rmPmnts rm
doRoomPlacements' :: GenWorld -> Room -> GenWorld
doRoomPlacements' w rm = foldl' (placeSpot' i) (w & genRooms . ix i . rmPmnts .~ mempty)
$ _rmPmnts rm
where
i = rm ^?! rmMID . _Just
placeSpot' :: Int -> GenWorld -> Placement -> GenWorld
placeSpot' i gw x =
let (gw',r') = placeSpot (gw,(gw ^?! genRooms . ix i)) x
in gw' & genRooms . ix i .~ r'
setupWorldBounds :: World -> World setupWorldBounds :: World -> World
setupWorldBounds w = setupWorldBounds w =
w & cWorld . cwGen . cwgWorldBounds w & cWorld . cwGen . cwgWorldBounds