Allow for item use when not root
This commit is contained in:
@@ -7,10 +7,8 @@ module Dodge.Creature.ChaseCrit (
|
||||
import Control.Lens
|
||||
import Dodge.Data.Creature
|
||||
import Dodge.Default
|
||||
import Dodge.Item.Consumable
|
||||
import Dodge.Item.Equipment
|
||||
import Dodge.SoundLogic
|
||||
import qualified IntMapHelp as IM
|
||||
import Picture
|
||||
|
||||
smallChaseCrit :: Creature
|
||||
@@ -18,7 +16,7 @@ smallChaseCrit =
|
||||
chaseCrit
|
||||
{ _crHP = 1
|
||||
, _crRad = 4
|
||||
, _crInv = IM.fromList [(0, medkit 200)]
|
||||
, _crInv = mempty
|
||||
, _crCorpse = MakeDefaultCorpse
|
||||
}
|
||||
|
||||
@@ -34,7 +32,7 @@ chaseCrit =
|
||||
defaultCreature
|
||||
{ _crName = "chaseCrit"
|
||||
, _crHP = 150
|
||||
, _crInv = IM.fromList [(0, medkit 200)]
|
||||
, _crInv = mempty
|
||||
, _crMeleeCooldown = 0
|
||||
, _crFaction = ColorFaction green
|
||||
, _crVocalization = chaseCritVocalization
|
||||
|
||||
Reference in New Issue
Block a user