19 lines
431 B
Haskell
19 lines
431 B
Haskell
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 = HP 500
|
|
}
|
|
-- & crType . humanoidAI .~ SpreadGunAI
|
|
-- & crType . skinUpper .~ lightx4 red
|