/*
* Is (x,y) a good position of mtmp? If mtmp is NULL, then is (x,y) good
* for an object?
*
* This function will only look at mtmp->mdat, so makemon, mplayer, etc can
* call it to generate new monster positions with fake monster structures.
*/
boolean goodpos(struct level *lev, int x, int y, struct monst *mtmp, unsigned gpflags)
{
const struct permonst *mdat = NULL;
boolean ignorewater = ((gpflags & MM_IGNOREWATER) != 0);
if (!isok(x, y)) return FALSE;
/* in many cases, we're trying to create a new monster, which
* can't go on top of the player or any existing monster.
* however, occasionally we are relocating engravings or objects,
* which could be co-located and thus get restricted a bit too much.
* oh well.
*/
if (mtmp != &youmonst && x == u.ux && y == u.uy
&& (!u.usteed || mtmp != u.usteed))
return FALSE;
if (mtmp) {
struct monst *mtmp2 = m_at(lev, x,y);
/* Be careful with long worms. A monster may be placed back in
* its own location. Normally, if m_at() returns the same monster
* that we're trying to place, the monster is being placed in its
* own location. However, that is not correct for worm segments,
* because all the segments of the worm return the same m_at().
* Actually we overdo the check a little bit--a worm can't be placed
* in its own location, period. If we just checked for mtmp->mx
* != x || mtmp->my != y, we'd miss the case where we're called
* to place the worm segment and the worm's head is at x,y.
*/
if (mtmp2 && (mtmp2 != mtmp || mtmp->wormno))
return FALSE;
mdat = mtmp->data;
if (is_pool(lev, x,y) && !ignorewater) {
if (mtmp == &youmonst)
return !!(HLevitation || Flying || Wwalking ||
Swimming || Amphibious);
else return (is_flyer(mdat) || is_swimmer(mdat) ||
is_clinger(mdat));
} else if (mdat->mlet == S_EEL && rn2(13) && !ignorewater) {
return FALSE;
} else if (is_lava(lev, x,y)) {
if (mtmp == &youmonst)
return !!HLevitation;
else
return is_flyer(mdat) || likes_lava(mdat);
}
if (passes_walls(mdat) && may_passwall(lev, x,y)) return TRUE;
}
if (!ACCESSIBLE(lev->locations[x][y].typ)) {
if (!(is_pool(lev, x,y) && ignorewater)) return FALSE;
}
if (closed_door(lev, x, y) && (!mdat || !amorphous(mdat)))
return FALSE;
if (sobj_at(BOULDER, lev, x, y) && (!mdat || !throws_rocks(mdat)))
return FALSE;
return TRUE;
}
/* Generate earthquake :-) of desired force. That is: create random chasms
(pits). Currently assumes that the player created it (you'll need to change
at least messages, angering, and kill credit if you generalize it). */
static void
do_earthquake(int force)
{
int x, y;
struct monst *mtmp;
struct obj *otmp;
struct trap *chasm, *oldtrap;
int start_x, start_y, end_x, end_y;
start_x = youmonst.mx - (force * 2);
start_y = youmonst.my - (force * 2);
end_x = youmonst.mx + (force * 2);
end_y = youmonst.my + (force * 2);
if (start_x < 0)
start_x = 0;
if (start_y < 0)
start_y = 0;
if (end_x >= COLNO)
end_x = COLNO - 1;
if (end_y >= ROWNO)
end_y = ROWNO - 1;
for (x = start_x; x <= end_x; x++)
for (y = start_y; y <= end_y; y++) {
if ((mtmp = m_at(level, x, y)) != 0) {
wakeup(mtmp, FALSE); /* peaceful monster will become hostile */
if (mtmp->mundetected && is_hider(mtmp->data)) {
mtmp->mundetected = 0;
if (cansee(x, y))
pline(msgc_youdiscover, "%s is shaken loose from %s!",
Amonnam(mtmp), mtmp->data == &mons[PM_TRAPPER] ?
"its hiding place" : the(ceiling(youmonst.mx, youmonst.my)));
else
You_hear(msgc_levelsound, "a thumping sound.");
if (x == youmonst.mx && y == youmonst.my &&
mtmp->data != &mons[PM_TRAPPER])
pline(msgc_moncombatgood,
"You easily dodge the falling %s.",
mon_nam(mtmp));
newsym(x, y);
}
}
if (!rn2(14 - force))
switch (level->locations[x][y].typ) {
case FOUNTAIN: /* Make the fountain disappear */
if (cansee(x, y))
pline(msgc_consequence,
"The fountain falls into a chasm.");
goto do_pit;
case SINK:
if (cansee(x, y))
pline(msgc_consequence,
"The kitchen sink falls into a chasm.");
goto do_pit;
case ALTAR:
if (level->locations[x][y].altarmask & AM_SANCTUM)
break;
if (cansee(x, y))
pline(msgc_consequence,
"The altar falls into a chasm.");
goto do_pit;
case GRAVE:
if (cansee(x, y))
pline(msgc_consequence,
"The headstone topples into a chasm.");
goto do_pit;
case THRONE:
if (cansee(x, y))
pline(msgc_consequence,
"The throne falls into a chasm.");
/* Falls into next case */
case ROOM:
case CORR: /* Try to make a pit */
/* Pits, spiked pits, holes, trapdoors, vibrating squares,
magic portals are immune. A bear trap will leave the
trap in the pit. It would be kind of cool to make
landmines detonate, but that's more trouble than it's
worth. */
if ((oldtrap = t_at(level, x, y))) {
if (oldtrap->ttyp == PIT || oldtrap->ttyp == SPIKED_PIT
|| oldtrap->ttyp == HOLE ||
oldtrap->ttyp == TRAPDOOR ||
oldtrap->ttyp == VIBRATING_SQUARE ||
oldtrap->ttyp == MAGIC_PORTAL)
break;
if (oldtrap->ttyp == BEAR_TRAP) {
if (mtmp)
mtmp->mtrapped = 0;
cnv_trap_obj(level, BEARTRAP, 1, oldtrap);
}
}
do_pit:
chasm = maketrap(level, x, y, PIT, rng_main);
if (!chasm)
break; /* no pit if portal at that location */
chasm->tseen = 1;
level->locations[x][y].doormask = 0;
mtmp = m_at(level, x, y);
if ((otmp = sobj_at(BOULDER, level, x, y)) != 0) {
if (cansee(x, y))
pline(msgc_consequence,
"KADOOM! The boulder falls into a chasm%s!",
((x == youmonst.mx) &&
(y == youmonst.my)) ? " below you" : "");
if (mtmp)
mtmp->mtrapped = 0;
obj_extract_self(otmp);
flooreffects(otmp, x, y, "");
break;
}
/* We have to check whether monsters or player falls in a
chasm... */
if (mtmp) {
if (!flying(mtmp) && !levitates(mtmp) &&
!is_clinger(mtmp->data)) {
mtmp->mtrapped = 1;
if (cansee(x, y))
pline(combat_msgc(&youmonst, mtmp, cr_hit),
"%s falls into a chasm!", Monnam(mtmp));
else if (humanoid(mtmp->data))
You_hear(msgc_levelsound, "a scream!");
mselftouch(mtmp, "Falling, ", &youmonst);
if (!DEADMONSTER(mtmp))
if ((mtmp->mhp -= rnd(6)) <= 0) {
if (!cansee(x, y))
pline(msgc_kill, "It is destroyed!");
else {
pline(msgc_petfatal, "You destroy %s!",
mtmp->mtame ?
x_monnam(mtmp, ARTICLE_THE,
"poor", mx_name(mtmp) ?
SUPPRESS_SADDLE : 0,
FALSE) : mon_nam(mtmp));
}
xkilled(mtmp, 0);
}
}
} else if (!u.utrap && x == youmonst.mx && y == youmonst.my) {
if (Levitation || Flying || is_clinger(youmonst.data)) {
pline(msgc_noconsequence,
"A chasm opens up under you!");
pline(msgc_noconsequence, "You don't fall in!");
} else {
pline(msgc_badidea, "You fall into a chasm!");
u.utrap = rn1(6, 2);
u.utraptype = TT_PIT;
turnstate.vision_full_recalc = TRUE;
losehp(rnd(6), "fell into a chasm");
selftouch("Falling, you",
"falling into a chasm while wielding");
}
} else
newsym(x, y);
break;
case DOOR: /* Make the door collapse */
if (level->locations[x][y].doormask == D_NODOOR)
goto do_pit;
if (cansee(x, y))
pline(msgc_consequence, "The door collapses.");
if (*in_rooms(level, x, y, SHOPBASE))
add_damage(x, y, 0L);
level->locations[x][y].doormask = D_NODOOR;
unblock_point(x, y);
newsym(x, y);
break;
}
}
}
/* 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;
}
