/*
* rloc_to()
*
* Pulls a monster from its current position and places a monster at a new x and
* y. If oldx is COLNO, then the monster was not in the levels.monsters array.
* However, if oldx is COLNO, oldy may still have a value because mtmp is a
* migrating_mon. Worm tails are always placed randomly around the head of the
* worm. This only works for monsters on the current level.
*/
void
rloc_to(struct monst *mtmp, int x, int y)
{
int oldx = mtmp->mx, oldy = mtmp->my;
boolean resident_shk = mtmp->isshk && inhishop(mtmp);
if (x == mtmp->mx && y == mtmp->my) /* that was easy */
return;
if (oldx != COLNO) { /* "pick up" monster */
if (mtmp->wormno)
remove_worm(mtmp);
else {
remove_monster(mtmp->dlevel, oldx, oldy);
if (mtmp->dlevel == level)
newsym(oldx, oldy); /* update old location */
}
}
place_monster(mtmp, x, y); /* put monster down */
update_monster_region(mtmp);
if (mtmp->wormno) /* now put down tail */
place_worm_tail_randomly(mtmp, x, y, rng_main);
if (u.ustuck == mtmp) { /* implies mtmp->dlevel == level */
if (Engulfed) {
u.ux = x;
u.uy = y;
doredraw();
} else
u.ustuck = 0;
}
if (mtmp->dlevel == level)
newsym(x, y); /* update new location */
set_apparxy(mtmp); /* orient monster */
/* In some cases involving migration, the player and monster are currently
on the same square. One of them will move, but we don't want the monster
to have itself in its muxy. */
if (mtmp->mux == mtmp->mx && mtmp->muy == mtmp->my) {
mtmp->mux = COLNO;
mtmp->muy = ROWNO;
}
/* shopkeepers will only teleport if you zap them with a wand of
teleportation or if they've been transformed into a jumpy monster; the
latter only happens if you've attacked them with polymorph */
if (resident_shk && !inhishop(mtmp))
make_angry_shk(mtmp, oldx, oldy);
}
/* check whether monster can arrive at location <x,y> via Tport (or fall) */
static boolean
rloc_pos_ok(int x, int y, /* coordinates of candidate location */
struct monst *mtmp)
{
int xx, yy;
if (!goodpos(level, x, y, mtmp, 0))
return FALSE;
/*
* Check for restricted areas present in some special levels.
*
* `xx' is current column; if 0, then `yy' will contain flag bits
* rather than row: bit #0 set => moving upwards; bit #1 set =>
* inside the Wizard's tower.
*/
xx = mtmp->mx;
yy = mtmp->my;
if (!xx) {
/* no current location (migrating monster arrival) */
if (level->dndest.nlx && On_W_tower_level(&u.uz))
return ((yy & 2) != 0) ^ /* inside xor not within */
!within_bounded_area(x, y, level->dndest.nlx, level->dndest.nly,
level->dndest.nhx, level->dndest.nhy);
if (level->updest.lx && (yy & 1) != COLNO) /* moving up */
return (within_bounded_area
(x, y, level->updest.lx, level->updest.ly,
level->updest.hx, level->updest.hy) &&
(!level->updest.nlx ||
!within_bounded_area(
x, y, level->updest.nlx, level->updest.nly,
level->updest.nhx, level->updest.nhy)));
if (level->dndest.lx && (yy & 1) == COLNO) /* moving down */
return (within_bounded_area
(x, y, level->dndest.lx, level->dndest.ly,
level->dndest.hx, level->dndest.hy) &&
(!level->dndest.nlx ||
!within_bounded_area(
x, y, level->dndest.nlx, level->dndest.nly,
level->dndest.nhx, level->dndest.nhy)));
} else { /* [try to] prevent a shopkeeper or temple priest from being
sent out of his room (caller might resort to goodpos() if
we report failure here, so this isn't full prevention) */
if (mtmp->isshk && inhishop(mtmp)) {
if (level->locations[x][y].roomno != ESHK(mtmp)->shoproom)
return FALSE;
} else if (mtmp->ispriest && inhistemple(mtmp)) {
if (level->locations[x][y].roomno != EPRI(mtmp)->shroom)
return FALSE;
}
/* current location is <xx,yy> */
if (!tele_jump_ok(xx, yy, x, y))
return FALSE;
}
/* <x,y> is ok */
return TRUE;
}
/*
* rloc_to()
*
* Pulls a monster from its current position and places a monster at
* a new x and y. If oldx is 0, then the monster was not in the levels.monsters
* array. However, if oldx is 0, oldy may still have a value because mtmp is a
* migrating_mon. Worm tails are always placed randomly around the head of
* the worm.
*/
void
rloc_to(struct monst *mtmp, int x, int y)
{
int oldx = mtmp->mx, oldy = mtmp->my;
boolean resident_shk = mtmp->isshk && inhishop(mtmp);
if (x == mtmp->mx && y == mtmp->my) /* that was easy */
return;
if (oldx) { /* "pick up" monster */
if (mtmp->wormno)
remove_worm(mtmp);
else {
remove_monster(level, oldx, oldy);
newsym(oldx, oldy); /* update old location */
}
}
place_monster(mtmp, x, y); /* put monster down */
update_monster_region(mtmp);
if (mtmp->wormno) /* now put down tail */
place_worm_tail_randomly(mtmp, x, y);
if (u.ustuck == mtmp) {
if (u.uswallow) {
u.ux = x;
u.uy = y;
doredraw();
} else
u.ustuck = 0;
}
newsym(x, y); /* update new location */
set_apparxy(mtmp); /* orient monster */
/* shopkeepers will only teleport if you zap them with a wand of
teleportation or if they've been transformed into a jumpy monster; the
latter only happens if you've attacked them with polymorph */
if (resident_shk && !inhishop(mtmp))
make_angry_shk(mtmp, oldx, oldy);
}
/*
* Move for priests and shopkeepers. Called from shk_move() and pri_move().
* Valid returns are 1: moved 0: didn't -1: let m_move do it -2: died.
*/
int
move_special(struct monst *mtmp, boolean in_his_shop, schar appr,
boolean uondoor, boolean avoid, xchar omx, xchar omy, xchar gx,
xchar gy)
{
xchar nx, ny, nix, niy;
schar i;
schar chcnt, cnt;
coord poss[9];
long info[9];
long allowflags;
struct obj *ib = NULL;
if (omx == gx && omy == gy)
return 0;
if (mtmp->mconf) {
avoid = FALSE;
appr = 0;
}
nix = omx;
niy = omy;
if (mtmp->isshk)
allowflags = ALLOW_SSM;
else
allowflags = ALLOW_SSM | ALLOW_SANCT;
if (passes_walls(mtmp->data))
allowflags |= (ALLOW_ROCK | ALLOW_WALL);
if (throws_rocks(mtmp->data))
allowflags |= ALLOW_ROCK;
if (tunnels(mtmp->data))
allowflags |= ALLOW_DIG;
if (!nohands(mtmp->data) && !verysmall(mtmp->data)) {
allowflags |= OPENDOOR;
if (m_carrying(mtmp, SKELETON_KEY))
allowflags |= BUSTDOOR;
}
if (is_giant(mtmp->data))
allowflags |= BUSTDOOR;
cnt = mfndpos(mtmp, poss, info, allowflags);
if (mtmp->isshk && avoid && uondoor) { /* perhaps we cannot avoid him */
for (i = 0; i < cnt; i++)
if (!(info[i] & NOTONL))
goto pick_move;
avoid = FALSE;
}
#define GDIST(x,y) (dist2(x,y,gx,gy))
pick_move:
chcnt = 0;
for (i = 0; i < cnt; i++) {
nx = poss[i].x;
ny = poss[i].y;
if (IS_ROOM(level->locations[nx][ny].typ) ||
(mtmp->isshk && (!in_his_shop || ESHK(mtmp)->following))) {
if (avoid && (info[i] & NOTONL))
continue;
if ((!appr && !rn2(++chcnt)) ||
(appr && GDIST(nx, ny) < GDIST(nix, niy))) {
nix = nx;
niy = ny;
}
}
}
if (mtmp->ispriest && avoid && nix == omx && niy == omy &&
onlineu(omx, omy)) {
/* might as well move closer as long it's going to stay lined up */
avoid = FALSE;
goto pick_move;
}
if (nix != omx || niy != omy) {
remove_monster(level, omx, omy);
place_monster(mtmp, nix, niy);
newsym(nix, niy);
if (mtmp->isshk && !in_his_shop && inhishop(mtmp))
check_special_room(FALSE);
if (ib) {
if (cansee(mtmp->mx, mtmp->my))
pline("%s picks up %s.", Monnam(mtmp),
distant_name(ib, doname));
obj_extract_self(ib);
mpickobj(mtmp, ib);
}
return 1;
}
return 0;
}
