Work on flying creature inertia

2026-04-02 22:04:58 +01:00
parent ff903bfb3b
commit 06c7e89dee
19 changed files with 205 additions and 171 deletions
@@ -579,6 +579,7 @@ updateTerminal tm w = fromMaybe w $ do

 setOldPos :: Creature -> Creature
 setOldPos cr = cr & crOldPos .~ _crPos cr
+    & crStance . carriage . oldOldPos .~ cr ^. crOldPos . _xy

 --doRewind :: World -> World
 --doRewind w = case w ^. cwTime .  maybeWorld of