void migrate_to_level(
struct monst *mtmp,
xchar tolev, /* destination level */
xchar xyloc, /* MIGR_xxx destination xy location: */
coord *cc) /* optional destination coordinates */
{
struct obj *obj;
d_level new_lev;
xchar xyflags;
int num_segs = 0; /* count of worm segments */
if (mtmp->isshk)
set_residency(mtmp, TRUE);
if (mtmp->wormno) {
int cnt;
/* **** NOTE: worm is truncated to # segs = max wormno size **** */
cnt = count_wsegs(mtmp);
num_segs = min(cnt, MAX_NUM_WORMS - 1);
wormgone(mtmp);
}
/* set minvent's obj->no_charge to 0 */
for (obj = mtmp->minvent; obj; obj = obj->nobj) {
if (Has_contents(obj))
picked_container(obj); /* does the right thing */
obj->no_charge = 0;
}
if (mtmp->mleashed) {
mtmp->mtame--;
m_unleash(mtmp, TRUE);
}
relmon(mtmp);
mtmp->nmon = migrating_mons;
migrating_mons = mtmp;
newsym(mtmp->mx,mtmp->my);
new_lev.dnum = ledger_to_dnum((xchar)tolev);
new_lev.dlevel = ledger_to_dlev((xchar)tolev);
/* overload mtmp->[mx,my], mtmp->[mux,muy], and mtmp->mtrack[] as */
/* destination codes (setup flag bits before altering mx or my) */
xyflags = (depth(&new_lev) < depth(&u.uz)); /* 1 => up */
if (In_W_tower(mtmp->mx, mtmp->my, &u.uz)) xyflags |= 2;
mtmp->wormno = num_segs;
mtmp->mlstmv = moves;
mtmp->mtrack[1].x = cc ? cc->x : mtmp->mx;
mtmp->mtrack[1].y = cc ? cc->y : mtmp->my;
mtmp->mtrack[0].x = xyloc;
mtmp->mtrack[0].y = xyflags;
mtmp->mux = new_lev.dnum;
mtmp->muy = new_lev.dlevel;
mtmp->mx = mtmp->my = 0; /* this implies migration */
}
void
migrate_to_level(struct monst *mtmp, xchar tolev, /* destination level */
xchar xyloc, /* MIGR_xxx destination xy location: */
coord * cc)
{ /* optional destination coordinates */
struct obj *obj;
d_level new_lev;
xchar xyflags;
int num_segs = 0; /* count of worm segments */
if (mtmp->isshk)
set_residency(mtmp, TRUE);
if (mtmp->wormno) {
int cnt;
/* **** NOTE: worm is truncated to # segs = max wormno size **** */
cnt = count_wsegs(mtmp);
num_segs = min(cnt, MAX_NUM_WORMS - 1);
wormgone(mtmp);
}
/* set minvent's obj->no_charge to 0 */
for (obj = mtmp->minvent; obj; obj = obj->nobj) {
if (Has_contents(obj))
picked_container(obj); /* does the right thing */
obj->no_charge = 0;
}
if (mtmp->mleashed) {
mtmp->mtame--;
m_unleash(mtmp, TRUE);
}
relmon(mtmp);
mtmp->nmon = migrating_mons;
migrating_mons = mtmp;
if (mtmp->dlevel == level)
newsym(mtmp->mx, mtmp->my);
/* The dlevel pointer is meaningless for a migrating monster. Set it to NULL
so that any uses of it are detected quickly via the resulting
segfault. */
mtmp->dlevel = NULL;
new_lev.dnum = ledger_to_dnum((xchar) tolev);
new_lev.dlevel = ledger_to_dlev((xchar) tolev);
/* set migration data */
xyflags = (depth(&new_lev) < depth(&u.uz)); /* 1 => up */
if (In_W_tower(mtmp->mx, mtmp->my, &u.uz))
xyflags |= 2;
mtmp->wormno = num_segs;
mtmp->mlstmv = moves;
mtmp->xlocale = cc ? cc->x : mtmp->mx;
mtmp->ylocale = cc ? cc->y : mtmp->my;
mtmp->xyloc = xyloc;
mtmp->xyflags = xyflags;
mtmp->mux = new_lev.dnum;
mtmp->muy = new_lev.dlevel;
mtmp->mx = COLNO;
mtmp->my = ROWNO; /* this implies migration */
}
/* called when you move to another level
* pets_only: true for ascension or final escape */
void
keepdogs(boolean pets_only)
{
struct monst *mtmp, *mtmp2;
struct obj *obj;
int num_segs;
boolean stay_behind;
for (mtmp = level->monlist; mtmp; mtmp = mtmp2) {
mtmp2 = mtmp->nmon;
if (DEADMONSTER(mtmp))
continue;
if (pets_only && !mtmp->mtame)
continue;
if (((monnear(mtmp, u.ux, u.uy) && levl_follower(mtmp)) ||
(mtmp == u.usteed) ||
/* the wiz will level t-port from anywhere to chase the amulet; if
you don't have it, will chase you only if in range. -3. */
(Uhave_amulet && mtmp->iswiz))
&& ((!mtmp->msleeping && mtmp->mcanmove)
/* eg if level teleport or new trap, steed has no control to
avoid following */
|| (mtmp == u.usteed))
/* monster won't follow if it hasn't noticed you yet */
&& !(mtmp->mstrategy & STRAT_WAITFORU)) {
stay_behind = FALSE;
if (!pets_only && mtmp->mtame && mtmp->meating) {
if (canseemon(mtmp))
pline("%s is still eating.", Monnam(mtmp));
stay_behind = TRUE;
} else if (mon_has_amulet(mtmp)) {
if (canseemon(mtmp))
pline("%s seems very disoriented for a moment.",
Monnam(mtmp));
stay_behind = TRUE;
} else if (!pets_only && mtmp->mtame && mtmp->mtrapped) {
if (canseemon(mtmp))
pline("%s is still trapped.", Monnam(mtmp));
stay_behind = TRUE;
}
if (mtmp == u.usteed)
stay_behind = FALSE;
if (stay_behind) {
if (mtmp->mleashed) {
pline("%s leash suddenly comes loose.", humanoid(mtmp->data)
? (mtmp->female ? "Her" : "His")
: "Its");
m_unleash(mtmp, FALSE);
}
continue;
}
if (mtmp->isshk)
set_residency(mtmp, TRUE);
if (mtmp->wormno) {
int cnt;
/* NOTE: worm is truncated to # segs = max wormno size */
cnt = count_wsegs(mtmp);
num_segs = min(cnt, MAX_NUM_WORMS - 1);
wormgone(mtmp);
} else
num_segs = 0;
/* set minvent's obj->no_charge to 0 */
for (obj = mtmp->minvent; obj; obj = obj->nobj) {
if (Has_contents(obj))
picked_container(obj); /* does the right thing */
obj->no_charge = 0;
}
relmon(mtmp);
newsym(mtmp->mx, mtmp->my);
mtmp->mx = COLNO; /* avoid mnexto()/MON_AT() problem */
mtmp->my = ROWNO;
mtmp->wormno = num_segs;
mtmp->mlstmv = moves;
mtmp->nmon = turnstate.migrating_pets;
turnstate.migrating_pets = mtmp;
} else if (mtmp->iswiz) {
/* we want to be able to find him when his next resurrection chance
comes up, but have him resume his present location if player
returns to this level before that time */
migrate_to_level(mtmp, ledger_no(&u.uz), MIGR_EXACT_XY, NULL);
} else if (mtmp->mleashed) {
/* this can happen if your quest leader ejects you from the "home"
level while a leashed pet isn't next to you */
pline("%s leash goes slack.", s_suffix(Monnam(mtmp)));
m_unleash(mtmp, FALSE);
}
}
}
