Refactor creature ai

src/Dodge/Creature/ArmourChase.hs

@@ -0,0 +1,35 @@
+module Dodge.Creature.ArmourChase
+    where
+import Dodge.Data
+import Dodge.Default
+import Dodge.Creature.State
+import Dodge.Creature.Rationality
+import Dodge.Creature.ReaderUpdate
+import Dodge.Creature.AlertLevel
+import Dodge.Creature.ChooseTarget
+import Dodge.Creature.Picture
+import Dodge.Item.Equipment
+import Dodge.Item.Consumable
+import Picture
+
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+import Control.Monad.Reader
+
+armourChaseCrit :: Creature
+armourChaseCrit = defaultCreature
+    { _crUpdate = stateUpdate $ impulsiveAIR $ 
+        doStrategyActionsR >=>
+        performActionsR >=>
+        overrideMeleeCloseTargetR >=>
+        chaseTargetR targetYouLOS >=>
+        basicPerceptionUpdateR [0] >=>
+        targetYouWhenCognizantR >=>
+        return . (crMeleeCooldown . _Just %~ (max 0 . subtract 1))
+    , _crHP = 300
+    , _crPict = basicCrPict green
+    , _crInv = IM.fromList 
+        [(0,frontArmour)
+        ,(1,medkit 200)
+        ]
+    }