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