module Dodge.Creature.PistolCrit
    ( pistolCrit 
    ) where
import Dodge.Data
import Dodge.Default
import Dodge.Item.Weapon.BulletGuns
import Dodge.Item.Consumable
import Picture

import qualified Data.IntMap.Strict as IM
import Control.Lens

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