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

Actually heal the character when they eat food

Browse source
This commit is contained in:
Griffin Smith 2019-10-12 12:23:41 -04:00
parent 2d72c0e413
commit d2b81df6b8
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Xanthous/App.hs
View file

@ -175,6 +175,8 @@ handleCommand Eat = do
in before <> fromMaybe Empty (tailMay after) in before <> fromMaybe Empty (tailMay after)
let msg = fromMaybe (Messages.lookup ["eat", "eat"]) let msg = fromMaybe (Messages.lookup ["eat", "eat"])
$ edibleItem ^. eatMessage $ edibleItem ^. eatMessage
character . characterHitpoints +=
edibleItem ^. hitpointsHealed . to fromIntegral
message msg $ object ["item" A..= item] message msg $ object ["item" A..= item]
continue continue