19 lines
469 B
Haskell
19 lines
469 B
Haskell
module Dodge.Creature.AutoCrit ( autoCrit) where
|
|
|
|
--import Dodge.Item.Held.Cane
|
|
--import Control.Lens
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
--import qualified IntMapHelp as IM
|
|
--import Picture
|
|
|
|
autoCrit :: Creature
|
|
autoCrit =
|
|
defaultCreature
|
|
{ --_crInv = IM.fromList [(0, autoRifle)]
|
|
_crHP = HP 300
|
|
-- , _crMvType = defaultAimMvType
|
|
}
|
|
-- & crType . skinUpper .~ lightx4 red
|
|
-- & crType . humanoidAI .~ AutoAI
|