module Dodge.Creature.PistolCrit (
    pistolCrit,
) where

import Control.Lens
import Dodge.Data.Creature
import Dodge.Default
import Dodge.Item.Held.Stick
import qualified IntMapHelp as IM
import Picture

pistolCrit :: Creature
pistolCrit =
    defaultCreature
        { _crInv = IM.fromList [(0, pistol)]
        , _crRad = 10
        , _crHP = 500
        }
        & crType . humanoidAI .~ PistolAI
        & crType . skinUpper .~ lightx4 red