Knight quest home level has some saddled warhorses

Also, when creating a saddle in a monster inventory in special
level lua code, automatically saddle the monster, if possible.

dat/Kni-strt.lua

@@ -103,3 +103,7 @@ des.monster({ id = "quasit", x=32, y=00, peaceful=0 })
 des.monster({ id = "quasit", x=34, y=00, peaceful=0 })
 des.monster({ id = "quasit", x=36, y=00, peaceful=0 })
 
+-- Some warhorses
+for i = 1, 2 + nh.rn2(3) do
+    des.monster({ id = "warhorse", peaceful = 1, inventory = function() if percent(50) then des.object("saddle"); end end });
+end

doc/fixes3-7-0.txt

@@ -787,6 +787,7 @@ martial arts users, sasquatches, and heroes wearing kicking boots can
 knights get no caitiff penalty against undead
 candy bars are bright blue in text mode
 towels weigh more than blindfolds
+knight quest home level contains some saddled warhorses
 
 
 Fixes to 3.7.0-x Problems that Were Exposed Via git Repository

src/sp_lev.c

@@ -2198,7 +2198,10 @@ create_object(object* o, struct mkroom* croom)
                 ; /* ['otmp' remains on floor] */
             } else {
                 remove_object(otmp);
-                (void) mpickobj(invent_carrying_monster, otmp);
+                if (otmp->otyp == SADDLE)
+                    put_saddle_on_mon(otmp, invent_carrying_monster);
+                else
+                    (void) mpickobj(invent_carrying_monster, otmp);
             }
         } else {
             struct obj *cobj = container_obj[container_idx - 1];