From: Pasi Kallinen <paxed@alt.org>
Date: Wed, 18 Mar 2020 07:16:22 +0000 (+0200)
Subject: Make Juiblex resist magical digging from inside
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9ab6994eae995bb78f200251e6b8b96414ec48ac;p=nethack

Make Juiblex resist magical digging from inside

Juiblex should be a little bit harder to beat than zapping a digging
wand once you've gotten swallowed and then whacking him once.

Make his HP halve every time you zap digging instead of setting it
to 1.

Change via UnNetHack.
---

diff --git a/doc/fixes37.0 b/doc/fixes37.0
index 16e3a4feb..1a63ba915 100644
--- a/doc/fixes37.0
+++ b/doc/fixes37.0
@@ -83,6 +83,7 @@ revamp amnesia to forget skills instead of objects or maps
 when Punished and carrying the iron ball and levitating, hurtling in the
 	opposite direction of a thrown object didn't bring along the chain
 recognize "kirin" as alias for "ki-rin" when asked to create a monster
+make unique swallowing monsters (Juiblex) resist magical digging from inside
 
 
 Fixes to 3.7.0-x Problems that Were Exposed Via git Repository
diff --git a/src/dig.c b/src/dig.c
index 64dc5f117..05cdbbdd7 100644
--- a/src/dig.c
+++ b/src/dig.c
@@ -1409,7 +1409,10 @@ zap_dig()
             if (is_animal(mtmp->data))
                 You("pierce %s %s wall!", s_suffix(mon_nam(mtmp)),
                     mbodypart(mtmp, STOMACH));
-            mtmp->mhp = 1; /* almost dead */
+            if (unique_corpstat(mtmp->data))
+                mtmp->mhp = (mtmp->mhp + 1) / 2;
+            else
+                mtmp->mhp = 1; /* almost dead */
             expels(mtmp, mtmp->data, !is_animal(mtmp->data));
         }
         return;