From 5e7327cb39a25a12896744c3043077f9c8f58c0d Mon Sep 17 00:00:00 2001
From: Alex Smith <ais523@nethack4.org>
Date: Wed, 6 Dec 2017 18:49:08 +0000
Subject: [PATCH] TDTTOE: Discourage generating elf corpses on sleeping gas
 traps

These are elven /adventurers/, so they get sleep resistance at
experience level 4 (not immediately), and so there's an outside
chance they'll be killed by a sleeping gas trap. This commit
reduces the probability, though.
---
 src/mklev.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/mklev.c b/src/mklev.c
index c8fa866b5..e3d28891d 100644
--- a/src/mklev.c
+++ b/src/mklev.c
@@ -1461,6 +1461,12 @@ coord *tm;
         case 0:
             /* elf corpses are the rarest as they're the most useful */
             victim_mnum = PM_ELF;
+            /* elven adventurers get sleep resistance early; so don't
+               generate elf corpses on sleeping gas traps unless a)
+               we're on dlvl 2 (1 is impossible) and b) we pass a coin
+               flip */
+            if (kind == SLP_GAS_TRAP && !(lvl <= 2 && rn2(2)))
+                victim_mnum = PM_HUMAN;
             break;
         case 1: case 2:
             victim_mnum = PM_DWARF;