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
@@ -48,7 +48,7 @@ data CreatureType
        , _avPosture :: AvatarPosture
        }
    | ChaseCrit {_meleeCooldown :: Int}
-    | HoverCrit
+    | HoverCrit {_meleeCooldown :: Int}
    | SwarmCrit
    | AutoCrit
    | BarrelCrit {_barrelType :: BarrelType}
@@ -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)