Function make_angry_shk

src/shk.c:1469–1489

Used when the shkp is teleported or falls (ox == 0) out of his shop, or when the player is not on a costly_spot and he damages something inside the shop. These conditions must be checked by the calling function. */ ARGSUSED*/

   the shop.  These conditions must be checked by the calling function. */
/*ARGSUSED*/
void
make_angry_shk(
    struct monst *shkp,
    coordxy ox UNUSED, coordxy oy UNUSED)
    /* <ox,oy> predate 'noit_Monnam()', let alone Shknam() */
{
    struct eshk *eshkp = ESHK(shkp);

    /* all pending shop transactions are now "past due" */
    if (eshkp->billct || eshkp->debit || eshkp->loan || eshkp->credit) {
        eshkp->robbed += (addupbill(shkp) + eshkp->debit + eshkp->loan);
        eshkp->robbed -= eshkp->credit;
        if (eshkp->robbed < 0L)
            eshkp->robbed = 0L;
        /* billct, debit, loan, and credit will be cleared by setpaid */
        setpaid(shkp);
    }

    pline("%s %s!", Shknam(shkp), !ANGRY(shkp) ? "gets angry" : "is furious");
    hot_pursuit(shkp);
}

static const char
        no_money[] = "Moreover, you%s have no gold.",