Function paygd

src/vault.c:1204–1247

Routine when dying or quitting with a vault guard around */

/* Routine when dying or quitting with a vault guard around */
void
paygd(boolean silently)
{
    struct monst *grd = findgd();
    long umoney = money_cnt(gi.invent);
    struct obj *coins, *nextcoins;
    int gdx, gdy;
    char buf[BUFSZ];

    if (!umoney || !grd)
        return;

    if (u.uinvault) {
        if (!silently)
            Your("%ld %s goes into the Magic Memory Vault.",
                 umoney, currency(umoney));
        gdx = u.ux;
        gdy = u.uy;
    } else {
        if (grd->mpeaceful) /* peaceful guard has no "right" to your gold */
            goto remove_guard;

        mnexto(grd, RLOC_NOMSG);
        if (!silently)
            pline("%s remits your gold to the vault.", Monnam(grd));
        gdx = svr.rooms[EGD(grd)->vroom].lx + rn2(2);
        gdy = svr.rooms[EGD(grd)->vroom].ly + rn2(2);
        Sprintf(buf, "To Croesus: here's the gold recovered from %s the %s.",
                svp.plname,
                pmname(&mons[u.umonster], flags.female ? FEMALE : MALE));
        make_grave(gdx, gdy, buf);
    }
    for (coins = gi.invent; coins; coins = nextcoins) {
        nextcoins = coins->nobj;
        if (objects[coins->otyp].oc_class == COIN_CLASS) {
            freeinv(coins);
            place_object(coins, gdx, gdy);
            stackobj(coins);
        }
    }
 remove_guard:
    mongone(grd);
    return;
}

/*
 * amount of gold in carried containers