void rloco(struct obj *obj)
{
xchar tx, ty, otx, oty;
boolean restricted_fall;
int try_limit = 4000;
if (obj->otyp == CORPSE && is_rider(&mons[obj->corpsenm])) {
if (revive_corpse(obj)) return;
}
obj_extract_self(obj);
otx = obj->ox;
oty = obj->oy;
restricted_fall = (otx == 0 && level->dndest.lx);
do {
tx = rn1(COLNO-3,2);
ty = rn2(ROWNO);
if (!--try_limit) break;
} while (!goodpos(level, tx, ty, NULL, 0) ||
/* bug: this lacks provision for handling the Wizard's tower */
(restricted_fall &&
(!within_bounded_area(tx, ty, level->dndest.lx, level->dndest.ly,
level->dndest.hx, level->dndest.hy) ||
(level->dndest.nlx &&
within_bounded_area(tx, ty, level->dndest.nlx, level->dndest.nly,
level->dndest.nhx, level->dndest.nhy)))));
if (flooreffects(obj, tx, ty, "fall")) {
return;
} else if (otx == 0 && oty == 0) {
; /* fell through a trap door; no update of old loc needed */
} else {
if (costly_spot(otx, oty)
&& (!costly_spot(tx, ty) ||
!strchr(in_rooms(level, tx, ty, 0), *in_rooms(level, otx, oty, 0)))) {
if (costly_spot(u.ux, u.uy) &&
strchr(u.urooms, *in_rooms(level, otx, oty, 0)))
addtobill(obj, FALSE, FALSE, FALSE);
else stolen_value(obj, otx, oty, FALSE, FALSE);
}
newsym(otx, oty); /* update old location */
}
place_object(obj, level, tx, ty);
newsym(tx, ty);
}
void
rloco(struct obj *obj)
{
int tx, ty, otx, oty;
otx = obj->ox;
oty = obj->oy;
if (obj->otyp == CORPSE && is_rider(&mons[obj->corpsenm])) {
if (revive_corpse(obj))
return;
}
obj_extract_self(obj);
rloco_pos(level, obj, &tx, &ty);
if (flooreffects(obj, tx, ty, "fall")) {
return;
} else if (otx == 0 && oty == 0) {
; /* fell through a trap door; no update of old loc needed */
} else {
if (costly_spot(otx, oty)
&& (!costly_spot(tx, ty) ||
!strchr(in_rooms(level, tx, ty, 0),
*in_rooms(level, otx, oty, 0)))) {
if (costly_spot(u.ux, u.uy) &&
strchr(u.urooms, *in_rooms(level, otx, oty, 0)))
addtobill(obj, FALSE, FALSE, FALSE);
else
stolen_value(obj, otx, oty, FALSE, FALSE);
}
newsym(otx, oty); /* update old location */
}
place_object(obj, level, tx, ty);
newsym(tx, ty);
}
