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/Game/Draw.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/Game/Draw.hs')
| -rw-r--r-- | src/Xanthous/Game/Draw.hs | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/src/Xanthous/Game/Draw.hs b/src/Xanthous/Game/Draw.hs index 09015d0688..d98b48c027 100644 --- a/src/Xanthous/Game/Draw.hs +++ b/src/Xanthous/Game/Draw.hs @@ -112,19 +112,14 @@ drawPanel game panel drawWielded :: Wielded -> Widget Name drawWielded (Hands Nothing Nothing) = emptyWidget drawWielded (DoubleHanded i) = - txt $ "You are holding " <> description i <> " in both hands" - drawWielded (Hands l r) = - maybe - emptyWidget - (\i -> - txt $ "You are holding " <> description i <> " in your left hand") - l - <=> - maybe - emptyWidget - (\i -> - txt $ "You are holding " <> description i <> " in your right hand") - r + txtWrap $ "You are holding " <> description i <> " in both hands" + drawWielded (Hands l r) = drawHand "left" l <=> drawHand "right" r + drawHand side = maybe emptyWidget $ \i -> + txtWrap ( "You are holding " + <> description i + <> " in your " <> side <> " hand" + ) + <=> txt " " drawBackpack :: Vector Item -> Widget Name drawBackpack Empty = txtWrap "Your backpack is empty right now." |