diff options
| author | Griffin Smith <root@gws.fyi> | 2019-12-23T04·22-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-12-23T04·22-0500 |
| commit | 6622dd301860765ed16f29f74c9d1348d3aa0d41 (patch) | |
| tree | c8936207422e9ae884ba73ce0309603b0a6004f8 /src/Xanthous/Command.hs | |
| parent | 5b1c7799a76480335f838356ad78bed50715d4c0 (diff) | |
Add a wield command
Add a Wield command, which prompts for a wieldable item, if any, to take out of the character's inventory and put in their right hand. Eventually we should support other hands, but for now hardcoding the right hand should be fine.
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 7b689c6466e4..3547bdf09ab0 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -21,6 +21,7 @@ data Command | Save | Read | ShowInventory + | Wield -- | TODO replace with `:` commands | ToggleRevealAll @@ -37,7 +38,9 @@ commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'i') [] = Just ShowInventory +commandFromKey (KChar 'w') [] = Just Wield +-- DEBUG COMMANDS -- commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll commandFromKey _ _ = Nothing |