Actually heal the character when they eat food
This commit is contained in:
parent
2d72c0e413
commit
d2b81df6b8
1 changed files with 2 additions and 0 deletions
|
@ -175,6 +175,8 @@ handleCommand Eat = do
|
|||
in before <> fromMaybe Empty (tailMay after)
|
||||
let msg = fromMaybe (Messages.lookup ["eat", "eat"])
|
||||
$ edibleItem ^. eatMessage
|
||||
character . characterHitpoints +=
|
||||
edibleItem ^. hitpointsHealed . to fromIntegral
|
||||
message msg $ object ["item" A..= item]
|
||||
continue
|
||||
|
||||
|
|
Loading…
Reference in a new issue