46 lines
1.2 KiB
Haskell
46 lines
1.2 KiB
Haskell
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
|