module Dodge.Creature.ChaseCrit (
    smallChaseCrit,
    invisibleChaseCrit,
    chaseCrit,
) where

--import Dodge.Data.Equipment.Misc
import Control.Lens
import Dodge.Data.Creature
import Dodge.Default
--import Dodge.Item.Equipment
import Picture

smallChaseCrit :: Creature
smallChaseCrit =
    chaseCrit
        { _crHP = HP 1
        , _crInv = mempty
        }

invisibleChaseCrit :: Creature
invisibleChaseCrit =
    chaseCrit
--        & crInv . at 0 ?~ wristInvisibility
--        & crEquipment . at OnLeftWrist ?~ 0

chaseCrit :: Creature
chaseCrit =
    defaultCreature
        & crName .~ "chaseCrit"
        & crHP .~ HP 150
        & crFaction .~ ColorFaction green
        & crVocalization .~ chaseCritVocalization
        & crStance . strideLength .~ 30

chaseCritVocalization :: Vocalization
chaseCritVocalization = Vocalization (50, 200) 0