22 lines
498 B
Haskell
22 lines
498 B
Haskell
module Dodge.Creature.LtAutoCrit (
|
|
ltAutoCrit,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
import Dodge.Item.Consumable
|
|
import Dodge.Item.Held.Stick
|
|
import qualified IntMapHelp as IM
|
|
import Picture
|
|
|
|
ltAutoCrit :: Creature
|
|
ltAutoCrit =
|
|
defaultCreature
|
|
{ _crInv = IM.fromList [(0, autoPistol), (1, medkit 100)]
|
|
, _crRad = 10
|
|
, _crHP = 500
|
|
}
|
|
& crType . humanoidAI .~ LtAutoAI
|
|
& crType . skinUpper .~ lightx4 red
|