/*
* Steal gold coins only. Leprechauns don't care for lesser coins.
*/
void stealgold(struct monst *mtmp)
{
struct obj *fgold = gold_at(level, u.ux, u.uy);
struct obj *ygold;
long tmp;
/* skip lesser coins on the floor */
while (fgold && fgold->otyp != GOLD_PIECE) fgold = fgold->nexthere;
/* Do you have real gold? */
ygold = findgold(invent);
if (fgold && ( !ygold || fgold->quan > ygold->quan || !rn2(5))) {
obj_extract_self(fgold);
add_to_minv(mtmp, fgold);
newsym(u.ux, u.uy);
pline("%s quickly snatches some gold from between your %s!",
Monnam(mtmp), makeplural(body_part(FOOT)));
if (!ygold || !rn2(5)) {
if (!tele_restrict(mtmp)) rloc(level, mtmp, FALSE);
monflee(mtmp, 0, FALSE, FALSE);
}
} else if (ygold) {
const int gold_price = objects[GOLD_PIECE].oc_cost;
tmp = (somegold(money_cnt(invent)) + gold_price - 1) / gold_price;
tmp = min(tmp, ygold->quan);
if (tmp < ygold->quan) ygold = splitobj(ygold, tmp);
freeinv(ygold);
add_to_minv(mtmp, ygold);
pline("Your purse feels lighter.");
if (!tele_restrict(mtmp)) rloc(level, mtmp, FALSE);
monflee(mtmp, 0, FALSE, FALSE);
iflags.botl = 1;
}
}
/* look for gold, on the floor or in monsters' possession */
int gold_detect(struct obj *sobj, boolean *scr_known)
{
struct obj *obj;
struct monst *mtmp;
int uw = u.uinwater;
struct obj *temp;
boolean stale;
*scr_known = stale = clear_stale_map(COIN_CLASS, sobj->blessed ? GOLD : 0);
/* look for gold carried by monsters (might be in a container) */
for (mtmp = level->monlist; mtmp; mtmp = mtmp->nmon) {
if (DEADMONSTER(mtmp)) continue; /* probably not needed in this case but... */
if (findgold(mtmp->minvent) || monsndx(mtmp->data) == PM_GOLD_GOLEM) {
*scr_known = TRUE;
goto outgoldmap; /* skip further searching */
} else for (obj = mtmp->minvent; obj; obj = obj->nobj)
if (sobj->blessed && o_material(obj, GOLD)) {
*scr_known = TRUE;
goto outgoldmap;
} else if (o_in(obj, COIN_CLASS)) {
*scr_known = TRUE;
goto outgoldmap; /* skip further searching */
}
}
/* look for gold objects */
for (obj = level->objlist; obj; obj = obj->nobj) {
if (sobj->blessed && o_material(obj, GOLD)) {
*scr_known = TRUE;
if (obj->ox != u.ux || obj->oy != u.uy) goto outgoldmap;
} else if (o_in(obj, COIN_CLASS)) {
*scr_known = TRUE;
if (obj->ox != u.ux || obj->oy != u.uy) goto outgoldmap;
}
}
if (!*scr_known) {
/* no gold found on floor or monster's inventory.
adjust message if you have gold in your inventory */
char buf[BUFSZ];
if (youmonst.data == &mons[PM_GOLD_GOLEM]) {
sprintf(buf, "You feel like a million %s!", currency(2L));
} else if (hidden_gold() || money_cnt(invent))
strcpy(buf, "You feel worried about your future financial situation.");
else
strcpy(buf, "You feel materially poor.");
strange_feeling(sobj, buf);
return 1;
}
/* only under me - no separate display required */
if (stale) doredraw();
pline("You notice some gold between your %s.", makeplural(body_part(FOOT)));
return 0;
outgoldmap:
cls();
u.uinwater = 0;
/* Discover gold locations. */
for (obj = level->objlist; obj; obj = obj->nobj) {
if (sobj->blessed && (temp = o_material(obj, GOLD))) {
if (temp != obj) {
temp->ox = obj->ox;
temp->oy = obj->oy;
}
map_object(temp,1);
} else if ((temp = o_in(obj, COIN_CLASS))) {
if (temp != obj) {
temp->ox = obj->ox;
temp->oy = obj->oy;
}
map_object(temp,1);
}
}
for (mtmp = level->monlist; mtmp; mtmp = mtmp->nmon) {
if (DEADMONSTER(mtmp)) continue; /* probably overkill here */
if (findgold(mtmp->minvent) || monsndx(mtmp->data) == PM_GOLD_GOLEM) {
struct obj gold;
gold.otyp = GOLD_PIECE;
gold.ox = mtmp->mx;
gold.oy = mtmp->my;
map_object(&gold,1);
} else for (obj = mtmp->minvent; obj; obj = obj->nobj)
if (sobj->blessed && (temp = o_material(obj, GOLD))) {
temp->ox = mtmp->mx;
temp->oy = mtmp->my;
map_object(temp,1);
break;
} else if ((temp = o_in(obj, COIN_CLASS))) {
temp->ox = mtmp->mx;
temp->oy = mtmp->my;
map_object(temp,1);
break;
}
}
newsym(u.ux,u.uy);
pline("You feel very greedy, and sense gold!");
exercise(A_WIS, TRUE);
win_pause_output(P_MAP);
doredraw();
u.uinwater = uw;
if (Underwater) under_water(2);
if (u.uburied) under_ground(2);
return 0;
}
