21 lines
467 B
Haskell
21 lines
467 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 = 300
|
|
-- , _crMvType = defaultAimMvType
|
|
}
|
|
-- & crType . skinUpper .~ lightx4 red
|
|
-- & crType . humanoidAI .~ AutoAI
|