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
@@ -122,7 +122,6 @@ crPathing cr = case cr ^. crStance . carriage of
 performPathTo :: Creature -> World -> Point2 -> ActionUpdate
 performPathTo cr w p
    | dist cpos p <= crRad (cr ^. crType) = mempty
--    | isWalkable cpos p w = gotowards p
    | fst (crPathing cr) cpos p w = gotowards p
    | otherwise = case uncurry pointTowardsImpulse' (crPathing cr) cpos p w of
        Just q -> gotowards q