Make chasms remove RoomPos within their boundaries

2025-10-07 10:43:15 +01:00
parent 4cc5477f07
commit e9178f9643
12 changed files with 280 additions and 256 deletions
@@ -77,7 +77,7 @@ glassSwitchBack = do
    l2 <-
        mntLightLnkCond $
            rprBool $ \rp _ ->
-                rp ^. rpLinkStatus . rplsType . at (OnEdge West) == Just ()
+                rp ^. rpType . rplsType . at (OnEdge West) == Just ()
                    && null (rp ^. rpPlacementUse)
    let hf = hgt / 5
        awindow h xl xr = windowLine (V2 xl h) (V2 xr h)
@@ -207,7 +207,7 @@ weaponBetweenPillars = do
            and
                [ rpIsOnGrid rp
                , null $ _rpPlacementUse rp
-                , _rpLinkStatus rp == NotLink
+                , notLink (_rpType rp)
                , any ((< 100) . dist (_rpPos rp)) (usedRoomInLinkPoss r)
                ]
    ncrits <- state $ randomR (1, 3)