Cleanup creature update slightly, add show instance for impulses

2022-03-26 08:08:16 +00:00
parent ae7fbe29c2
commit 3698a738f3
17 changed files with 158 additions and 198 deletions
@@ -19,17 +19,17 @@ import Control.Lens

 armourChaseCrit :: Creature
 armourChaseCrit = defaultCreature
-    { _crUpdate =  stateUpdate $ impulsiveAI $ chainCreatureUpdatesLR
-        [ Left $ watchUpdateStrat [] 
-        , Right doStrategyActions
-        , Left performActions
-        , Left targetYouWhenCognizant
-        , Left $ setTargetMv (\_ -> _targetCr . _crIntention)
-        , Left flockACC
-        , Left $ perceptionUpdate' [0]
-        , Left goToTarget
-        , Right overrideMeleeCloseTarget
-        , Right (crMeleeCooldown %~ max 0 . subtract 1)
+    { _crUpdate =  stateUpdate $ impulsiveAI $ chainCreatureUpdates
+        [ watchUpdateStrat [] 
+        , const doStrategyActions
+        , performActions
+        , targetYouWhenCognizant
+        , setTargetMv (\_ -> _targetCr . _crIntention)
+        , flockACC
+        , perceptionUpdate [0]
+        , goToTarget
+        , const overrideMeleeCloseTarget
+        , const (crMeleeCooldown %~ max 0 . subtract 1)
        ]
    , _crHP = 300
    , _crPict = basicCrPict green