Degrade armoured chase crit turn ability

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
+flockArmourChaseCrit :: Creature
-armourChaseCrit = defaultCreature
+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