module Dodge.Creature.SpreadGunCrit ( spreadGunCrit, ) where --import Control.Lens import Dodge.Data.Creature import Dodge.Default --import qualified IntMapHelp as IM --import Picture spreadGunCrit :: Creature spreadGunCrit = defaultCreature { --_crInv = IM.fromList [(0, bangStick 6)] _crHP = 500 } -- & crType . humanoidAI .~ SpreadGunAI -- & crType . skinUpper .~ lightx4 red