Modularise and improve step cycle

2021-06-06 18:23:52 +02:00
parent eb7c4a8067
commit edd947a857
7 changed files with 98 additions and 29 deletions
@@ -108,7 +108,11 @@ defaultCreature = Creature
    , _crState  = defaultState
    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 10
    , _crApplyDamage = defaultApplyDamage
-    , _crStance = Stance {_carriage=Walking 0 0,_posture=AtEase}
+    , _crStance = Stance 
+        {_carriage=Walking 0 WasLeftForward
+        ,_posture=AtEase
+        ,_strideLength = 9
+        }
    , _crActionPlan = ActionPlan [] [] WatchAndWait [LiveLongAndProsper]
    , _crMeleeCooldown = Nothing
    , _crAwakeLevel = Vigilant