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

import Control.Lens
import Dodge.Data.Creature
import Dodge.Default
import Dodge.Item.Consumable
import Dodge.Item.Equipment
import Dodge.SoundLogic
import qualified IntMapHelp as IM
import Picture

smallChaseCrit :: Creature
smallChaseCrit =
    chaseCrit
        { _crHP = 1
        , _crRad = 4
        , _crInv = IM.fromList [(0, medkit 200)]
        , _crCorpse = MakeDefaultCorpse
        }

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

chaseCrit :: Creature
chaseCrit =
    defaultCreature
        { _crName = "chaseCrit"
        , _crHP = 150
        , _crInv = IM.fromList [(0, medkit 200)]
        , _crMeleeCooldown = 0
        , _crFaction = ColorFaction green
        , _crVocalization = chaseCritVocalization
        , _crMvType = defaultChaseMvType
        }
        & crType . humanoidAI .~ ChaseAI

chaseCritVocalization :: Vocalization
chaseCritVocalization =
    Vocalization
        seagullChatterS
        [ seagullBarkS
        , seagullChatterS
        , seagullChatter1S
        , seagullWhistleS
        , seagullWhistle1S
        , seagullCryS
        , seagullCry1S
        , seagullCry2S
        ]
        (50, 200)
        0