From: k21971 <keith.simpson1971@gmail.com>
Date: Mon, 7 Dec 2020 20:53:01 +0000 (+0000)
Subject: Fix: genetic engineers dropping Schroedinger's cat box.
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3d7a3fcc724c0192a4df9b225f253de3ca9f65d7;p=nethack

Fix: genetic engineers dropping Schroedinger's cat box.

Only quantum mechanics are supposed to have a chance of death-dropping the
Schroedinger's cat box.

Slash'Em already had this but it was missed when Genetic engineers were ported
over.
---

diff --git a/doc/fixes37.0 b/doc/fixes37.0
index 3194adae7..c424affbc 100644
--- a/doc/fixes37.0
+++ b/doc/fixes37.0
@@ -412,6 +412,7 @@ options help ('? g') listed all boolean options, then repeated them among
 	but for other sprintf implementations they might cause a crash
 change name of #wizlevelflip to #wizfliplevel
 dwarves could sometimes pass through walls without digging their way
+fix genetic engineers dropping Schroedinger's cat box
 
 curses: 'msg_window' option wasn't functional for curses unless the binary
 	also included tty support
diff --git a/src/makemon.c b/src/makemon.c
index 11725b94c..b9bb36d5f 100644
--- a/src/makemon.c
+++ b/src/makemon.c
@@ -755,7 +755,7 @@ register struct monst *mtmp;
             (void) mongets(mtmp, MUMMY_WRAPPING);
         break;
     case S_QUANTMECH:
-        if (!rn2(20)) {
+        if (!rn2(20) && ptr == &mons[PM_QUANTUM_MECHANIC]) {
             struct obj *catcorpse;
 
             otmp = mksobj(LARGE_BOX, FALSE, FALSE);