Function pacify_shk

src/shk.c:1343–1358

remove previously applied surcharge from all billed items */

/* remove previously applied surcharge from all billed items */
staticfn void
pacify_shk(struct monst *shkp, boolean clear_surcharge)
{
    NOTANGRY(shkp) = TRUE; /* make peaceful */
    if (clear_surcharge && ESHK(shkp)->surcharge) {
        struct bill_x *bp = ESHK(shkp)->bill_p;
        int ct = ESHK(shkp)->billct;

        ESHK(shkp)->surcharge = FALSE;
        while (ct-- > 0) {
            long reduction = (bp->price + 3L) / 4L;
            bp->price -= reduction; /* undo 33% increase */
            bp++;
        }
    }
}

/* add aggravation surcharge to all billed items */
staticfn void