24 lines
479 B
Haskell
24 lines
479 B
Haskell
module Dodge.Creature.PistolCrit
|
|
( pistolCrit
|
|
) where
|
|
import Dodge.Data
|
|
import Dodge.Default
|
|
import Dodge.Item.Weapon.BulletGuns
|
|
import Dodge.Item.Consumable
|
|
import Picture
|
|
|
|
import qualified Data.IntMap.Strict as IM
|
|
import Control.Lens
|
|
|
|
pistolCrit :: Creature
|
|
pistolCrit = defaultCreature
|
|
{ _crInv = IM.fromList [(0,pistol),(1,medkit 100)]
|
|
, _crRad = 10
|
|
, _crHP = 500
|
|
}
|
|
& crType . humanoidAI .~ PistolAI
|
|
& crType . skinUpper .~ light4 red
|
|
|
|
|
|
|