Function money2u

src/shk.c:185–212

* Transfer money from monster to inventory. * Used when the shopkeeper pay for items, and when * the priest gives you money for an ale. */

 *  the priest gives you money for an ale.
 */
void
money2u(struct monst *mon, long amount)
{
    struct obj *mongold = findgold(mon->minvent);

    if (amount <= 0) {
        impossible("%s payment in money2u!", amount ? "negative" : "zero");
        return;
    }
    if (!mongold || mongold->quan < amount) {
        impossible("%s paying without %s gold?", a_monnam(mon),
                   mongold ? "enough" : "");
        return;
    }

    if (mongold->quan > amount)
        mongold = splitobj(mongold, amount);
    obj_extract_self(mongold);

    if (!merge_choice(gi.invent, mongold)
            && inv_cnt(FALSE) >= invlet_basic) {
        You("have no room for the gold!");
        dropy(mongold);
    } else {
        addinv(mongold);
        disp.botl = TRUE;
    }
}

staticfn struct monst *
next_shkp(struct monst *shkp, boolean withbill)