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 = 1
        , _crInv = mempty
        }

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

chaseCrit :: Creature
chaseCrit =
    defaultCreature
        { _crName = "chaseCrit"
        , _crHP = 150
        , _crInv = mempty
        , _crFaction = ColorFaction green
        , _crVocalization = chaseCritVocalization
        }

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