59 lines
1.5 KiB
Haskell
59 lines
1.5 KiB
Haskell
module Dodge.Creature.ChaseCrit
|
|
(smallChaseCrit
|
|
,chaseCrit
|
|
) where
|
|
import Dodge.Data
|
|
import Dodge.Default
|
|
import Dodge.Creature.Picture
|
|
import Dodge.Creature.Update
|
|
import Dodge.Creature.ReaderUpdate
|
|
import Dodge.Creature.Action
|
|
import Dodge.Creature.Perception
|
|
import Dodge.Item.Consumable
|
|
import Dodge.SoundLogic
|
|
--import Geometry
|
|
import Picture
|
|
--import Dodge.RandomHelp
|
|
|
|
--import Data.Maybe
|
|
import qualified Data.IntMap.Strict as IM
|
|
import Control.Lens
|
|
--import System.Random
|
|
|
|
smallChaseCrit :: Creature
|
|
smallChaseCrit = chaseCrit
|
|
{ _crHP = 1
|
|
, _crRad = 4
|
|
, _crPict = basicCrPict green
|
|
, _crInv = IM.fromList [(0,medkit 200)]
|
|
, _crCorpse = setDepth 5 $ color (greyN 0.5) $ circleSolid 4
|
|
}
|
|
chaseCrit :: Creature
|
|
chaseCrit = defaultCreature
|
|
{ _crUpdate = defaultImpulsive
|
|
[ const doStrategyActions
|
|
, performActions
|
|
, const overrideMeleeCloseTarget
|
|
, const setViewPos
|
|
, const setMvPos
|
|
, goToTarget
|
|
, perceptionUpdate [0]
|
|
, targetYouWhenCognizant
|
|
, const (crMeleeCooldown %~ max 0 . subtract 1)
|
|
]
|
|
, _crHP = 150
|
|
, _crPict = basicCrPict green
|
|
, _crInv = IM.fromList [(0,medkit 200)]
|
|
, _crMeleeCooldown = 0
|
|
, _crFaction = ColorFaction green
|
|
, _crVocalization = Vocalization seagullChatterS 50 0
|
|
, _crMvType = ChaseMvType
|
|
{ _mvSpeed = 3
|
|
, _mvTurnRad = f
|
|
, _mvTurnJit = 0.2
|
|
}
|
|
}
|
|
where
|
|
f x | x > pi / 4 = 0.2
|
|
| otherwise = 0.05
|