Fix enemy stride/footsteps

2025-10-17 22:32:40 +01:00
parent f969056912
commit f3fafc6bf2
12 changed files with 254 additions and 245 deletions
@@ -5,7 +5,7 @@ module Dodge.Creature.ChaseCrit (
 ) where

 --import Dodge.Data.Equipment.Misc
--import Control.Lens
+import Control.Lens
 import Dodge.Data.Creature
 import Dodge.Default
 --import Dodge.Item.Equipment
@@ -27,12 +27,11 @@ invisibleChaseCrit =
 chaseCrit :: Creature
 chaseCrit =
    defaultCreature
-        { _crName = "chaseCrit"
-        , _crHP = HP 150
-        , _crInv = mempty
-        , _crFaction = ColorFaction green
-        , _crVocalization = chaseCritVocalization
-        }
+        & crName .~ "chaseCrit"
+        & crHP .~ HP 150
+        & crFaction .~ ColorFaction green
+        & crVocalization .~ chaseCritVocalization
+        & crStance . strideLength .~ 30

 chaseCritVocalization :: Vocalization
 chaseCritVocalization = Vocalization (50, 200) 0