From 996dd7192d05f87bac35f3ed5f022076532fbd4a Mon Sep 17 00:00:00 2001
From: Pasi Kallinen <paxed@alt.org>
Date: Mon, 19 Sep 2016 15:44:04 +0300
Subject: [PATCH] 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.
---
 src/makemon.c | 7 +++++++
 1 file changed, 7 insertions(+)

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)