From f0698e1dcaf6b6c6ca4762b3a8a74cff537d2d48 Mon Sep 17 00:00:00 2001
From: Pasi Kallinen <paxed@alt.org>
Date: Mon, 2 Oct 2023 20:25:55 +0300
Subject: [PATCH] Bone devils summon skeletons

Skeletons are extremely rare, and not generated at random,
and bone devils are basically just a speed bump when they appear.
Make both more interesting.

Idea by copperwater <aosdict@gmail.com>
---
 doc/fixes3-7-0.txt | 1 +
 src/minion.c       | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/doc/fixes3-7-0.txt b/doc/fixes3-7-0.txt
index 719d17d76..029b552a6 100644
--- a/doc/fixes3-7-0.txt
+++ b/doc/fixes3-7-0.txt
@@ -1251,6 +1251,7 @@ use #monster to make dragon steed breathe
 wand of probing reveals tin contents
 steam vortices and fog clouds leave steam clouds behind
 fog clouds maintain any clouds they are in, even poisonous ones
+bone devils summon skeletons
 
 
 Fixes to 3.7.0-x General Problems Exposed Via git Repository
diff --git a/src/minion.c b/src/minion.c
index 45affcf3b..f7b99bb91 100644
--- a/src/minion.c
+++ b/src/minion.c
@@ -91,6 +91,9 @@ msummon(struct monst *mon)
                                                         : ndemon(atyp);
         cnt = ((dtype != NON_PM)
                && !rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;
+    } else if (ptr == &mons[PM_BONE_DEVIL]) {
+        dtype = PM_SKELETON;
+        cnt = 1;
     } else if (is_ndemon(ptr)) {
         dtype = (!rn2(20)) ? dlord(atyp) : (!rn2(6)) ? ndemon(atyp)
                                                      : monsndx(ptr);