38 lines
1020 B
Haskell
38 lines
1020 B
Haskell
module Dodge.Creature.AutoCrit
|
|
( autoCrit
|
|
) where
|
|
import Dodge.Data
|
|
import Dodge.RemoveCreatureEndo
|
|
import Dodge.Default
|
|
import Dodge.Creature.Picture
|
|
import Dodge.Creature.SentinelAI
|
|
--import Dodge.Creature.ChooseTarget
|
|
import Dodge.Creature.Impulse
|
|
import Dodge.Creature.State
|
|
--import Dodge.Creature.State.Data
|
|
import Dodge.Item.Weapon.BulletGuns
|
|
import Dodge.Item.Consumable
|
|
--import Geometry
|
|
import Picture
|
|
--import Dodge.RandomHelp
|
|
--
|
|
--import Data.Maybe
|
|
import qualified Data.IntMap.Strict as IM
|
|
|
|
autoCrit :: Creature
|
|
autoCrit = defaultCreature
|
|
{ _crPict = basicCrPict red
|
|
, _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR sentinelAI
|
|
, _crActionPlan = ActionPlan
|
|
{ _crImpulse = []
|
|
, _crAction = []
|
|
, _crStrategy = StrategyActions WatchAndWait [StartSentinelPost]
|
|
, _crGoal = []
|
|
}
|
|
, _crInv = IM.fromList [(0,autoGun),(1,medkit 100)]
|
|
, _crInvSel = 0
|
|
, _crRad = 10
|
|
, _crHP = 300
|
|
, _crMvType = defaultAimMvType
|
|
}
|