Cleanup

2021-12-11 22:08:43 +00:00
parent 7116129a37
commit 6cd59d99bc
17 changed files with 115 additions and 170 deletions
@@ -33,13 +33,13 @@ pistolCrit = defaultCreature
        [Left performActions
        ,Left $ watchUpdateStrat
              [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) 
-                    [DoActionIf (not . crIsAiming) drawWeapon,chooseMovement cr w])
-              , (crAwayFromPost, goToPostStrat)
+                    [DoActionIf (const $ not . crIsAiming) drawWeapon,chooseMovement cr w])
+              , (const crAwayFromPost, const goToPostStrat)
              ]
        ,Left $ perceptionUpdate' [0]
-        ,Right $ doStrategyActions
-        ,Right $ reloadOverride
-        ,Left $ targetYouWhenCognizant
+        ,Right doStrategyActions
+        ,Right reloadOverride
+        ,Left targetYouWhenCognizant
        ,Right $ overrideInternal
            (\cr -> crHasTarget' cr && crStratConMatches' (GetTo (V2 0 0)) cr)
            (crActionPlan . crStrategy .~ WatchAndWait)