diff options
Diffstat (limited to 'src/Xanthous/App.hs')
| -rw-r--r-- | src/Xanthous/App.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs index 24073c51097a..ea1405e463fe 100644 --- a/src/Xanthous/App.hs +++ b/src/Xanthous/App.hs @@ -548,9 +548,16 @@ attackAt pos = msg <- uses character getAttackMessage message msg msgParams entities . ix creatureID . positioned .= SomeEntity creature' + + whenM (uses character $ isNothing . weapon) + $ whenM (chance (0.08 :: Float)) $ do + say_ ["combat", "fistSelfDamage"] + character %= Character.damage 1 + stepGame -- TODO + weapon chr = chr ^? inventory . wielded . wieldedItems . wieldableItem getAttackMessage chr = - case chr ^? inventory . wielded . wieldedItems . wieldableItem of + case weapon chr of Just wi -> fromMaybe (Messages.lookup ["combat", "hit", "generic"]) $ wi ^. attackMessage |