mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace previously-wielded items when wielding

Browse source 
When wielding a new item, put any previously-wielded items back in the
character's backpack.
This commit is contained in:
Griffin Smith 2019-12-31 11:23:54 -05:00
parent ffc8e793d5
commit 0373e06c02
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Xanthous/App.hs
View file

@ -250,7 +250,9 @@ handleCommand Wield = do
selectItemFromInventory_ ["wield", "menu"] Cancellable asWieldedItem selectItemFromInventory_ ["wield", "menu"] Cancellable asWieldedItem
(say_ ["wield", "nothing"]) (say_ ["wield", "nothing"])
$ \(MenuResult item) -> do $ \(MenuResult item) -> do
character . inventory . wielded .= inRightHand item prevItems <- character . inventory . wielded <<.= inRightHand item
character . inventory . backpack
<>= fromList (prevItems ^.. wieldedItems . wieldedItem)
say ["wield", "wielded"] item say ["wield", "wielded"] item
continue continue