Commit before tweaking placementn/room generation

2025-09-23 09:52:52 +01:00
parent 4179115023
commit d1bb8a985b
18 changed files with 308 additions and 201 deletions
@@ -41,7 +41,7 @@ placePlainPSSpot
 placePlainPSSpot w rm plmnt shift =
    let (i, w') = placeSpotID (shiftPSBy shift (_plSpot plmnt)) (_plType plmnt) w
        newplmnt = plmnt & plMID ?~ i
-     in maybe ((w', rm), [newplmnt]) (recrPlace newplmnt w') (_plIDCont plmnt (_gwWorld w') newplmnt)
+     in maybe ((w', rm & rmPmnts .:~ newplmnt), [newplmnt]) (recrPlace newplmnt w') (_plIDCont plmnt (w') newplmnt)
  where
    recrPlace newplmnt w' pl =
        let (wr, newplmnts) = placeSpot (w', rm) pl