Stop instant creature death, allow for more overkill

2024-12-23 15:54:01 +00:00
parent ca61ae0c64
commit 205c0a5c19
6 changed files with 95 additions and 82 deletions
@@ -80,6 +80,16 @@ checkDeath cr w
    | _crHP cr > 0 =
        w
            & cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage .~ []
+    | _crHP cr <= -200 =
+        w
+            & dropByState cr -- the order of
+            & removecr -- these is important
+            & stopSoundFrom (CrWeaponSound (_crID cr) 0)
+            & addCrGibs cr
+    | _crHP cr > -200 && _crDeathTimer cr < 5  =
+        w
+            & cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage .~ []
+            & cWorld . lWorld . creatures . ix (_crID cr) . crDeathTimer +~ 1
    | otherwise =
        w
            & dropByState cr -- the order of