From 9b4f38eebe8c08e2fa4dae583515b59913caf9b2 Mon Sep 17 00:00:00 2001 From: Pasi Kallinen Date: Thu, 5 Dec 2024 16:44:05 +0200 Subject: [PATCH] Blessed scroll of taming increases tameness of pets --- doc/fixes3-7-0.txt | 1 + src/read.c | 6 ++++++ 2 files changed, 7 insertions(+) diff --git a/doc/fixes3-7-0.txt b/doc/fixes3-7-0.txt index 40f9c5219..d4214446c 100644 --- a/doc/fixes3-7-0.txt +++ b/doc/fixes3-7-0.txt @@ -1484,6 +1484,7 @@ when hero who is poly'd into metallivore form eats a tin, bypass "smells like digging in ice was handled inconsistently, particularly if done at the span spot in front of closed drawbridge angry god may remove an intrinsic +blessed scroll of taming increases tameness of already tame creatures Fixes to 3.7.0-x General Problems Exposed Via git Repository diff --git a/src/read.c b/src/read.c index 4110894ae..e489ea092 100644 --- a/src/read.c +++ b/src/read.c @@ -1038,6 +1038,12 @@ maybe_tame(struct monst *mtmp, struct obj *sobj) not tame the target, so call it even if taming gets resisted */ if (!resist(mtmp, sobj->oclass, 0, NOTELL) || mtmp->isshk) (void) tamedog(mtmp, (struct obj *) 0, FALSE); + if (sobj->blessed && was_tame && mtmp->mtame) { + int new_tame = min(10, ACURR(A_CHA) / 2); + + if (mtmp->mtame < new_tame) + mtmp->mtame = new_tame; + } if ((!was_peaceful && mtmp->mpeaceful) || (!was_tame && mtmp->mtame)) return 1; }