From: Pasi Kallinen <paxed@alt.org>
Date: Tue, 24 Nov 2015 09:16:03 +0000 (+0200)
Subject: Fix infinite throne looting when confused
X-Git-Tag: NetHack-3.6.0_RC01~22
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3a1e9ccd80965ee60d457404606c51ff9a51a05b;p=nethack

Fix infinite throne looting when confused

This could be used to generate monsters ad infinitum.
---

diff --git a/src/pickup.c b/src/pickup.c
index 1d621b48c..0fa4e65cc 100644
--- a/src/pickup.c
+++ b/src/pickup.c
@@ -1818,10 +1818,13 @@ reverse_loot()
                 boxdummy = zeroobj, boxdummy.otyp = SPE_WIZARD_LOCK;
                 (void) boxlock(coffers, &boxdummy);
             }
-        } else if ((mon = makemon(courtmon(), x, y, NO_MM_FLAGS)) != 0) {
+        } else if (levl[x][y].looted != T_LOOTED &&
+                   (mon = makemon(courtmon(), x, y, NO_MM_FLAGS)) != 0) {
             freeinv(goldob);
             add_to_minv(mon, goldob);
             pline("The exchequer accepts your contribution.");
+            if (!rn2(10))
+                levl[x][y].looted = T_LOOTED;
         } else {
             You("drop %s.", doname(goldob));
             dropx(goldob);