Prevent rooted creatures from being pushed by other creatures

2026-04-25 09:04:01 +01:00
parent e0e346aade
commit 264651d34a
2 changed files with 6 additions and 2 deletions
@@ -1015,6 +1015,10 @@ crCrSpring c1 c2
    | vec == V2 0 0 = id
    | diff >= comRad = id
    | diffheight = id
+    | Rooted <- c2 ^. crStance . carriage = id
+    | Rooted <- c1 ^. crStance . carriage 
+        = cWorld . lWorld . creatures . ix id2 . crPos . _xy +~ 
+            (diff - comRad) *^ signorm vec
    | SlimeCrit{} <- c1 ^. crType
    , SlimeCrit{} <- c2 ^. crType
    , id2 > id1