Function money2mon

src/shk.c:156–178

* Transfer money from inventory to monster when paying * shopkeepers, priests, oracle, succubus, and other demons. * Simple with only gold coins. * This routine will handle money changing when multiple * coin types is implemented, only appropriate * monsters will pay change. (Peaceful shopkeepers, priests * and the oracle try to maintain goodwill while selling * their wares or serv

 *  if the monster kept the change.
 */
long
money2mon(struct monst *mon, long amount)
{
    struct obj *ygold = findgold(gi.invent);

    if (amount <= 0) {
        impossible("%s payment in money2mon!", amount ? "negative" : "zero");
        return 0L;
    }
    if (!ygold || ygold->quan < amount) {
        impossible("Paying without %s gold?", ygold ? "enough" : "");
        return 0L;
    }

    if (ygold->quan > amount)
        ygold = splitobj(ygold, amount);
    else if (ygold->owornmask)
        remove_worn_item(ygold, FALSE); /* quiver */
    freeinv(ygold);
    add_to_minv(mon, ygold);
    disp.botl = TRUE;
    return amount;
}

/*
 *  Transfer money from monster to inventory.