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)] , _crHP = 500 } -- & crType . humanoidAI .~ PistolAI -- & crType . skinUpper .~ lightx4 red