From b3c69446937892b9e3641690ce8f09bc2a3deb6d Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 19 Jun 2022 22:33:49 +0100
Subject: [PATCH] Hack to prevent creature dying with greater than 0 hp

---
 src/Dodge/Creature/State.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Dodge/Creature/State.hs b/src/Dodge/Creature/State.hs
index 7d1af0b77..541e0ffd0 100644
--- a/src/Dodge/Creature/State.hs
+++ b/src/Dodge/Creature/State.hs
@@ -81,6 +81,7 @@ checkDeath cr w
     removecr
         | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)
             . (creatures . ix (_crID cr) . crPict .~ const mempty)
+            . (creatures . ix (_crID cr) . crHP   .~ 0) -- hack to get around player creature being killed but left with more than 0 hp
         | otherwise  = creatures . at (_crID cr) .~ Nothing
 corpseOrGib :: Creature -> World -> World
 corpseOrGib cr w = case maxDamageType (_crDamage (_crState cr)) of