From: Pasi Kallinen <paxed@alt.org>
Date: Mon, 19 Sep 2016 12:44:04 +0000 (+0300)
Subject: Horses have a tiny chance of being generated with a saddle
X-Git-Tag: NetHack-3.6.1_RC01~606
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=996dd7192d05f87bac35f3ed5f022076532fbd4a;p=nethack

Horses have a tiny chance of being generated with a saddle

Saddles are rare. Make them less so by giving domestic saddleable
creatures 1% chance of being generated with a saddle.
---

diff --git a/src/makemon.c b/src/makemon.c
index b38f64fa4..a058cb16c 100644
--- a/src/makemon.c
+++ b/src/makemon.c
@@ -1302,6 +1302,13 @@ int mmflags;
             m_initweap(mtmp); /* equip with weapons / armor */
         m_initinv(mtmp); /* add on a few special items incl. more armor */
         m_dowear(mtmp, TRUE);
+
+        if (!rn2(100) && is_domestic(ptr)
+            && can_saddle(mtmp) && !which_armor(mtmp, W_SADDLE)) {
+            struct obj *otmp = mksobj(SADDLE, TRUE, FALSE);
+            put_saddle_on_mon(otmp, mtmp);
+        }
+
     } else {
         /* no initial inventory is allowed */
         if (mtmp->minvent)