Start ai cleanup

src/Dodge/Creature/LauncherCrit.hs

@@ -10,12 +10,13 @@ import Dodge.Creature.Volition
 import Dodge.Creature.ActionRat
 --import Dodge.Creature.ChooseTarget
 import Dodge.Creature.ReaderUpdate
-import Dodge.Creature.Rationality
 import Dodge.Creature.AlertLevel
 import Dodge.Creature.State
 --import Dodge.Creature.State.Data
 import Dodge.Item.Weapon.Launcher
 --import Dodge.Item.Consumable
+import Dodge.Creature.Impulse
+import Dodge.Creature.Action
 import Geometry.Data
 import Picture
 
@@ -36,9 +37,9 @@ launcherCrit = defaultCreature
         >=> doStrategyActionsR
         >=> reloadOverrideR
         >=> targetYouWhenCognizantR
-        >=> overrideInternalR    
-            (onBoth (&&) crHasTarget (crStratConMatches (GetTo (V2 0 0))))
-            (\ _ -> crActionPlan . crStrategy .~ WatchAndWait)
+        >=> overrideInternalRRR
+            (\cr -> (&&) <$> crHasTargetR cr <*> crStratConMatchesR (GetTo (V2 0 0)) cr)
+            (pure . (crActionPlan . crStrategy .~ WatchAndWait))
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
         , _crAction     = []