Function angry_shk_exists

src/shk.c:1330–1340

}

staticfn boolean
angry_shk_exists(void)
{
    struct monst *shkp;

    for (shkp = next_shkp(fmon, FALSE); shkp;
         shkp = next_shkp(shkp->nmon, FALSE))
        if (ANGRY(shkp))
            return TRUE;
    return FALSE;
}

/* remove previously applied surcharge from all billed items */
staticfn void