Move stride/footforward datatypes

2026-04-03 11:21:09 +01:00
parent d65a4529be
commit b7b42f50a5
12 changed files with 238 additions and 248 deletions
@@ -6,6 +6,7 @@ module Dodge.Data.Creature.Misc (
    module Dodge.Data.CamouflageStatus,
 ) where

+import Dodge.Data.Creature.Stance
 import Color
 import Control.Lens
 import Data.Aeson
@@ -50,8 +51,13 @@ data CreatureType
        , _avIntelligence :: Int
        , _avMoveSpeed :: Float
        , _avPosture :: AvatarPosture
+        , _footForward :: FootForward
+        , _strideAmount :: Float
+        }
+    | ChaseCrit {_meleeCooldown :: Int
+        , _footForward :: FootForward
+        , _strideAmount :: Float
        }
-    | ChaseCrit {_meleeCooldown :: Int}
    | HoverCrit {_meleeCooldown :: Int}
    | SwarmCrit
    | AutoCrit