/*
* Try to choose a stopping point as near as possible to the starting
* position while still adjacent to the hero. If all else fails, try
* enexto(). Use enexto() as a last resort because enexto() chooses
* its point randomly, which is not what we want.
*/
STATIC_OVL boolean
md_stop(coord *stopp, coord *startp)
/* stopping position (we fill it in) */
/* starting positon (read only) */
{
int x, y, distance, min_distance = -1;
for (x = u.ux-1; x <= u.ux+1; x++)
for (y = u.uy-1; y <= u.uy+1; y++) {
if (!isok(x, y) || (x == u.ux && y == u.uy)) continue;
if (ACCESSIBLE(levl[x][y].typ) && !MON_AT(x,y)) {
distance = dist2(x,y,startp->x,startp->y);
if (min_distance < 0 || distance < min_distance ||
(distance == min_distance && rn2(2))) {
stopp->x = x;
stopp->y = y;
min_distance = distance;
}
}
}
/* If we didn't find a good spot, try enexto(). */
if (min_distance < 0 &&
!enexto(stopp, u.ux, u.uy, &mons[PM_MAIL_DAEMON]))
return FALSE;
return TRUE;
}
/* Make monster mtmp next to you (if possible) */
void mnexto(struct monst *mtmp)
{
coord mm;
mm = enexto(u.ux, u.uy);
mtmp->mx = mm.x;
mtmp->my = mm.y;
pmon(mtmp);
}
static void e_died(struct entity *etmp, int dest, int how)
{
if (is_u(etmp)) {
if (how == DROWNING) {
killer = 0; /* drown() sets its own killer */
drown();
} else if (how == BURNING) {
killer = 0; /* lava_effects() sets its own killer */
lava_effects();
} else {
coord xy;
/* use more specific killer if specified */
if (!killer) {
killer_format = KILLED_BY_AN;
killer = "falling drawbridge";
}
done(how);
/* So, you didn't die */
if (!e_survives_at(etmp, etmp->ex, etmp->ey)) {
if (enexto(&xy, level, etmp->ex, etmp->ey, etmp->edata)) {
pline("A %s force teleports you away...",
Hallucination ? "normal" : "strange");
teleds(xy.x, xy.y, FALSE);
}
/* otherwise on top of the drawbridge is the
* only viable spot in the dungeon, so stay there
*/
}
}
/* we might have crawled out of the moat to survive */
etmp->ex = u.ux, etmp->ey = u.uy;
} else {
int entitycnt;
killer = 0;
/* fake "digested to death" damage-type suppresses corpse */
#define mk_message(dest) ((dest & 1) ? "" : NULL)
#define mk_corpse(dest) ((dest & 2) ? AD_DGST : AD_PHYS)
/* if monsters are moving, one of them caused the destruction */
if (flags.mon_moving)
monkilled(etmp->emon, mk_message(dest), mk_corpse(dest));
else /* you caused it */
xkilled(etmp->emon, dest);
etmp->edata = NULL;
/* dead long worm handling */
for (entitycnt = 0; entitycnt < ENTITIES; entitycnt++) {
if (etmp != &(occupants[entitycnt]) &&
etmp->emon == occupants[entitycnt].emon)
occupants[entitycnt].edata = NULL;
}
#undef mk_message
#undef mk_corpse
}
}
/* make a swarm of undead around mm; uses the main RNG */
void
mkundead(struct level *lev, coord *mm, boolean revive_corpses, int mm_flags)
{
int cnt = (level_difficulty(&lev->z) + 1) / 10 + rnd(5);
const struct permonst *mdat;
struct obj *otmp;
coord cc;
while (cnt--) {
mdat = morguemon(&lev->z, rng_main);
if (enexto(&cc, lev, mm->x, mm->y, mdat) &&
(!revive_corpses || !(otmp = sobj_at(CORPSE, lev, cc.x, cc.y)) ||
!revive(otmp)))
makemon(mdat, lev, cc.x, cc.y, mm_flags);
}
lev->flags.graveyard = TRUE; /* reduced chance for undead corpse */
}
/* make a swarm of undead around mm */
void
mkundead (coord *mm, bool revive_corpses, int mm_flags)
{
int cnt = (level_difficulty() + 1)/10 + rnd(5);
struct permonst *mdat;
struct obj *otmp;
coord cc;
while (cnt--) {
mdat = morguemon();
if (enexto(&cc, mm->x, mm->y, mdat) &&
(!revive_corpses ||
!(otmp = sobj_at(CORPSE, cc.x, cc.y)) ||
!revive(otmp)))
(void) makemon(mdat, cc.x, cc.y, mm_flags);
}
level.flags.graveyard = true; /* reduced chance for undead corpse */
}
/*
* Try to find a dismount point adjacent to the steed's location.
* If all else fails, try enexto(). Use enexto() as a last resort because
* enexto() chooses its point randomly, possibly even outside the
* room's walls, which is not what we want.
* Adapted from mail daemon code.
*/
static boolean
landing_spot(coord * spot, /* landing position (we fill it in) */
int reason, int forceit)
{
int i = 0, x, y, distance, min_distance = -1;
boolean found = FALSE;
struct trap *t;
/* avoid known traps (i == 0) and boulders, but allow them as a backup */
if (reason != DISMOUNT_BYCHOICE || Stunned || Confusion || Fumbling)
i = 1;
for (; !found && i < 2; ++i) {
for (x = u.ux - 1; x <= u.ux + 1; x++)
for (y = u.uy - 1; y <= u.uy + 1; y++) {
if (!isok(x, y) || (x == u.ux && y == u.uy))
continue;
if (ACCESSIBLE(level->locations[x][y].typ) &&
!MON_AT(level, x, y) && !closed_door(level, x, y)) {
distance = distu(x, y);
if (min_distance < 0 || distance < min_distance ||
(distance == min_distance && rn2(2))) {
if (i > 0 ||
(((t = t_at(level, x, y)) == 0 || !t->tseen) &&
(!sobj_at(BOULDER, level, x, y) ||
throws_rocks(youmonst.data)))) {
spot->x = x;
spot->y = y;
min_distance = distance;
found = TRUE;
}
}
}
}
}
/* If we didn't find a good spot and forceit is on, try enexto(). */
if (forceit && min_distance < 0 &&
!enexto(spot, level, u.ux, u.uy, youmonst.data))
return FALSE;
return found;
}
/* you teleport a monster (via wand, spell, or poly'd q.mechanic attack);
return false iff the attempt fails */
boolean u_teleport_mon(struct monst *mtmp, boolean give_feedback)
{
coord cc;
if (mtmp->ispriest && *in_rooms(level, mtmp->mx, mtmp->my, TEMPLE)) {
if (give_feedback)
pline("%s resists your magic!", Monnam(mtmp));
return FALSE;
} else if (level->flags.noteleport && u.uswallow && mtmp == u.ustuck) {
if (give_feedback)
pline("You are no longer inside %s!", mon_nam(mtmp));
unstuck(mtmp);
rloc(mtmp, FALSE);
} else if (is_rider(mtmp->data) && rn2(13) &&
enexto(&cc, level, u.ux, u.uy, mtmp->data))
rloc_to(mtmp, cc.x, cc.y);
else
rloc(mtmp, FALSE);
return TRUE;
}
/*
* called with [x,y] = coordinates;
* [0,0] means anyplace
* [u.ux,u.uy] means: call mnexto (if !in_mklev)
*
* In case we make an Orc or killer bee, we make an entire horde (swarm);
* note that in this case we return only one of them (the one at [x,y]).
*/
struct monst *
makemon(struct permonst *ptr, int x, int y)
{
struct monst *mtmp;
int tmp, ct;
boolean anything = (!ptr);
extern boolean in_mklev;
if(x != 0 || y != 0) if(m_at(x,y)) return((struct monst *) 0);
if(ptr){
if(strchr(fut_geno, ptr->mlet)) return((struct monst *) 0);
} else {
ct = CMNUM - strlen(fut_geno);
if(strchr(fut_geno, 'm')) ct++; /* make only 1 minotaur */
if(strchr(fut_geno, '@')) ct++;
if(ct <= 0) return(0); /* no more monsters! */
tmp = rn2(ct*dlevel/24 + 7);
if(tmp < dlevel - 4) tmp = rn2(ct*dlevel/24 + 12);
if(tmp >= ct) tmp = rn1(ct - ct/2, ct/2);
for(ct = 0; ct < CMNUM; ct++){
ptr = &mons[ct];
if(strchr(fut_geno, ptr->mlet))
continue;
if(!tmp--) goto gotmon;
}
panic("makemon?");
}
gotmon:
mtmp = newmonst(ptr->pxlth);
*mtmp = zeromonst; /* clear all entries in structure */
for(ct = 0; ct < ptr->pxlth; ct++)
((char *) &(mtmp->mextra[0]))[ct] = 0;
mtmp->nmon = fmon;
fmon = mtmp;
mtmp->m_id = flags.ident++;
mtmp->data = ptr;
mtmp->mxlth = ptr->pxlth;
if(ptr->mlet == 'D') mtmp->mhpmax = mtmp->mhp = 80;
else if(!ptr->mlevel) mtmp->mhpmax = mtmp->mhp = rnd(4);
else mtmp->mhpmax = mtmp->mhp = d(ptr->mlevel, 8);
mtmp->mx = x;
mtmp->my = y;
mtmp->mcansee = 1;
if(ptr->mlet == 'M'){
mtmp->mimic = 1;
mtmp->mappearance = ']';
}
if(!in_mklev) {
if(x == u.ux && y == u.uy && ptr->mlet != ' ')
mnexto(mtmp);
if(x == 0 && y == 0)
rloc(mtmp);
}
if(ptr->mlet == 's' || ptr->mlet == 'S') {
mtmp->mhide = mtmp->mundetected = 1;
if(in_mklev)
if(mtmp->mx && mtmp->my)
(void) mkobj_at(0, mtmp->mx, mtmp->my);
}
if(ptr->mlet == ':') {
mtmp->cham = 1;
(void) newcham(mtmp, &mons[dlevel+14+rn2(CMNUM-14-dlevel)]);
}
if(ptr->mlet == 'I' || ptr->mlet == ';')
mtmp->minvis = 1;
if(ptr->mlet == 'L' || ptr->mlet == 'N'
|| (in_mklev && strchr("&w;", ptr->mlet) && rn2(5))
) mtmp->msleep = 1;
#ifndef NOWORM
if(ptr->mlet == 'w' && getwn(mtmp))
initworm(mtmp);
#endif /* NOWORM */
if(anything) if(ptr->mlet == 'O' || ptr->mlet == 'k') {
coord mm;
int cnt = rnd(10);
mm.x = x;
mm.y = y;
while(cnt--) {
mm = enexto(mm.x, mm.y);
(void) makemon(ptr, mm.x, mm.y);
}
}
return(mtmp);
}
//
// called with [x,y] = coordinates;
// [0,0] means anyplace
// [_u.ux,_u.uy] means: call mnexto (if !in_mklev)
//
// In case we make an Orc or killer bee, we make an entire horde (swarm);
// note that in this case we return only one of them (the one at [x,y]).
struct monst* makemon (const struct permonst* ptr, int x, int y)
{
if (x != 0 || y != 0)
if (m_at(x, y))
return NULL;
bool anything = false;
if (!ptr) {
anything = true;
unsigned mi = rn2 (CMNUM*_u.dlevel/24+7);
if (mi+4 < _u.dlevel)
mi = rn2 (CMNUM*_u.dlevel/24+12);
if (mi >= CMNUM)
mi = rn1 (CMNUM-CMNUM/2, CMNUM/2);
while (mi < CMNUM && is_monster_genocided (c_Monsters[mi].mlet))
++mi;
if (mi >= CMNUM)
return NULL; // all monsters genocided
ptr = &c_Monsters[mi];
} else if (is_monster_genocided (ptr->mlet))
return NULL;
struct monst* mtmp = newmonst(ptr->pxlth);
mtmp->nmon = _level->monsters;
_level->monsters = mtmp;
mtmp->m_id = _wflags.ident++;
mtmp->data = ptr;
mtmp->mxlth = ptr->pxlth;
if (ptr->mlet == 'D')
mtmp->mhpmax = mtmp->mhp = 80;
else if (!ptr->mlevel)
mtmp->mhpmax = mtmp->mhp = rnd(4);
else
mtmp->mhpmax = mtmp->mhp = d(ptr->mlevel, 8);
mtmp->mx = x;
mtmp->my = y;
mtmp->mcansee = 1;
if (!in_mklev) {
if (x == _u.ux && y == _u.uy && ptr->mlet != ' ')
mnexto(mtmp);
if (x == 0 && y == 0)
rloc(mtmp);
}
if (ptr->mlet == 's' || ptr->mlet == 'S') {
mtmp->mhide = mtmp->mundetected = 1;
if (in_mklev)
if (mtmp->mx && mtmp->my)
mkobj_at(0, mtmp->mx, mtmp->my);
}
if (ptr->mlet == 'I' || ptr->mlet == ';')
mtmp->minvis = 1;
if (ptr->mlet == 'L' || ptr->mlet == 'N' || (in_mklev && strchr("&w;", ptr->mlet) && rn2(5))
)
mtmp->msleep = 1;
if (anything)
if (ptr->mlet == 'O' || ptr->mlet == 'k') {
struct coord mm;
int cnt = rnd(10);
mm.x = x;
mm.y = y;
while (cnt--) {
mm = enexto(mm.x, mm.y);
makemon(ptr, mm.x, mm.y);
}
}
return mtmp;
}
/*
* Pick coordinates for a starting position for the mail daemon. Called
* from newmail() and newphone().
*/
STATIC_OVL boolean
md_start(coord *startp)
{
coord testcc; /* scratch coordinates */
int row; /* current row we are checking */
int lax; /* if TRUE, pick a position in sight. */
int dd; /* distance to current point */
int max_distance; /* max distance found so far */
/*
* If blind and not telepathic, then it doesn't matter what we pick ---
* the hero is not going to see it anyway. So pick a nearby position.
*/
if (Blind && !Blind_telepat) {
if (!enexto(startp, u.ux, u.uy, (struct permonst *) 0))
return FALSE; /* no good posiitons */
return TRUE;
}
/*
* Arrive at an up or down stairwell if it is in line of sight from the
* hero.
*/
if (couldsee(upstair.sx, upstair.sy)) {
startp->x = upstair.sx;
startp->y = upstair.sy;
return TRUE;
}
if (couldsee(dnstair.sx, dnstair.sy)) {
startp->x = dnstair.sx;
startp->y = dnstair.sy;
return TRUE;
}
/*
* Try to pick a location out of sight next to the farthest position away
* from the hero. If this fails, try again, just picking the farthest
* position that could be seen. What we really ought to be doing is
* finding a path from a stairwell...
*
* The arrays viz_rmin[] and viz_rmax[] are set even when blind. These
* are the LOS limits for each row.
*/
lax = 0; /* be picky */
max_distance = -1;
retry:
for (row = 0; row < ROWNO; row++) {
if (viz_rmin[row] < viz_rmax[row]) {
/* There are valid positions on this row. */
dd = distu(viz_rmin[row],row);
if (dd > max_distance) {
if (lax) {
max_distance = dd;
startp->y = row;
startp->x = viz_rmin[row];
} else if (enexto(&testcc, (xchar)viz_rmin[row], row,
(struct permonst *) 0) &&
!cansee(testcc.x, testcc.y) &&
couldsee(testcc.x, testcc.y)) {
max_distance = dd;
*startp = testcc;
}
}
dd = distu(viz_rmax[row],row);
if (dd > max_distance) {
if (lax) {
max_distance = dd;
startp->y = row;
startp->x = viz_rmax[row];
} else if (enexto(&testcc, (xchar)viz_rmax[row], row,
(struct permonst *) 0) &&
!cansee(testcc.x,testcc.y) &&
couldsee(testcc.x, testcc.y)) {
max_distance = dd;
*startp = testcc;
}
}
}
}
if (max_distance < 0) {
if (!lax) {
lax = 1; /* just find a position */
goto retry;
}
return FALSE;
}
return TRUE;
}
static void cast_cleric_spell(struct monst *mtmp, int dmg, int spellnum)
{
if (dmg == 0 && !is_undirected_spell(AD_CLRC, spellnum)) {
impossible("cast directed cleric spell (%d) with dmg=0?", spellnum);
return;
}
switch (spellnum) {
case CLC_GEYSER:
/* this is physical damage, not magical damage */
pline("A sudden geyser slams into you from nowhere!");
dmg = dice(8, 6);
if (Half_physical_damage) dmg = (dmg + 1) / 2;
break;
case CLC_FIRE_PILLAR:
pline("A pillar of fire strikes all around you!");
if (Fire_resistance) {
shieldeff(u.ux, u.uy);
dmg = 0;
} else
dmg = dice(8, 6);
if (Half_spell_damage) dmg = (dmg + 1) / 2;
burn_away_slime();
burnarmor(&youmonst);
destroy_item(SCROLL_CLASS, AD_FIRE);
destroy_item(POTION_CLASS, AD_FIRE);
destroy_item(SPBOOK_CLASS, AD_FIRE);
burn_floor_paper(u.ux, u.uy, TRUE, FALSE);
break;
case CLC_LIGHTNING:
{
boolean reflects;
pline("A bolt of lightning strikes down at you from above!");
reflects = ureflects("It bounces off your %s%s.", "");
if (reflects || Shock_resistance) {
shieldeff(u.ux, u.uy);
dmg = 0;
if (reflects)
break;
} else
dmg = dice(8, 6);
if (Half_spell_damage) dmg = (dmg + 1) / 2;
destroy_item(WAND_CLASS, AD_ELEC);
destroy_item(RING_CLASS, AD_ELEC);
break;
}
case CLC_CURSE_ITEMS:
pline("You feel as if you need some help.");
rndcurse();
dmg = 0;
break;
case CLC_INSECTS:
{
/* Try for insects, and if there are none
left, go for (sticks to) snakes. -3. */
const struct permonst *pm = mkclass(&u.uz, S_ANT,0);
struct monst *mtmp2 = NULL;
char let = (pm ? S_ANT : S_SNAKE);
boolean success;
int i;
coord bypos;
int quan;
quan = (mtmp->m_lev < 2) ? 1 : rnd((int)mtmp->m_lev / 2);
if (quan < 3) quan = 3;
success = pm ? TRUE : FALSE;
for (i = 0; i <= quan; i++) {
if (!enexto(&bypos, level, mtmp->mux, mtmp->muy, mtmp->data))
break;
if ((pm = mkclass(&u.uz, let,0)) != 0 &&
(mtmp2 = makemon(pm, level, bypos.x, bypos.y, NO_MM_FLAGS)) != 0) {
success = TRUE;
mtmp2->msleeping = mtmp2->mpeaceful = mtmp2->mtame = 0;
set_malign(mtmp2);
}
}
/* Not quite right:
* -- message doesn't always make sense for unseen caster (particularly
* the first message)
* -- message assumes plural monsters summoned (non-plural should be
* very rare, unlike in nasty())
* -- message assumes plural monsters seen
*/
if (!success)
pline("%s casts at a clump of sticks, but nothing happens.",
Monnam(mtmp));
else if (let == S_SNAKE)
pline("%s transforms a clump of sticks into snakes!",
Monnam(mtmp));
else if (Invisible && !perceives(mtmp->data) &&
(mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s summons insects around a spot near you!",
Monnam(mtmp));
else if (Displaced && (mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s summons insects around your displaced image!",
Monnam(mtmp));
else
pline("%s summons insects!", Monnam(mtmp));
dmg = 0;
break;
}
case CLC_BLIND_YOU:
/* note: resists_blnd() doesn't apply here */
if (!Blinded) {
int num_eyes = eyecount(youmonst.data);
pline("Scales cover your %s!",
(num_eyes == 1) ?
body_part(EYE) : makeplural(body_part(EYE)));
make_blinded(Half_spell_damage ? 100L : 200L, FALSE);
if (!Blind) pline("Your vision quickly clears.");
dmg = 0;
} else
impossible("no reason for monster to cast blindness spell?");
break;
case CLC_PARALYZE:
if (Antimagic || Free_action) {
shieldeff(u.ux, u.uy);
if (multi >= 0)
pline("You stiffen briefly.");
nomul(-1, "paralyzed by a monster");
} else {
if (multi >= 0)
pline("You are frozen in place!");
dmg = 4 + (int)mtmp->m_lev;
if (Half_spell_damage) dmg = (dmg + 1) / 2;
nomul(-dmg, "paralyzed by a monster");
}
dmg = 0;
break;
case CLC_CONFUSE_YOU:
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("You feel momentarily dizzy.");
} else {
boolean oldprop = !!Confusion;
dmg = (int)mtmp->m_lev;
if (Half_spell_damage) dmg = (dmg + 1) / 2;
make_confused(HConfusion + dmg, TRUE);
if (Hallucination)
pline("You feel %s!", oldprop ? "trippier" : "trippy");
else
pline("You feel %sconfused!", oldprop ? "more " : "");
}
dmg = 0;
break;
case CLC_CURE_SELF:
if (mtmp->mhp < mtmp->mhpmax) {
if (canseemon(mtmp))
pline("%s looks better.", Monnam(mtmp));
/* note: player healing does 6d4; this used to do 1d8 */
if ((mtmp->mhp += dice(3,6)) > mtmp->mhpmax)
mtmp->mhp = mtmp->mhpmax;
dmg = 0;
}
break;
case CLC_OPEN_WOUNDS:
if (Antimagic) {
shieldeff(u.ux, u.uy);
dmg = (dmg + 1) / 2;
}
if (dmg <= 5)
pline("Your skin itches badly for a moment.");
else if (dmg <= 10)
pline("Wounds appear on your body!");
else if (dmg <= 20)
pline("Severe wounds appear on your body!");
else
pline("Your body is covered with painful wounds!");
break;
default:
impossible("mcastu: invalid clerical spell (%d)", spellnum);
dmg = 0;
break;
}
if (dmg) mdamageu(mtmp, dmg);
}
/* Stop riding the current steed */
void
dismount_steed(int reason)
{
struct monst *mtmp;
struct obj *otmp;
coord cc;
const char *verb = "fall";
boolean repair_leg_damage = TRUE;
unsigned save_utrap = u.utrap;
boolean have_spot = landing_spot(&cc, reason, 0);
mtmp = u.usteed; /* make a copy of steed pointer */
/* Sanity check */
if (!mtmp) /* Just return silently */
return;
/* Check the reason for dismounting */
otmp = which_armor(mtmp, os_saddle);
switch (reason) {
case DISMOUNT_THROWN:
verb = "are thrown";
case DISMOUNT_FELL:
pline("You %s off of %s!", verb, mon_nam(mtmp));
if (!have_spot)
have_spot = landing_spot(&cc, reason, 1);
losehp(rn1(10, 10), "killed in a riding accident");
set_wounded_legs(LEFT_SIDE, (int)LWounded_legs + rn1(5, 5));
set_wounded_legs(RIGHT_SIDE, (int)RWounded_legs + rn1(5, 5));
repair_leg_damage = FALSE;
break;
case DISMOUNT_POLY:
pline("You can no longer ride %s.", mon_nam(u.usteed));
if (!have_spot)
have_spot = landing_spot(&cc, reason, 1);
break;
case DISMOUNT_ENGULFED:
/* caller displays message */
break;
case DISMOUNT_BONES:
/* hero has just died... */
break;
case DISMOUNT_GENERIC:
/* no messages, just make it so */
break;
case DISMOUNT_BYCHOICE:
default:
if (otmp && otmp->cursed) {
pline("You can't. The saddle %s cursed.",
otmp->bknown ? "is" : "seems to be");
otmp->bknown = TRUE;
return;
}
if (!have_spot) {
pline("You can't. There isn't anywhere for you to stand.");
return;
}
if (!mtmp->mnamelth) {
pline("You've been through the dungeon on %s with no name.",
an(mtmp->data->mname));
if (Hallucination)
pline("It felt good to get out of the rain.");
} else
pline("You dismount %s.", mon_nam(mtmp));
}
/* While riding these refer to the steed's legs so after dismounting they
refer to the player's legs once again. */
if (repair_leg_damage)
LWounded_legs = RWounded_legs = 0;
/* Release the steed and saddle */
u.usteed = 0;
u.ugallop = 0L;
/* Set player and steed's position. Try moving the player first unless
we're in the midst of creating a bones file. */
if (reason == DISMOUNT_BONES) {
/* move the steed to an adjacent square */
if (enexto(&cc, level, u.ux, u.uy, mtmp->data))
rloc_to(mtmp, cc.x, cc.y);
else /* evidently no room nearby; move steed elsewhere */
rloc(mtmp, FALSE);
return;
}
if (!DEADMONSTER(mtmp)) {
place_monster(mtmp, u.ux, u.uy);
if (!Engulfed && !u.ustuck && have_spot) {
const struct permonst *mdat = mtmp->data;
/* The steed may drop into water/lava */
if (!is_flyer(mdat) && !is_floater(mdat) && !is_clinger(mdat)) {
if (is_pool(level, u.ux, u.uy)) {
if (!Underwater)
pline("%s falls into the %s!", Monnam(mtmp),
surface(u.ux, u.uy));
if (!is_swimmer(mdat) && !amphibious(mdat)) {
killed(mtmp);
adjalign(-1);
}
} else if (is_lava(level, u.ux, u.uy)) {
pline("%s is pulled into the lava!", Monnam(mtmp));
if (!likes_lava(mdat)) {
killed(mtmp);
adjalign(-1);
}
}
}
/* Steed dismounting consists of two steps: being moved to another
square, and descending to the floor. We have functions to do
each of these activities, but they're normally called
individually and include an attempt to look at or pick up the
objects on the floor: teleds() --> spoteffects() --> pickup()
float_down() --> pickup() We use this kludge to make sure there
is only one such attempt. Clearly this is not the best way to do
it. A full fix would involve having these functions not call
pickup() at all, instead calling them first and calling pickup()
afterwards. But it would take a lot of work to keep this change
from having any unforseen side effects (for instance, you would
no longer be able to walk onto a square with a hole, and
autopickup before falling into the hole). */
/* [ALI] No need to move the player if the steed died. */
if (!DEADMONSTER(mtmp)) {
/* Keep steed here, move the player to cc; teleds() clears
u.utrap */
in_steed_dismounting = TRUE;
teleds(cc.x, cc.y, TRUE);
in_steed_dismounting = FALSE;
/* Put your steed in your trap */
if (save_utrap)
mintrap(mtmp);
}
/* Couldn't... try placing the steed */
} else if (enexto(&cc, level, u.ux, u.uy, mtmp->data)) {
/* Keep player here, move the steed to cc */
rloc_to(mtmp, cc.x, cc.y);
/* Player stays put */
/* Otherwise, kill the steed */
} else {
killed(mtmp);
adjalign(-1);
}
}
/* Return the player to the floor */
if (reason != DISMOUNT_ENGULFED) {
in_steed_dismounting = TRUE;
float_down(0L);
in_steed_dismounting = FALSE;
encumber_msg();
turnstate.vision_full_recalc = TRUE;
} else
/* polearms behave differently when not mounted */
if (uwep && is_pole(uwep))
u.bashmsg = FALSE;
return;
}
