From c9dcdd20e46d8d2d681fd73ec32af9b6b83623c6 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 20 May 2022 23:59:12 +0100
Subject: [PATCH] Degrade armoured chase crit turn ability

---
 src/Dodge/Creature/ArmourChase.hs | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Creature/ArmourChase.hs b/src/Dodge/Creature/ArmourChase.hs
index 65690e637..e35586f75 100644
--- a/src/Dodge/Creature/ArmourChase.hs
+++ b/src/Dodge/Creature/ArmourChase.hs
@@ -1,10 +1,12 @@
 module Dodge.Creature.ArmourChase
     ( armourChaseCrit
+    , flockArmourChaseCrit
     ) where
 import Dodge.Data
 import Dodge.Default
 --import Dodge.Creature.State
 import Dodge.Creature.Update
+import Dodge.Creature.ChaseCrit
 --import Dodge.Creature.ChainUpdates
 import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Perception
@@ -18,8 +20,8 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 
-armourChaseCrit :: Creature
-armourChaseCrit = defaultCreature
+flockArmourChaseCrit :: Creature
+flockArmourChaseCrit = defaultCreature
     { _crUpdate = defaultImpulsive
         [ watchUpdateStrat [] 
         , const doStrategyActions
@@ -49,3 +51,14 @@ armourChaseCrit = defaultCreature
     , _crGroup = ShieldGroup
     , _crMvType = defaultChaseMvType
     }  
+armourChaseCrit :: Creature
+armourChaseCrit = chaseCrit
+    { _crName = "armourChaseCrit"
+    , _crInv = IM.fromList 
+        [(0,frontArmour)
+        ,(1,medkit 200)
+        ]
+    , _crMvType = defaultChaseMvType {_mvTurnRad = f}
+    }  
+  where
+    f _ = 0.05