diff options
| author | Griffin Smith <grfn@gws.fyi> | 2021-06-18T17·04-0400 |
|---|---|---|
| committer | grfn <grfn@gws.fyi> | 2021-06-18T17·51+0000 |
| commit | 4d2402a64ec3ca28e87ebc264f2064f310ca68f5 (patch) | |
| tree | 90e5c9e48a0da815d0370c7881e6332d9dc74d2d /users/grfn/xanthous/src/Xanthous/Entities | |
| parent | fb5bec8d952b57fe4afa0d842ee606cf4e548563 (diff) | |
feat(xanthous): Add an auto-rest command r/2675
Add a command that automatically rests (essentially just stepping the game forwards) until the character's hitpoints are back to full. Currently due to the time it takes for the character to heal this takes a bit too long - my thought there is to make the per-step delay for autocommands different depending on the specific autocommand. Change-Id: I40378c29d3d9d19e9787af1f015bde65fd08868c Reviewed-on: https://cl.tvl.fyi/c/depot/+/3221 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Entities')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Entities/Character.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Entities/Character.hs b/users/grfn/xanthous/src/Xanthous/Entities/Character.hs index c18d726a4b..f27ed1e475 100644 --- a/users/grfn/xanthous/src/Xanthous/Entities/Character.hs +++ b/users/grfn/xanthous/src/Xanthous/Entities/Character.hs @@ -32,6 +32,7 @@ module Xanthous.Entities.Character , mkCharacter , pickUpItem , isDead + , isFullyHealed , damage ) where -------------------------------------------------------------------------------- @@ -264,6 +265,11 @@ characterDamage = fromMaybe defaultCharacterDamage . preview (inventory . wielded . wieldedItems . wieldableItem . Raw.damage) +-- | Is the character fully healed up to or past their initial hitpoints? +isFullyHealed :: Character -> Bool +isFullyHealed = (>= initialHitpoints) . characterHitpoints + +-- | Is the character dead? isDead :: Character -> Bool isDead = (== 0) . characterHitpoints |