module Dodge.Creature.ArmourChase (
    armourChaseCrit,
    flockArmourChaseCrit,
) where

--import Dodge.Data.Equipment.Misc
--import Control.Lens
import Dodge.Creature.ChaseCrit
import Dodge.Data.Creature
import Dodge.Default
--import Dodge.Item.Equipment
--import qualified IntMapHelp as IM

flockArmourChaseCrit :: Creature
flockArmourChaseCrit =
    defaultCreature
        { _crName = "armourChaseCrit"
        , _crHP = HP 300
        , _crInv = mempty
--            IM.fromList
--                [ --(0, frontArmour)
--                ]
        , _crActionPlan =
            ActionPlan
                { _apAction = NoAction
                , _apStrategy = FollowImpulses
                , _apGoal = Kill 0
                }
        , _crGroup = ShieldGroup
--        , _crMvType = defaultChaseMvType
        }
--        & crType . humanoidAI .~ FlockArmourChaseAI

armourChaseCrit :: Creature
armourChaseCrit =
    chaseCrit
        { _crName = "armourChaseCrit"
--        , --, _crUpdate = defaultImpulsive []
--          _crInv =
--            IM.fromList
--                [ --(0, frontArmour)
--                ]
--        , _crMvType = defaultChaseMvType{_mvTurnRad = FloatConst 0.05}
        }
--        & crEquipment . at OnChest ?~ 0