de8052cef8
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.
53 lines
1.7 KiB
Haskell
53 lines
1.7 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
|
--------------------------------------------------------------------------------
|
|
module Xanthous.Entities.Item
|
|
( Item(..)
|
|
, itemType
|
|
, newWithType
|
|
, isEdible
|
|
) where
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Prelude
|
|
import Test.QuickCheck
|
|
import Data.Aeson (ToJSON, FromJSON)
|
|
import Data.Aeson.Generic.DerivingVia
|
|
--------------------------------------------------------------------------------
|
|
import Xanthous.Entities.RawTypes hiding (Item, description, isEdible)
|
|
import qualified Xanthous.Entities.RawTypes as Raw
|
|
import Xanthous.Entities
|
|
( Draw(..)
|
|
, Entity(..)
|
|
, DrawRawChar(..)
|
|
, Brain(..)
|
|
, Brainless(..)
|
|
, brainVia
|
|
)
|
|
--------------------------------------------------------------------------------
|
|
|
|
data Item = Item
|
|
{ _itemType :: ItemType
|
|
}
|
|
deriving stock (Eq, Show, Generic)
|
|
deriving anyclass (CoArbitrary, Function)
|
|
deriving Draw via DrawRawChar "_itemType" Item
|
|
deriving (ToJSON, FromJSON)
|
|
via WithOptions '[ FieldLabelModifier '[Drop 1] ]
|
|
Item
|
|
makeLenses ''Item
|
|
|
|
-- deriving via (Brainless Item) instance Brain Item
|
|
instance Brain Item where step = brainVia Brainless
|
|
|
|
instance Arbitrary Item where
|
|
arbitrary = Item <$> arbitrary
|
|
|
|
instance Entity Item where
|
|
blocksVision _ = False
|
|
description = view $ itemType . Raw.description
|
|
|
|
newWithType :: ItemType -> Item
|
|
newWithType = Item
|
|
|
|
isEdible :: Item -> Bool
|
|
isEdible = Raw.isEdible . view itemType
|