diff options
| author | Griffin Smith <root@gws.fyi> | 2019-10-06T16·50-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-10-06T16·50-0400 |
| commit | de8052cef8a9f749cdb2312a4f5ae5f5a44cf1b8 (patch) | |
| tree | 734d38ad7279b0188b46f67e0288c5efddab7f8e /src/Xanthous/Entities/Item.hs | |
| parent | 262fc7fb41f14181ed34cecfcca9ef2d25102688 (diff) | |
Allow eating edible items
Add menu support to the prompt system, and an "Eat" command that prompts for an item to eat and eats the item the character specifies, restoring an amount of hitpoints configurable via the item raw type.
Diffstat (limited to 'src/Xanthous/Entities/Item.hs')
| -rw-r--r-- | src/Xanthous/Entities/Item.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Xanthous/Entities/Item.hs b/src/Xanthous/Entities/Item.hs index 832f0d4d62..ea6f16e05d 100644 --- a/src/Xanthous/Entities/Item.hs +++ b/src/Xanthous/Entities/Item.hs @@ -5,6 +5,7 @@ module Xanthous.Entities.Item ( Item(..) , itemType , newWithType + , isEdible ) where -------------------------------------------------------------------------------- import Xanthous.Prelude @@ -12,7 +13,7 @@ import Test.QuickCheck import Data.Aeson (ToJSON, FromJSON) import Data.Aeson.Generic.DerivingVia -------------------------------------------------------------------------------- -import Xanthous.Entities.RawTypes hiding (Item, description) +import Xanthous.Entities.RawTypes hiding (Item, description, isEdible) import qualified Xanthous.Entities.RawTypes as Raw import Xanthous.Entities ( Draw(..) @@ -47,3 +48,6 @@ instance Entity Item where newWithType :: ItemType -> Item newWithType = Item + +isEdible :: Item -> Bool +isEdible = Raw.isEdible . view itemType |