Make falling creatures land on cliff corners

2026-04-05 09:07:31 +01:00
parent b3b1fc6d87
commit 3952b2b1b7
6 changed files with 216 additions and 214 deletions
@@ -991,7 +991,7 @@ crCrSpring c1 c2
    diffheight = fromMaybe True $ do
        h1 <- h c1
        h2 <- h c2
-        return $ (z c1 > h2 || z c2 > h1)
+        return $ z c1 > h2 || z c2 > h1
    olap a b = ix (a ^. crID) . crPos . _xy +~ overlap b
    olap' a b = ix (a ^. crID) . crPos . _xy -~ overlap b
    id1 = _crID c1