Refactor bullet particles

src/Dodge/Creature/SwarmCrit.hs

@@ -11,6 +11,7 @@ import Dodge.Creature.ImpulseRat
 import Dodge.Creature.ChooseTarget
 --import Dodge.Creature.SetTarget
 import Dodge.Creature.Rationality
+import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.AlertLevel
 import Dodge.Creature.State
 import Dodge.Creature.State.Data
@@ -22,18 +23,21 @@ import Picture
 --import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
 import Control.Lens
+import Control.Monad.Reader
 --import Control.Monad.State
 --import System.Random
 
 swarmCrit :: Creature
 swarmCrit = defaultCreature
-    { _crUpdate = stateUpdate $ impulsiveAI $ composeInternalAIs
-        [ flockPointTarget encircle targetYouLOS
-        , \ _ -> crMeleeCooldown . _Just %~ (max 0 . subtract 1)
-        , basicPerceptionUpdate [0]
+    { _crUpdate = stateUpdate $ impulsiveAIR $
+        flockPointTargetR encircle targetYouLOS
+        >=> return . (crMeleeCooldown . _Just %~ (max 0 . subtract 1))
+        >=> basicPerceptionUpdateR [0]
+        >=> doStrategyActionsR
+        >=> targetYouWhenCognizantR
 --        , doStrategyActions
 --        , targetYouWhenCognizant
-        ]
+        
     , _crHP = 1
     , _crRad = 2
     , _crMass = 2