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/Command.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/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 4bf0e2893908..f2f21160df75 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -16,6 +16,7 @@ data Command | PickUp | Open | Wait + | Eat -- | TODO replace with `:` commands | ToggleRevealAll @@ -27,6 +28,7 @@ commandFromKey (KChar (directionFromChar -> Just dir)) [] = Just $ Move dir commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage commandFromKey (KChar ',') [] = Just PickUp commandFromKey (KChar 'o') [] = Just Open +commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll commandFromKey _ _ = Nothing |