Work on chase crit corpse

2026-04-05 10:16:20 +01:00
parent 73dfd1f319
commit 22a1162e14
4 changed files with 23 additions and 3 deletions
@@ -46,7 +46,7 @@ updateCarriage' cid cr w = \case
                    & cWorld . lWorld . creatures . ix cid . crStance . carriage .~ OnGround
            else w & cWorld . lWorld . creatures . ix cid . crPos .~ ep
    OnGround {} -> w
-        & tocr . crPos +~ 0.8 *^ (cr ^. crOldPos - oop)
+        & tocr . crPos . _xy +~ 0.8 *^ (cr ^. crOldPos . _xy - oop ^. _xy)
  where
    tocr = cWorld . lWorld . creatures . ix cid
    oop = cr ^. crOldOldPos