84 lines
2.3 KiB
Haskell
84 lines
2.3 KiB
Haskell
module Dodge.Creature.LauncherCrit
|
|
( launcherCrit
|
|
)
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Default
|
|
import Dodge.Creature.Picture
|
|
import Dodge.Creature.Test
|
|
import Dodge.Creature.Volition
|
|
import Dodge.Creature.ActionRat
|
|
--import Dodge.Creature.ChooseTarget
|
|
import Dodge.Creature.ReaderUpdate
|
|
import Dodge.Creature.Rationality
|
|
import Dodge.Creature.AlertLevel
|
|
import Dodge.Creature.State
|
|
--import Dodge.Creature.State.Data
|
|
import Dodge.Item.Weapon.Launcher
|
|
--import Dodge.Item.Consumable
|
|
--import Geometry
|
|
import Picture
|
|
|
|
import qualified Data.IntMap.Strict as IM
|
|
import Control.Lens
|
|
import Control.Monad.Reader
|
|
|
|
launcherCrit :: Creature
|
|
launcherCrit = defaultCreature
|
|
{ _crPict = basicCrPict red
|
|
, _crUpdate = stateUpdate $ impulsiveAIR $
|
|
performActionsR
|
|
>=> watchUpdateStratR
|
|
[ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) [retreatFire])
|
|
, (crAwayFromPost, goToPostStrat)
|
|
]
|
|
>=> basicPerceptionUpdateR [0]
|
|
>=> doStrategyActionsR
|
|
>=> reloadOverrideR
|
|
>=> targetYouWhenCognizantR
|
|
>=> overrideInternalR
|
|
(onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
|
|
(\ _ -> crActionPlan . crStrategy .~ WatchAndWait)
|
|
, _crActionPlan = ActionPlan
|
|
{ _crImpulse = []
|
|
, _crAction = []
|
|
, _crStrategy = StrategyActions WatchAndWait [StartSentinelPost]
|
|
, _crGoal = []
|
|
}
|
|
, _crInv = IM.fromList [(0,launcher)]
|
|
, _crInvSel = 0
|
|
, _crRad = 10
|
|
, _crState = defaultState
|
|
, _crHP = 300
|
|
}
|
|
|
|
retreatFire :: Action
|
|
retreatFire = ImpulsesList ( [ UseItem ] : replicate 20 [ Turn 0.16 ])
|
|
`DoActionThen`
|
|
holsterWeapon
|
|
`DoActionThen`
|
|
ImpulsesList ( replicate 30 [ MoveForward 3 ])
|
|
`DoActionThen`
|
|
drawWeapon
|
|
`DoActionThen`
|
|
ImpulsesList ( [UseItem] : replicate 20 [ Turn $ negate 0.16 ] )
|
|
`DoActionThen`
|
|
holsterWeapon
|
|
`DoActionThen`
|
|
ImpulsesList ( replicate 15 [ MoveForward 3 ] )
|
|
`DoActionThen`
|
|
drawWeapon
|
|
`DoActionThen`
|
|
ImpulsesList (
|
|
replicate 100 [UseItem, ImpulseUseTarget $ \tcr -> TurnToward (_crPos tcr) (pi/16) ] )
|
|
`DoActionThen`
|
|
20
|
|
`WaitThen`
|
|
holsterWeapon
|
|
`DoActionThen`
|
|
ImpulsesList ( replicate 15 [ MoveForward 3 ] )
|
|
`DoActionThen`
|
|
DoImpulses [ChangeStrategy WatchAndWait]
|
|
|
|
|