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
@@ -69,7 +69,7 @@ lineOutputTerminal tls = defaultTerminal & tmBootLines .~ textInputBlurb tls
 moveToSideNthOutLink :: S.Set UsedPos
    -> Int -> RoomPos -> Room -> Maybe ((Point2, Float), S.Set UsedPos)
 moveToSideNthOutLink xs i rp rm = do
-    j <- rp ^? rpLinkStatus . rplsChildNum
+    j <- rp ^? rpType . rplsChildNum
    guard $ i == j
    let rppos = _rpPos rp
        rpdir = _rpDir rp