/**
* Set target to closest monster.
*/
bool target_set_closest(int mode)
{
int y, x;
struct monster *mon;
char m_name[80];
struct point_set *targets;
/* Cancel old target */
target_set_monster(0);
/* Get ready to do targetting */
targets = target_get_monsters(mode);
/* If nothing was prepared, then return */
if (point_set_size(targets) < 1) {
msg("No Available Target.");
point_set_dispose(targets);
return false;
}
/* Find the first monster in the queue */
y = targets->pts[0].y;
x = targets->pts[0].x;
mon = square_monster(cave, y, x);
/* Target the monster, if possible */
if (!target_able(mon)) {
msg("No Available Target.");
point_set_dispose(targets);
return false;
}
/* Target the monster */
monster_desc(m_name, sizeof(m_name), mon, MDESC_CAPITAL);
if (!(mode & TARGET_QUIET))
msg("%s is targeted.", m_name);
/* Set up target information */
monster_race_track(player->upkeep, mon->race);
health_track(player->upkeep, mon);
target_set_monster(mon);
point_set_dispose(targets);
return true;
}
/**
* Handle "target" and "look".
*
* Note that this code can be called from "get_aim_dir()".
*
* Currently, when "flag" is true, that is, when
* "interesting" grids are being used, and a directional key is used, we
* only scroll by a single panel, in the direction requested, and check
* for any interesting grids on that panel. The "correct" solution would
* actually involve scanning a larger set of grids, including ones in
* panels which are adjacent to the one currently scanned, but this is
* overkill for this function. XXX XXX
*
* Hack -- targetting/observing an "outer border grid" may induce
* problems, so this is not currently allowed.
*
* The player can use the direction keys to move among "interesting"
* grids in a heuristic manner, or the "space", "+", and "-" keys to
* move through the "interesting" grids in a sequential manner, or
* can enter "location" mode, and use the direction keys to move one
* grid at a time in any direction. The "t" (set target) command will
* only target a monster (as opposed to a location) if the monster is
* target_able and the "interesting" mode is being used.
*
* The current grid is described using the "look" method above, and
* a new command may be entered at any time, but note that if the
* "TARGET_LOOK" bit flag is set (or if we are in "location" mode,
* where "space" has no obvious meaning) then "space" will scan
* through the description of the current grid until done, instead
* of immediately jumping to the next "interesting" grid. This
* allows the "target" command to retain its old semantics.
*
* The "*", "+", and "-" keys may always be used to jump immediately
* to the next (or previous) interesting grid, in the proper mode.
*
* The "return" key may always be used to scan through a complete
* grid description (forever).
*
* This command will cancel any old target, even if used from
* inside the "look" command.
*
*
* 'mode' is one of TARGET_LOOK or TARGET_KILL.
* 'x' and 'y' are the initial position of the target to be highlighted,
* or -1 if no location is specified.
* Returns TRUE if a target has been successfully set, FALSE otherwise.
*/
bool target_set_interactive(int mode, int x, int y)
{
int py = player->py;
int px = player->px;
int path_n;
struct loc path_g[256];
int i, d, m, t, bd;
int wid, hgt, help_prompt_loc;
bool done = FALSE;
bool flag = TRUE;
bool help = FALSE;
ui_event press;
/* These are used for displaying the path to the target */
wchar_t *path_char = mem_zalloc(z_info->max_range * sizeof(wchar_t));
int *path_attr = mem_zalloc(z_info->max_range * sizeof(int));
struct point_set *targets;
/* If we haven't been given an initial location, start on the
player, otherwise honour it by going into "free targetting" mode. */
if (x == -1 || y == -1) {
x = player->px;
y = player->py;
} else {
flag = FALSE;
}
/* Cancel target */
target_set_monster(0);
/* Calculate the window location for the help prompt */
Term_get_size(&wid, &hgt);
help_prompt_loc = hgt - 1;
/* Display the help prompt */
prt("Press '?' for help.", help_prompt_loc, 0);
/* Prepare the target set */
targets = target_get_monsters(mode);
/* Start near the player */
m = 0;
/* Interact */
while (!done) {
bool path_drawn = FALSE;
/* Interesting grids if chosen and there are any, otherwise arbitrary */
if (flag && point_set_size(targets)) {
y = targets->pts[m].y;
x = targets->pts[m].x;
/* Adjust panel if needed */
if (adjust_panel_help(y, x, help)) handle_stuff(player);
/* Update help */
if (help) {
bool good_target = target_able(square_monster(cave, y, x));
target_display_help(good_target,
!(flag && point_set_size(targets)));
}
/* Find the path. */
path_n = project_path(path_g, z_info->max_range, py, px, y, x,
PROJECT_THRU);
/* Draw the path in "target" mode. If there is one */
if (mode & (TARGET_KILL))
path_drawn = draw_path(path_n, path_g, path_char, path_attr,
py, px);
/* Describe and Prompt */
press = target_set_interactive_aux(y, x, mode);
/* Remove the path */
if (path_drawn) load_path(path_n, path_g, path_char, path_attr);
/* Assume no "direction" */
d = 0;
/* Analyze */
if (press.type == EVT_MOUSE) {
if (press.mouse.button == 3) {
/* give the target selection command */
press.mouse.button = 2;
press.mouse.mods = KC_MOD_CONTROL;
}
if (press.mouse.button == 2) {
y = KEY_GRID_Y(press);
x = KEY_GRID_X(press);
if (press.mouse.mods & KC_MOD_CONTROL) {
/* same as keyboard target selection command below */
struct monster *m = square_monster(cave, y, x);
if (target_able(m)) {
/* Set up target information */
monster_race_track(player->upkeep, m->race);
health_track(player->upkeep, m);
target_set_monster(m);
done = TRUE;
} else {
bell("Illegal target!");
}
} else if (press.mouse.mods & KC_MOD_ALT) {
/* go to spot - same as 'g' command below */
cmdq_push(CMD_PATHFIND);
cmd_set_arg_point(cmdq_peek(), "point", y, x);
done = TRUE;
} else {
/* cancel look mode */
done = TRUE;
}
} else {
y = KEY_GRID_Y(press);
x = KEY_GRID_X(press);
if (square_monster(cave, y, x) ||
square_object(cave, y, x)) {
/* reset the flag, to make sure we stay in this
* mode if something is actually there */
flag = FALSE;
/* scan the interesting list and see if there is
* anything here */
for (i = 0; i < point_set_size(targets); i++) {
if ((y == targets->pts[i].y) &&
(x == targets->pts[i].x)) {
m = i;
flag = TRUE;
break;
}
}
} else {
flag = FALSE;
}
}
} else
switch (press.key.code)
{
case ESCAPE:
case 'q':
{
done = TRUE;
break;
}
case ' ':
case '*':
case '+':
{
if (++m == point_set_size(targets))
m = 0;
break;
}
case '-':
{
if (m-- == 0)
m = point_set_size(targets) - 1;
break;
}
case 'p':
{
/* Recenter around player */
verify_panel();
/* Handle stuff */
handle_stuff(player);
y = player->py;
x = player->px;
}
case 'o':
{
flag = FALSE;
break;
}
case 'm':
{
break;
}
case 't':
case '5':
case '0':
case '.':
{
struct monster *m = square_monster(cave, y, x);
if (target_able(m)) {
health_track(player->upkeep, m);
target_set_monster(m);
done = TRUE;
} else {
bell("Illegal target!");
}
break;
}
case 'g':
{
cmdq_push(CMD_PATHFIND);
cmd_set_arg_point(cmdq_peek(), "point", y, x);
done = TRUE;
break;
}
case '?':
{
help = !help;
/* Redraw main window */
player->upkeep->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
handle_stuff(player);
if (!help)
prt("Press '?' for help.", help_prompt_loc, 0);
break;
}
default:
{
/* Extract direction */
d = target_dir(press.key);
/* Oops */
if (!d) bell("Illegal command for target mode!");
break;
}
}
/* Hack -- move around */
if (d) {
int old_y = targets->pts[m].y;
int old_x = targets->pts[m].x;
/* Find a new monster */
i = target_pick(old_y, old_x, ddy[d], ddx[d], targets);
/* Scroll to find interesting grid */
if (i < 0) {
int old_wy = Term->offset_y;
int old_wx = Term->offset_x;
/* Change if legal */
if (change_panel(d)) {
/* Recalculate interesting grids */
point_set_dispose(targets);
targets = target_get_monsters(mode);
/* Find a new monster */
i = target_pick(old_y, old_x, ddy[d], ddx[d], targets);
/* Restore panel if needed */
if ((i < 0) && modify_panel(Term, old_wy, old_wx)) {
/* Recalculate interesting grids */
point_set_dispose(targets);
targets = target_get_monsters(mode);
}
/* Handle stuff */
handle_stuff(player);
}
}
/* Use interesting grid if found */
if (i >= 0) m = i;
}
} else {
/* Update help */
if (help) {
bool good_target = target_able(square_monster(cave, y, x));
target_display_help(good_target,
!(flag && point_set_size(targets)));
}
/* Find the path. */
path_n = project_path(path_g, z_info->max_range, py, px, y, x,
PROJECT_THRU);
/* Draw the path in "target" mode. If there is one */
if (mode & (TARGET_KILL))
path_drawn = draw_path (path_n, path_g, path_char, path_attr,
py, px);
/* Describe and Prompt (enable "TARGET_LOOK") */
press = target_set_interactive_aux(y, x, mode | TARGET_LOOK);
/* Remove the path */
if (path_drawn) load_path(path_n, path_g, path_char, path_attr);
/* Assume no direction */
d = 0;
/* Analyze the keypress */
if (press.type == EVT_MOUSE) {
if (press.mouse.button == 3) {
/* give the target selection command */
press.mouse.button = 2;
press.mouse.mods = KC_MOD_CONTROL;
}
if (press.mouse.button == 2) {
if (mode & (TARGET_KILL)) {
if ((y == KEY_GRID_Y(press))
&& (x == KEY_GRID_X(press))) {
d = -1;
}
}
y = KEY_GRID_Y(press);
x = KEY_GRID_X(press);
if (press.mouse.mods & KC_MOD_CONTROL) {
/* same as keyboard target selection command below */
target_set_location(y, x);
done = TRUE;
} else if (press.mouse.mods & KC_MOD_ALT) {
/* go to spot - same as 'g' command below */
cmdq_push(CMD_PATHFIND);
cmd_set_arg_point(cmdq_peek(), "point", y, x);
done = TRUE;
} else {
/* cancel look mode */
done = TRUE;
if (d == -1) {
target_set_location(y, x);
d = 0;
}
}
} else {
int dungeon_hgt = cave->height;
int dungeon_wid = cave->width;
y = KEY_GRID_Y(press);
x = KEY_GRID_X(press);
if (press.mouse.y <= 1) {
/* move the screen north */
y--;
} else if (press.mouse.y >= (Term->hgt - 2)) {
/* move the screen south */
y++;
} else if (press.mouse.x <= COL_MAP) {
/* move the screen in west */
x--;
} else if (press.mouse.x >= (Term->wid - 2)) {
/* move the screen east */
x++;
}
if (y < 0) y = 0;
if (x < 0) x = 0;
if (y >= dungeon_hgt-1) y = dungeon_hgt-1;
if (x >= dungeon_wid-1) x = dungeon_wid-1;
/* Adjust panel if needed */
if (adjust_panel_help(y, x, help)) {
/* Handle stuff */
handle_stuff(player);
/* Recalculate interesting grids */
point_set_dispose(targets);
targets = target_get_monsters(mode);
}
if (square_monster(cave, y, x) ||
square_object(cave, y, x)) {
/* scan the interesting list and see if there in
* anything here */
for (i = 0; i < point_set_size(targets); i++) {
if ((y == targets->pts[i].y) &&
(x == targets->pts[i].x)) {
m = i;
flag = TRUE;
break;
}
}
} else {
flag = FALSE;
}
}
} else
switch (press.key.code)
{
case ESCAPE:
case 'q':
{
done = TRUE;
break;
}
case ' ':
case '*':
case '+':
case '-':
{
break;
}
case 'p':
{
/* Recenter around player */
verify_panel();
/* Handle stuff */
handle_stuff(player);
y = player->py;
x = player->px;
}
case 'o':
{
break;
}
case 'm':
{
flag = TRUE;
m = 0;
bd = 999;
/* Pick a nearby monster */
for (i = 0; i < point_set_size(targets); i++) {
t = distance(y, x, targets->pts[i].y,
targets->pts[i].x);
/* Pick closest */
if (t < bd) {
m = i;
bd = t;
}
}
/* Nothing interesting */
if (bd == 999) flag = FALSE;
break;
}
case 't':
case '5':
case '0':
case '.':
{
target_set_location(y, x);
done = TRUE;
break;
}
case 'g':
{
cmdq_push(CMD_PATHFIND);
cmd_set_arg_point(cmdq_peek(), "point", y, x);
done = TRUE;
break;
}
case '?':
{
help = !help;
/* Redraw main window */
player->upkeep->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
handle_stuff(player);
if (!help)
prt("Press '?' for help.", help_prompt_loc, 0);
break;
}
default:
{
/* Extract a direction */
d = target_dir(press.key);
/* Oops */
if (!d) bell("Illegal command for target mode!");
break;
}
}
/* Handle "direction" */
if (d) {
int dungeon_hgt = cave->height;
int dungeon_wid = cave->width;
/* Move */
x += ddx[d];
y += ddy[d];
/* Slide into legality */
if (x >= dungeon_wid - 1) x--;
else if (x <= 0) x++;
/* Slide into legality */
if (y >= dungeon_hgt - 1) y--;
else if (y <= 0) y++;
/* Adjust panel if needed */
if (adjust_panel_help(y, x, help)) {
/* Handle stuff */
handle_stuff(player);
/* Recalculate interesting grids */
point_set_dispose(targets);
targets = target_get_monsters(mode);
}
}
}
}
/* Forget */
point_set_dispose(targets);
/* Redraw as necessary */
if (help) {
player->upkeep->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
} else {
prt("", 0, 0);
prt("", help_prompt_loc, 0);
player->upkeep->redraw |= (PR_DEPTH | PR_STATUS);
}
/* Recenter around player */
verify_panel();
/* Handle stuff */
handle_stuff(player);
mem_free(path_attr);
mem_free(path_char);
/* Failure to set target */
if (!target_is_set()) return (FALSE);
/* Success */
return (TRUE);
}
