Generalise pathing, usable with flying creatures

2026-04-02 19:30:44 +01:00
parent c2de804fa9
commit ff903bfb3b
19 changed files with 322 additions and 215 deletions
@@ -21,7 +21,7 @@ data Stance = Stance
 data Carriage
    = Walking {_strideAmount :: Float, _footForward :: FootForward}
    | Floating
-    | Flying
+    | Flying {_flyHeight :: Float}
    | Boosting Point2
    | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
    deriving (Eq, Ord, Show, Read) --Generic, Flat)