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
@@ -18,12 +18,12 @@ import Control.Lens

 swarmCrit :: Creature
 swarmCrit = defaultCreature
-    { _crUpdate =  stateUpdate $ impulsiveAI $ chainCreatureUpdatesLR
-        [ Left $ flockToPointUsing' (encircleDistP 100) (meleeHeadingMove 0.1 0.1 (pi/4) 3.9)
-        , Right (crMeleeCooldown %~ max 0 . subtract 1)
-        , Left $ perceptionUpdate' [0]
-        , Right doStrategyActions
-        , Left targetYouWhenCognizant
+    { _crUpdate =  stateUpdate $ impulsiveAI $ chainCreatureUpdates
+        [ flockToPointUsing' (encircleDistP 100) (meleeHeadingMove 0.1 0.1 (pi/4) 3.9)
+        , const (crMeleeCooldown %~ max 0 . subtract 1)
+        , perceptionUpdate [0]
+        , const doStrategyActions
+        , targetYouWhenCognizant
        ]
 --        , doStrategyActions
 --        , targetYouWhenCognizant