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 = 300
        , _crInv =
            IM.fromList
                [ (0, frontArmour)
                ]
        , _crActionPlan =
            ActionPlan
                { _apImpulse = []
                , _apAction = []
                , _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