/*
* Manipulate an adjacent grid in some way
*
* Attack monsters, tunnel through walls, disarm traps, open doors.
*
* This command must always take energy, to prevent free detection
* of invisible monsters.
*
* The "semantics" of this command must be chosen before the player
* is confused, and it must be verified against the new grid.
*/
void do_cmd_alter_aux(int dir)
{
int y, x;
bool more = FALSE;
/* Get location */
y = p_ptr->py + ddy[dir];
x = p_ptr->px + ddx[dir];
/* Take a turn */
p_ptr->energy_use = 100;
/* Apply confusion */
if (player_confuse_dir(p_ptr, &dir, FALSE)) {
/* Get location */
y = p_ptr->py + ddy[dir];
x = p_ptr->px + ddx[dir];
}
/* Attack monsters */
if (cave->m_idx[y][x] > 0)
py_attack(y, x);
/* Tunnel through walls and rubble */
else if (cave_isdiggable(cave, y, x))
more = do_cmd_tunnel_aux(y, x);
/* Open closed doors */
else if (cave_iscloseddoor(cave, y, x))
more = do_cmd_open_aux(y, x);
/* Disarm traps */
else if (cave_isknowntrap(cave, y, x))
more = do_cmd_disarm_aux(y, x);
/* Oops */
else
msg("You spin around.");
/* Cancel repetition unless we can continue */
if (!more) disturb(p_ptr, 0, 0);
}
/*
* Determine if a given grid may be "disarmed"
*/
static bool do_cmd_disarm_test(int y, int x)
{
/* Must have knowledge */
if (!(cave->info[y][x] & (CAVE_MARK))) {
msg("You see nothing there.");
return FALSE;
}
/* Look for a closed, unlocked door to lock */
if (cave->feat[y][x] == FEAT_DOOR_HEAD) return TRUE;
/* Look for a trap */
if (!cave_isknowntrap(cave, y, x)) {
msg("You see nothing there to disarm.");
return FALSE;
}
/* Okay */
return TRUE;
}
/*
* Move player in the given direction.
*
* This routine should only be called when energy has been expended.
*
* Note that this routine handles monsters in the destination grid,
* and also handles attempting to move into walls/doors/rubble/etc.
*/
void move_player(int dir, bool disarm)
{
int py = p_ptr->py;
int px = p_ptr->px;
int y = py + ddy[dir];
int x = px + ddx[dir];
int m_idx = cave->m_idx[y][x];
/* Attack monsters */
if (m_idx > 0) {
/* Mimics surprise the player */
if (is_mimicking(m_idx)) {
become_aware(m_idx);
/* Mimic wakes up */
mon_clear_timed(m_idx, MON_TMD_SLEEP, MON_TMD_FLG_NOMESSAGE);
} else {
py_attack(y, x);
}
}
/* Optionally alter traps/doors on movement */
else if (disarm && (cave->info[y][x] & CAVE_MARK) &&
(cave_isknowntrap(cave, y, x) ||
cave_iscloseddoor(cave, y, x)))
{
/* Auto-repeat if not already repeating */
if (cmd_get_nrepeats() == 0)
cmd_set_repeat(99);
do_cmd_alter_aux(dir);
}
/* Cannot walk through walls */
else if (!cave_floor_bold(y, x))
{
/* Disturb the player */
disturb(p_ptr, 0, 0);
/* Notice unknown obstacles */
if (!(cave->info[y][x] & CAVE_MARK))
{
/* Rubble */
if (cave->feat[y][x] == FEAT_RUBBLE)
{
msgt(MSG_HITWALL, "You feel a pile of rubble blocking your way.");
cave->info[y][x] |= (CAVE_MARK);
cave_light_spot(cave, y, x);
}
/* Closed door */
else if (cave->feat[y][x] < FEAT_SECRET)
{
msgt(MSG_HITWALL, "You feel a door blocking your way.");
cave->info[y][x] |= (CAVE_MARK);
cave_light_spot(cave, y, x);
}
/* Wall (or secret door) */
else
{
msgt(MSG_HITWALL, "You feel a wall blocking your way.");
cave->info[y][x] |= (CAVE_MARK);
cave_light_spot(cave, y, x);
}
}
/* Mention known obstacles */
else
{
if (cave->feat[y][x] == FEAT_RUBBLE)
msgt(MSG_HITWALL, "There is a pile of rubble blocking your way.");
else if (cave->feat[y][x] < FEAT_SECRET)
msgt(MSG_HITWALL, "There is a door blocking your way.");
else
msgt(MSG_HITWALL, "There is a wall blocking your way.");
}
}
/* Normal movement */
else
{
/* See if trap detection status will change */
bool old_dtrap = ((cave->info2[py][px] & (CAVE2_DTRAP)) != 0);
bool new_dtrap = ((cave->info2[y][x] & (CAVE2_DTRAP)) != 0);
/* Note the change in the detect status */
if (old_dtrap != new_dtrap)
p_ptr->redraw |= (PR_DTRAP);
/* Disturb player if the player is about to leave the area */
if (OPT(disturb_detect) && p_ptr->running &&
!p_ptr->running_firststep && old_dtrap && !new_dtrap)
{
disturb(p_ptr, 0, 0);
return;
}
/* Move player */
monster_swap(py, px, y, x);
/* New location */
y = py = p_ptr->py;
x = px = p_ptr->px;
/* Searching */
if (p_ptr->searching ||
(p_ptr->state.skills[SKILL_SEARCH_FREQUENCY] >= 50) ||
one_in_(50 - p_ptr->state.skills[SKILL_SEARCH_FREQUENCY]))
search(FALSE);
/* Handle "store doors" */
if ((cave->feat[p_ptr->py][p_ptr->px] >= FEAT_SHOP_HEAD) &&
(cave->feat[p_ptr->py][p_ptr->px] <= FEAT_SHOP_TAIL))
{
/* Disturb */
disturb(p_ptr, 0, 0);
cmd_insert(CMD_ENTER_STORE);
}
/* All other grids (including traps) */
else
{
/* Handle objects (later) */
p_ptr->notice |= (PN_PICKUP);
}
/* Discover invisible traps */
if (cave->feat[y][x] == FEAT_INVIS)
{
/* Disturb */
disturb(p_ptr, 0, 0);
/* Message */
msg("You found a trap!");
/* Pick a trap */
pick_trap(y, x);
/* Hit the trap */
hit_trap(y, x);
}
/* Set off an visible trap */
else if (cave_isknowntrap(cave, y, x))
{
/* Disturb */
disturb(p_ptr, 0, 0);
/* Hit the trap */
hit_trap(y, x);
}
}
p_ptr->running_firststep = FALSE;
}
/*
* Hack -- determine if a given location is "interesting"
*/
static bool target_set_interactive_accept(int y, int x)
{
object_type *o_ptr;
/* Player grids are always interesting */
if (cave->m_idx[y][x] < 0) return (TRUE);
/* Handle hallucination */
if (p_ptr->timed[TMD_IMAGE]) return (FALSE);
/* Visible monsters */
if (cave->m_idx[y][x] > 0)
{
monster_type *m_ptr = cave_monster(cave, cave->m_idx[y][x]);
/* Visible monsters */
if (m_ptr->ml && !m_ptr->unaware) return (TRUE);
}
/* Scan all objects in the grid */
for (o_ptr = get_first_object(y, x); o_ptr; o_ptr = get_next_object(o_ptr))
{
/* Memorized object */
if (o_ptr->marked && !squelch_item_ok(o_ptr)) return (TRUE);
}
/* Interesting memorized features */
if (cave->info[y][x] & (CAVE_MARK))
{
/* Notice glyphs */
if (cave->feat[y][x] == FEAT_GLYPH) return (TRUE);
/* Notice doors */
if (cave->feat[y][x] == FEAT_OPEN) return (TRUE);
if (cave->feat[y][x] == FEAT_BROKEN) return (TRUE);
/* Notice stairs */
if (cave->feat[y][x] == FEAT_LESS) return (TRUE);
if (cave->feat[y][x] == FEAT_MORE) return (TRUE);
/* Notice shops */
if ((cave->feat[y][x] >= FEAT_SHOP_HEAD) &&
(cave->feat[y][x] <= FEAT_SHOP_TAIL)) return (TRUE);
/* Notice traps */
if (cave_isknowntrap(cave, y, x)) return TRUE;
/* Notice doors */
if (cave_iscloseddoor(cave, y, x)) return TRUE;
/* Notice rubble */
if (cave->feat[y][x] == FEAT_RUBBLE) return (TRUE);
/* Notice veins with treasure */
if (cave->feat[y][x] == FEAT_MAGMA_K) return (TRUE);
if (cave->feat[y][x] == FEAT_QUARTZ_K) return (TRUE);
}
/* Nope */
return (FALSE);
}