/*
* 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 = p_ptr->py;
int px = p_ptr->px;
int i, d, m, t, bd;
int wid, hgt, help_prompt_loc;
bool done = FALSE;
bool flag = TRUE;
bool help = FALSE;
bool list_floor_objects = auto_display_lists;
u16b path_n;
u16b path_g[PATH_SIZE];
u16b path_gx[PATH_SIZE];
ui_event_data query;
char info[80];
/* These are used for displaying the path to the target */
char path_char[MAX_RANGE];
byte path_attr[MAX_RANGE];
/* If we haven't been given an initial location, start on the
player. */
if (x == -1 || y == -1)
{
x = p_ptr->px;
y = p_ptr->py;
}
/* If we /have/ been given an initial location, make sure we
honour it by going into "free targeting" mode. */
else
{
flag = FALSE;
}
/* Cancel target */
target_set_monster(0);
/* make some buttons */
button_backup_all();
button_kill_all();
button_add("[ESCAPE]", ESCAPE);
button_add("[NEXT]", '+');
button_add("[PREV]", '-');
button_add("[PLAYER]", 'p');
button_add("[PATHFIND]", 'g');
button_add("[TARGET]", 't');
/* health_track(0); */
/* All grids are selectable */
if (mode & (TARGET_GRID))
{
/* Disable other modes */
mode &= ~(TARGET_LOOK | TARGET_KILL | TARGET_TRAP);
/* Disable interesting grids */
flag = FALSE;
}
/* Calculate the window location for the help prompt */
Term_get_size(&wid, &hgt);
help_prompt_loc = hgt - (mouse_buttons ? 2 : 1);
/* Display the help prompt */
prt("'?' - help", help_prompt_loc, 0);
/* Prepare the "temp" array */
target_set_interactive_prepare(mode);
/* Start near the player */
m = 0;
/* Interact */
while (!done)
{
button_kill('l');
button_kill('?');
if (list_floor_objects)
{
button_add("[HIDE_OBJLIST]", 'l');
}
else button_add("[SHOW_OBJLIST]", 'l');
if (help)
{
button_add("[HIDE_HELP]", '?');
}
else button_add("[SHOW_HELP]",'?');
/* Interesting grids */
if (flag && temp_n)
{
bool path_drawn = FALSE;
int yy, xx;
y = temp_y[m];
x = temp_x[m];
button_add("[SCAN]",'o');
/* Update help */
if (help)
{
bool good_target = ((cave_m_idx[y][x] > 0) && target_able(cave_m_idx[y][x]));
target_display_help(good_target, !(flag && temp_n));
}
/* Dummy pointers to send to project_path */
yy = y;
xx = x;
/* Allow targets for monsters....or traps, if applicable */
if (((cave_m_idx[y][x] > 0) && target_able(cave_m_idx[y][x])) ||
((mode & (TARGET_TRAP)) && target_able_trap(y, x)))
{
strcpy(info, "q,t,r,l,p,o,+,-,<dir>");
}
/* Dis-allow target */
else
{
strcpy(info, "q,p,l,o,+,-,<dir>");
}
/* Adjust panel if needed */
if (adjust_panel(y, x))
{
/* Handle stuff */
handle_stuff();
}
/* Find the path. */
path_n = project_path(path_g, path_gx, MAX_RANGE, py, px, &yy, &xx, PROJECT_THRU);
/* Draw the path in "target" mode. If there is one */
if ((mode & (TARGET_KILL)) && (cave_info[y][x] & (CAVE_FIRE)))
{
path_drawn = draw_path(path_n, path_g, path_char, path_attr, py, px, y, x);
}
event_signal(EVENT_MOUSEBUTTONS);
/* Describe and Prompt */
query = target_set_interactive_aux(y, x, mode, info, list_floor_objects);
/* Remove the path */
if (path_drawn) load_path(path_n, path_g, path_char, path_attr);
/* Cancel tracking */
/* health_track(0); */
/* Assume no "direction" */
d = 0;
/* Analyze */
switch (query.key)
{
case ESCAPE:
case 'q':
{
done = TRUE;
break;
}
case ' ':
case '*':
case '+':
{
if (++m == temp_n) m = 0;
break;
}
case '-':
{
if (m-- == 0) m = temp_n - 1;
break;
}
case 'p':
{
/* Recenter around player */
verify_panel();
/* Handle stuff */
handle_stuff();
y = py;
x = px;
}
case 'o':
{
flag = FALSE;
break;
}
case 'm':
{
break;
}
/* If we click, move the target location to the click and
switch to "free targetting" mode by unsetting 'flag'.
This means we get some info about wherever we've picked. */
case DEFINED_XFF:
{
x = KEY_GRID_X(query);
y = KEY_GRID_Y(query);
flag = FALSE;
break;
}
case 't':
case '5':
case '0':
case '.':
{
int m_idx = cave_m_idx[y][x];
if ((m_idx > 0) && target_able(m_idx))
{
health_track(m_idx);
target_set_monster(m_idx);
done = TRUE;
}
else if ((mode & (TARGET_TRAP)) && target_able_trap(y, x))
{
target_set_location(y, x);
done = TRUE;
}
else if (mode & (TARGET_PROBE))
{
target_set_location(y, x);
done = TRUE;
}
else
{
bell("Illegal target!");
}
break;
}
case 'g':
{
cmd_insert(CMD_PATHFIND, y, x);
done = TRUE;
break;
}
case 'l':
{
list_floor_objects = (!list_floor_objects);
}
case '?':
{
help = !help;
/* Redraw main window */
p_ptr->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
handle_stuff();
if (!help)
prt("'?' - help", help_prompt_loc, 0);
break;
}
default:
{
/* Extract direction */
d = target_dir(query.key);
/* Oops */
if (!d) bell("Illegal command for target mode!");
break;
}
}
/* Hack -- move around */
if (d)
{
int old_y = temp_y[m];
int old_x = temp_x[m];
/* Find a new monster */
i = target_pick(old_y, old_x, ddy[d], ddx[d]);
/* 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 */
target_set_interactive_prepare(mode);
/* Find a new monster */
i = target_pick(old_y, old_x, ddy[d], ddx[d]);
/* Restore panel if needed */
if ((i < 0) && modify_panel(Term, old_wy, old_wx))
{
/* Recalculate interesting grids */
target_set_interactive_prepare(mode);
}
/* Handle stuff */
handle_stuff();
}
}
/* Use interesting grid if found */
if (i >= 0) m = i;
}
}
/* Arbitrary grids */
else
{
bool path_drawn = FALSE;
/* Dummy pointers to send to project_path */
int yy = y;
int xx = x;
/* Don't need this button any more */
button_kill('o');
/* Update help */
if (help)
{
bool good_target = ((cave_m_idx[y][x] > 0) && target_able(cave_m_idx[y][x]));
target_display_help(good_target, !(flag && temp_n));
}
/* Default prompt */
if (!(mode & (TARGET_GRID)))
{
strcpy(info, "q,t,l,p,m,+,-,<dir>");
}
/* Disable monster selection */
else
{
strcpy(info, "q,t,l.p,+,-,<dir>");
}
/* Find the path. */
path_n = project_path(path_g, path_gx, MAX_RANGE, py, px, &yy, &xx, PROJECT_THRU);
/* Draw the path in "target" mode. If there is one */
if ((mode & (TARGET_KILL)) && (cave_info[y][x] & (CAVE_FIRE)))
{
/* Save target info */
path_drawn = draw_path(path_n, path_g, path_char, path_attr, py, px, y, x);
}
event_signal(EVENT_MOUSEBUTTONS);
/* Describe and Prompt (enable "TARGET_LOOK") */
query = target_set_interactive_aux(y, x, (mode | TARGET_LOOK), info, list_floor_objects);
/* Remove the path */
if (path_drawn) load_path(path_n, path_g, path_char, path_attr);
/* Cancel tracking */
/* health_track(0); */
/* Assume no direction */
d = 0;
/* Analyze the keypress */
switch (query.key)
{
case ESCAPE:
case 'q':
{
done = TRUE;
break;
}
case ' ':
case '*':
case '+':
case '-':
{
break;
}
case 'p':
{
/* Recenter around player */
verify_panel();
/* Handle stuff */
handle_stuff();
y = py;
x = px;
}
case 'o':
{
break;
}
case 'm':
{
/* Monster selection is disabled */
if (mode & (TARGET_GRID)) break;
flag = TRUE;
m = 0;
bd = 999;
/* Pick a nearby monster */
for (i = 0; i < temp_n; i++)
{
t = distance(y, x, temp_y[i], temp_x[i]);
/* Pick closest */
if (t < bd)
{
m = i;
bd = t;
}
}
/* Nothing interesting */
if (bd == 999) flag = FALSE;
break;
}
case '\xff':
{
/* We only target if we click somewhere where the cursor
is already (i.e. a double-click without a time limit) */
if (KEY_GRID_X(query) == x && KEY_GRID_Y(query) == y)
{
/* Make an attempt to target the monster on the given
square rather than the square itself (it seems this
is the more likely intention of clicking on a
monster). */
int m_idx = cave_m_idx[y][x];
if ((m_idx > 0) && target_able(m_idx))
{
health_track(m_idx);
target_set_monster(m_idx);
}
else
{
/* There is no monster, or it isn't targettable,
so target the location instead. */
target_set_location(y, x);
}
done = TRUE;
}
else
{
/* Just move the cursor for now - another click will
target. */
x = KEY_GRID_X(query);
y = KEY_GRID_Y(query);
}
break;
}
case 't':
case '5':
case '0':
case '.':
{
target_set_location(y, x);
done = TRUE;
break;
}
case 'g':
{
cmd_insert(CMD_PATHFIND, y, x);
done = TRUE;
break;
}
case 'l':
{
list_floor_objects = (!list_floor_objects);
}
case '?':
{
help = !help;
/* Redraw main window */
p_ptr->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
handle_stuff();
if (!help)
prt("'?' - help.", help_prompt_loc, 0);
break;
}
default:
{
/* Extract a direction */
d = target_dir(query.key);
/* Oops */
if (!d) bell("Illegal command for target mode!");
break;
}
}
/* Handle "direction" */
if (d)
{
int dungeon_hgt = p_ptr->cur_map_hgt;
int dungeon_wid = p_ptr->cur_map_wid;
/* 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(y, x))
{
/* Handle stuff */
handle_stuff();
/* Recalculate interesting grids */
target_set_interactive_prepare(mode);
}
}
}
}
/* Forget */
temp_n = 0;
/* Redraw as necessary */
if (help)
{
p_ptr->redraw |= (PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIP);
Term_clear();
}
else
{
prt("", 0, 0);
prt("", help_prompt_loc, 0);
p_ptr->redraw |= (PR_DEPTH | PR_STATUS);
}
/* Recenter around player */
verify_panel();
/* Restore buttons */
button_restore();
/* Handle stuff */
handle_stuff();
/* Failure to set target */
if (!p_ptr->target_set) return (FALSE);
/* Success */
return (TRUE);
}
int context_menu_player(int mx, int my)
{
menu_type *m;
rect_region r;
int selected;
char *labels;
cave_type *c_ptr = area(p_ptr->px,p_ptr->py);
pcave_type *pc_ptr = parea(p_ptr->px,p_ptr->py);
feature_type *feat;
m = menu_dynamic_new();
if (!m) {
return 0;
}
labels = (char*)string_make(lower_case);
m->selections = labels;
feat = &(f_info[c_ptr->feat]);
menu_dynamic_add_label(m, "Use Item", 'u', 1, labels);
/* if player can cast, add casting option */
if (player_is_caster()) {
if (player_can_cast()) {
menu_dynamic_add_label(m, "Cast", 'm', 2, labels);
} else {
menu_dynamic_add_label(m, "$Cast", 'm', 2, labels);
}
}
/* if player can use racial powers or mutations, add option */
if (player_has_power()) {
if (player_can_use_power()) {
menu_dynamic_add_label(m, "Use Power", 'U', 16, labels);
} else {
menu_dynamic_add_label(m, "$Use Power", 'U', 16, labels);
}
}
/* if player is on stairs add option to use them */
if (feat->flags & FF_EXIT_UP) {
menu_dynamic_add_label(m, "Go Up", '<', 11, labels);
}
if (feat->flags & FF_EXIT_DOWN) {
menu_dynamic_add_label(m, "Go Down", '>', 12, labels);
}
menu_dynamic_add_label(m, "Search", 's', 3, labels);
menu_dynamic_add_label(m, "Look", 'l', 6, labels);
menu_dynamic_add_label(m, "Rest", 'R', 4, labels);
menu_dynamic_add_label(m, "Inventory", 'i', 5, labels);
/* if object under player add pickup option */
if (c_ptr->o_idx) {
object_type *o_ptr = &(o_list[c_ptr->o_idx]);
//if (!squelch_item_ok(o_ptr)) {
menu_dynamic_add_label(m, "Floor", 'i', 13, labels);
if (inven_carry_okay(o_ptr)) {
menu_dynamic_add_label(m, "Pickup", 'g', 14, labels);
} else {
menu_dynamic_add_label(m, "$Pickup", 'g', 14, labels);
}
//}
}
menu_dynamic_add_label(m, "Character", 'C', 7, labels);
/* XXX Don't show the keymap line until the keymap list is implemented, to
* avoid confusion as to what should be there */
/*menu_dynamic_add(m, "Keymaps", 10);*/
if (!OPT(center_player)) {
menu_dynamic_add_label(m, "^Center Map", 'L', 15, labels);
}
menu_dynamic_add_label(m, "Other", ' ', 9, labels);
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
if (mx > Term->wid - r.width - 1) {
r.col = Term->wid - r.width - 1;
} else {
r.col = mx + 1;
}
r.page_rows = m->count;
if (my > Term->hgt - r.page_rows - 1) {
if (my - r.page_rows - 1 <= 0) {
/* menu has too many items, so put in upper right corner */
r.row = 1;
r.col = Term->wid - r.width - 1;
} else {
r.row = Term->hgt - r.page_rows - 1;
}
} else {
r.row = my + 1;
}
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
menu_layout(m, &r);
rect_region_erase_bordered(&r);
prtf(0, 0, "($UEnter to select$Y\n$V, $UESC$Y%c$V) Command:", ESCAPE);
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
switch(selected) {
case 1:
{
/* use an item */
p_ptr->cmd.cmd = 'u';
repeat_check();
do_cmd_use();
} break;
case 2:
{
/* Cast a spell */
p_ptr->cmd.cmd = 'm';
repeat_check();
do_cmd_cast_wrapper();
} break;
case 3:
{
/* search */
p_ptr->cmd.cmd = 's';
repeat_check();
do_cmd_search();
} break;
case 4:
{
/* rest */
p_ptr->cmd.cmd = 'R';
repeat_check();
do_cmd_rest();
} break;
case 5:
{
/* show inventory screen */
Term_keypress('i');//,0);
} break;
case 6:
{
/* look mode */
if (target_set(TARGET_LOOK)) {
//if (target_set_interactive(TARGET_LOOK, p_ptr->px, p_ptr->py)) {
msgf("Target Selected.");
}
} break;
case 7:
{
/* show character screen */
do_cmd_character();
} break;
case 9:
{
/* show another layer of menu options screen */
int res;
while ((res = context_menu_player_2(mx,my)) == 3);
if (res == 2) return 3;
} break;
case 10:
{
/* show the commands */
int res;
while ((res = context_menu_command(mx,my)) == 3);
if (res == 2) return 3;
} break;
case 11:
{
/* go up stairs */
p_ptr->cmd.cmd = '<';
repeat_check();
do_cmd_go_up();
} break;
case 12:
{
/* go down stairs */
p_ptr->cmd.cmd = '>';
repeat_check();
do_cmd_go_down();
} break;
case 13:
{
if (c_ptr->o_idx) {
object_type *o_ptr = &(o_list[c_ptr->o_idx]);
/* there is an item on the floor, show the inventory screen starting
* from the floor */
if (o_ptr->next_o_idx) {
do_cmd_inven_floor();
} else {
/* if we only have one item, show the context menu directly */
if (o_ptr->k_idx) {
/* Track the object kind */
object_kind_track(o_ptr->k_idx);
while (context_menu_object(o_ptr) == 2);
}
}
}
} break;
case 14:
{
/* pick the item up */
//cmd_insert(CMD_PICKUP);
//cmd_set_arg_item(cmd_get_top(), 0, -1);
carry(TRUE);
} break;
case 15:
{
/* center the map on the player */
/*panel_center(p_ptr->px, p_ptr->py);*/
do_cmd_center_map();
} break;
case 16:
{
/* use character powers */
p_ptr->cmd.cmd = 'U';
repeat_check();
do_cmd_racial_power();
} break;
}
return 1;
}
int context_menu_cave(int cy, int cx, int adjacent, int mx, int my)
{
menu_type *m;
rect_region r;
int selected;
char *labels;
cave_type *c_ptr = area(cx,cy);
pcave_type *pc_ptr = parea(cx,cy);
feature_type *feat;
object_type *o_ptr;
/* paranoia */
if (!in_boundsp(cx,cy)) return 0;
m = menu_dynamic_new();
if (!m) {
return 0;
}
labels = (char*)string_make(lower_case);
m->selections = labels;
feat = &(f_info[c_ptr->feat]);
menu_dynamic_add_label(m, "Look At", 'l', 1, labels);
if (c_ptr->m_idx) {
menu_dynamic_add_label(m, "Recall Info", '/', 18, labels);
}
menu_dynamic_add_label(m, "Use Item On", 'u', 2, labels);
if (player_can_cast()) {
menu_dynamic_add_label(m, "Cast On", 'm', 3, labels);
}
if (adjacent) {
if (c_ptr->m_idx && m_list[c_ptr->m_idx].ml) {
menu_dynamic_add_label(m, "Attack", '+', 4, labels);
} else {
menu_dynamic_add_label(m, "Alter", '+', 4, labels);
}
if (c_ptr->o_idx) {
o_ptr = chest_check(cx,cy);
if (o_ptr && o_ptr->pval) {
//if (!squelch_item_ok(o_ptr)) {
if (object_known_p(o_ptr)) {
if (chest_traps[o_ptr->pval]) {
menu_dynamic_add_label(m, "Disarm Chest", 'D', 5, labels);
menu_dynamic_add_label(m, "Open Chest", 'o', 8, labels);
} else {
menu_dynamic_add_label(m, "Open Disarmed Chest", 'o', 8, labels);
}
} else {
menu_dynamic_add_label(m, "Open Chest", 'o', 8, labels);
}
//}
}
}
if (is_visible_trap(c_ptr)) {
menu_dynamic_add_label(m, "Disarm", 'D', 5, labels);
menu_dynamic_add_label(m, "Jump Onto", 'W', 6, labels);
}
if (pc_ptr->feat) {
if ((feat->flags & FF_CLOSEABLE)
|| ((feat->flags & FF_BROKEN) && (feat->flags & FF_DOOR)))
{
menu_dynamic_add_label(m, "Close", 'c', 7, labels);
}
if (feat->flags & FF_CLOSED) {
menu_dynamic_add_label(m, "Open", 'o', 8, labels);
menu_dynamic_add_label(m, "Bash Open", 'B', 9, labels);
menu_dynamic_add_label(m, "Lock", 'D', 5, labels);
menu_dynamic_add_label(m, "Jam", 'j', 10, labels);
}
if (feat->flags & FF_DIG) {
menu_dynamic_add_label(m, "Tunnel", 'T', 11, labels);
}
}
menu_dynamic_add_label(m, "Search", 's', 12, labels);
menu_dynamic_add_label(m, "Walk Towards", ';', 14, labels);
} else {
menu_dynamic_add_label(m, "Pathfind To", ',', 13, labels);
menu_dynamic_add_label(m, "Walk Towards", ';', 14, labels);
menu_dynamic_add_label(m, "Run Towards", '.', 15, labels);
}
if (player_can_fire()) {
menu_dynamic_add_label(m, "Fire On", 'f', 16, labels);
}
if (c_ptr->m_idx && m_list[c_ptr->m_idx].ml) {
if (is_pet(&(m_list[c_ptr->m_idx]))) {
menu_dynamic_add_label(m, "Pet Commands", 'p', 19, labels);
}
}
menu_dynamic_add_label(m, "Throw To", 'v', 17, labels);
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
if (mx > Term->wid - r.width - 1) {
r.col = Term->wid - r.width - 1;
} else {
r.col = mx + 1;
}
r.page_rows = m->count;
if (my > Term->hgt - r.page_rows - 1) {
if (my - r.page_rows - 1 <= 0) {
/* menu has too many items, so put in upper right corner */
r.row = 1;
r.col = Term->wid - r.width - 1;
} else {
r.row = Term->hgt - r.page_rows - 1;
}
} else {
r.row = my + 1;
}
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
/* if there is a monster, draw a target path, which will be erased by the
* screen load below */
if (c_ptr->m_idx && m_list[c_ptr->m_idx].ml) {
sint path_n;
coord path_g[2*MAX_RANGE+1];
/* Find the path. */
path_n = project_path(path_g, p_ptr->px, p_ptr->py, cx, cy, PROJECT_THRU);
/* Draw the path. */
draw_path(path_n, path_g, NULL, NULL, p_ptr->px, p_ptr->py);
}
menu_layout(m, &r);
rect_region_erase_bordered(&r);
/* display the prompt for the context menu */
target_look_grid_prompt(0, 0, cx, cy,
format("($UEnter to select command$Y\n$V, $UESC$ to cancel$Y%c$V) You see", ESCAPE));
/* Hack - redraw stuff to show the target health bar */
health_redraw();
/* show the menu and pick from it */
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
if (selected == 1) {
/* look at the spot */
if (target_set_interactive(TARGET_LOOK, cx, cy)) {
msgf("Target Selected.");
}
} else
if (selected == 2) {
/* use an item on the spot */
p_ptr->cmd.dir = 5;
p_ptr->cmd.cmd = 'u';
repeat_check();
do_cmd_use();
/*cmd_insert(CMD_USE_AIMED);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);*/
} else
if (selected == 3) {
/* cast a spell on the spot */
p_ptr->cmd.dir = 5;
p_ptr->cmd.cmd = 'm';
repeat_check();
do_cmd_cast_wrapper();
/*if (textui_obj_cast_ret() >= 0) {
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
}*/
} else
if (selected == 4) {
/* attack a spot adjacent to the player */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.arg = 16;
p_ptr->cmd.cmd = '+';
repeat_check();
do_cmd_alter();
/*cmd_insert(CMD_ALTER);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 5) {
/* disarm an adjacent trap or chest */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.arg = 1;
p_ptr->cmd.cmd = 'D';
repeat_check();
do_cmd_disarm();
/*cmd_insert(CMD_DISARM);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 6) {
/* walk onto an adjacent spot even if there is a trap there */
bool orig_disarm = easy_disarm;
easy_disarm = always_pickup;
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.arg = 1;
p_ptr->cmd.cmd = 'W';
repeat_check();
do_cmd_walk(always_pickup);
easy_disarm = orig_disarm;
/*cmd_insert(CMD_JUMP);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 7) {
/* close a door */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
/*p_ptr->cmd.arg = 1;*/
p_ptr->cmd.cmd = 'c';
repeat_check();
do_cmd_close();
/*cmd_insert(CMD_CLOSE);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 8) {
/* open a door or chest */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
/*p_ptr->cmd.arg = 1;*/
p_ptr->cmd.cmd = 'o';
repeat_check();
do_cmd_open();
/*cmd_insert(CMD_OPEN);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 9) {
/* bash a door */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
/*p_ptr->cmd.arg = 1;*/
p_ptr->cmd.cmd = 'o';
repeat_check();
do_cmd_open();
/*p_ptr->cmd.cmd = 'B';
do_cmd_bash();*/
/*cmd_insert(CMD_BASH);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 10) {
/* jam a door */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
/*p_ptr->cmd.arg = 1;*/
p_ptr->cmd.cmd = 'j';
repeat_check();
do_cmd_spike();
/*cmd_insert(CMD_JAM);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 11) {
/* Tunnel in a direction */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.arg = 16;
p_ptr->cmd.cmd = 'T';
repeat_check();
do_cmd_tunnel();
/*cmd_insert(CMD_TUNNEL);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 12) {
/* Search */
/*p_ptr->cmd.arg = 1;*/
p_ptr->cmd.cmd = 's';
repeat_check();
do_cmd_search();
/*cmd_insert(CMD_SEARCH);*/
} else
if (selected == 13) {
/* pathfind to the spot */
/*p_ptr->cmd.arg = 16;*/
p_ptr->cmd.cmd = ',';
do_cmd_pathfind(cx,cy);
/*cmd_insert(CMD_PATHFIND);
cmd_set_arg_point(cmd_get_top(), 0, cx, cy);*/
} else
if (selected == 14) {
/* walk towards the spot */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.cmd = ';';
repeat_check();
do_cmd_walk(always_pickup);
/*cmd_insert(CMD_WALK);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 15) {
/* run towards the spot */
p_ptr->cmd.dir = coords_to_dir(cx, cy);
p_ptr->cmd.cmd = '.';
repeat_check();
do_cmd_run();
/*cmd_insert(CMD_RUN);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(cy,cx));*/
} else
if (selected == 16) {
/* Fire ammo towards the spot */
p_ptr->cmd.dir = 5;
p_ptr->cmd.cmd = 'f';
repeat_check();
do_cmd_fire();
/*cmd_insert(CMD_FIRE);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);*/
} else
if (selected == 17) {
/* throw an item towards the spot */
p_ptr->cmd.dir = 5;
p_ptr->cmd.cmd = 'v';
repeat_check();
do_cmd_throw();
/*cmd_insert(CMD_THROW);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);*/
} else
if (selected == 18) {
/* recall monster Info */
monster_type *m_ptr = &m_list[c_ptr->m_idx];
if (m_ptr) {
/* Save screen */
screen_save();
button_backup_all(TRUE);
/* Recall on screen */
screen_roff_mon(m_ptr->r_idx, 0);
/* wait for a key or mouse press */
inkey();
/* Load screen */
button_restore();
screen_load();
}
} else
if (selected == 19) {
/* issue a pet command */
p_ptr->cmd.cmd = 'p';
repeat_check();
do_cmd_pet();
}
return 1;
}
/* pick the context menu options appropiate for an item available in a store */
int context_menu_store_item(struct store *store, const int oid, int mx, int my)
{
menu_type *m;
rect_region r;
int selected;
char *labels;
object_type *o_ptr;
char header[120];
/* Get the actual object */
o_ptr = &store->stock[oid];
m = menu_dynamic_new();
if (!m || !store) {
return 0;
}
object_desc(header, sizeof(header), o_ptr, ODESC_PREFIX | ODESC_BASE);
labels = string_make(lower_case);
m->selections = labels;
menu_dynamic_add_label(m, "Examine", 'x', 4, labels);
if (store->sidx == STORE_HOME) {
menu_dynamic_add_label(m, "Take", 'p', 6, labels);
if (o_ptr->number > 1) {
menu_dynamic_add_label(m, "Take One", 'o', 5, labels);
}
} else {
menu_dynamic_add_label(m, "Buy", 'p', 6, labels);
if (o_ptr->number > 1) {
menu_dynamic_add_label(m, "Buy One", 'o', 5, labels);
}
}
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
if (mx > Term->wid - r.width - 1) {
r.col = Term->wid - r.width - 1;
} else {
r.col = mx + 1;
}
r.page_rows = m->count;
if (my > Term->hgt - r.page_rows - 1) {
if (my - r.page_rows - 1 <= 0) {
/* menu has too many items, so put in upper right corner */
r.row = 1;
r.col = Term->wid - r.width - 1;
} else {
r.row = Term->hgt - r.page_rows - 1;
}
} else {
r.row = my + 1;
}
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
menu_layout(m, &r);
region_erase_bordered(&r);
prt(format("(Enter to select, ESC) Command for %s:", header), 0, 0);
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
if (selected == 4) {
Term_keypress('x', 0);
} else
if (selected == 5) {
if (store->sidx == STORE_HOME) {
cmd_insert(CMD_RETRIEVE);
} else {
cmd_insert(CMD_BUY);
}
cmd_set_arg_choice(cmd_get_top(), 0, oid);
cmd_set_arg_number(cmd_get_top(), 1, 1);
} else
if (selected == 6) {
Term_keypress('p', 0);
}
return 1;
}
int context_menu_player_2(int mx, int my)
{
menu_type *m;
rect_region r;
int selected;
char *labels;
m = menu_dynamic_new();
if (!m) {
return 0;
}
labels = (char*)string_make(lower_case);
m->selections = labels;
menu_dynamic_add_label(m, "Knowledge", '~', 1, labels);
menu_dynamic_add_label(m, "Show Map", 'M', 2, labels);
menu_dynamic_add_label(m, "^Show Messages", 'P', 3, labels);
menu_dynamic_add_label(m, "Show Monster List", '[', 9, labels);
menu_dynamic_add_label(m, "Show Object List", ']', 10, labels);
menu_dynamic_add_label(m, "Toggle Searching", 'S', 4, labels);
if (player_has_pets()) {
menu_dynamic_add_label(m, "Pet Commands", 'p', 5, labels);
}
menu_dynamic_add_label(m, "Destroy an item", 'k', 6, labels);
menu_dynamic_add_label(m, "Options", '=', 8, labels);
menu_dynamic_add_label(m, "Commands", '?', 7, labels);
menu_dynamic_add_label(m, "Back", ' ', 11, labels);
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
if (mx > Term->wid - r.width - 1) {
r.col = Term->wid - r.width - 1;
} else {
r.col = mx + 1;
}
r.page_rows = m->count;
if (my > Term->hgt - r.page_rows - 1) {
if (my - r.page_rows - 1 <= 0) {
/* menu has too many items, so put in upper right corner */
r.row = 1;
r.col = Term->wid - r.width - 1;
} else {
r.row = Term->hgt - r.page_rows - 1;
}
} else {
r.row = my + 1;
}
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
menu_layout(m, &r);
rect_region_erase_bordered(&r);
prtf(0, 0, "($UEnter to select$Y\n$V, $UESC$Y%c$V) Command:", ESCAPE);
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
if (selected == 1) {
/* show knowledge screen */
Term_keypress('~');//,0);
} else
if (selected == 2) {
/* Toggle show map */
p_ptr->cmd.cmd = 'M';
repeat_check();
do_cmd_view_map();
} else
if (selected == 3) {
/* Toggle show messages */
Term_keypress(KTRL('p'));//,0);/*XXX should be ('p', KC_MOD_CONTROL);*/
} else
if (selected == 4) {
/* Toggle search mode */
Term_keypress('S');//,0);
} else
if (selected == 5) {
/* show pet menu */
p_ptr->cmd.cmd = 'p';
repeat_check();
do_cmd_pet();
} else
if (selected == 6) {
/* destroy/squelch an item */
Term_keypress('k');//,0);
} else
if (selected == 7) {
/* show the commands */
context_menu_command(mx,my);
} else
if (selected == 8) {
/* show options screen */
Term_keypress('=');//,0);
} else
if (selected == 9) {
/* show the monster list */
p_ptr->cmd.dir = 5;
do_cmd_list_monster(0);
//Term_keypress('[');//,0);
} else
if (selected == 10) {
/* show the object list */
p_ptr->cmd.dir = 5;
do_cmd_list_object(0);
//Term_keypress(']');//,0);
} else
if (selected == 11) {
/* show the previous menu again */
return 2;
}
return 1;
}
/* pick the context menu options appropiate for the item */
int context_menu_object(const object_type *o_ptr)
{
menu_type *m;
rect_region r;
int selected;
int location = 0;
char *labels;
char header[120];
s16b *list;
m = menu_dynamic_new();
if (!m || !o_ptr) {
return 0;
}
object_desc(header, o_ptr, TRUE, 2, sizeof(header));
list = look_up_list((object_type*)o_ptr);
if (list) {
if (list == &(p_ptr->inventory)) {
location = USE_INVEN;
} else
if (list == &(area(p_ptr->px, p_ptr->py)->o_idx)) {
location = USE_FLOOR;
} else
{
/* check if in a container */
location = USE_INVEN;
}
} else
if (GET_ARRAY_INDEX(p_ptr->equipment, o_ptr) >= EQUIP_WIELD) {
location = USE_EQUIP;
}
labels = (char*)string_make(lower_case);
m->selections = labels;
menu_dynamic_add_label(m, "Inspect", 'I', 1, labels);
if (item_tester_hook_is_book(o_ptr)) {
if (player_can_cast_from(o_ptr)) {
if (player_can_cast()) {
menu_dynamic_add_label(m, "Cast", 'm', 8, labels);
} else {
menu_dynamic_add_label(m, "$Cast", 'm', 8, labels);
}
if (player_can_study()) {
menu_dynamic_add_label(m, "Study", 'G', 10, labels);
} else {
menu_dynamic_add_label(m, "$Study", 'G', 10, labels);
}
}
if (player_is_caster() && player_can_read()) {
menu_dynamic_add_label(m, "Browse", 'b', 9, labels);
}
} else
if (item_tester_hook_useable(o_ptr)) {
if (obj_is_wand(o_ptr)) {
if (obj_has_charges(o_ptr)) {
menu_dynamic_add_label(m, "Aim", 'a', 8, labels);
} else {
menu_dynamic_add_label(m, "$Aim", 'a', 8, labels);
}
} else
if (obj_is_rod(o_ptr)) {
if (obj_can_zap(o_ptr)) {
menu_dynamic_add_label(m, "Zap", 'z', 8, labels);
} else {
menu_dynamic_add_label(m, "$Zap", 'z', 8, labels);
}
} else
if (obj_is_staff(o_ptr)) {
if (obj_has_charges(o_ptr)) {
menu_dynamic_add_label(m, "Use", 'u', 8, labels);
} else {
menu_dynamic_add_label(m, "$Use", 'u', 8, labels);
}
} else
if (obj_is_scroll(o_ptr)) {
if (player_can_read()) {
menu_dynamic_add_label(m, "Read", 'r', 8, labels);
} else {
menu_dynamic_add_label(m, "$Read", 'r', 8, labels);
}
} else
if (obj_is_potion(o_ptr)) {
menu_dynamic_add_label(m, "Quaff", 'q', 8, labels);
} else
if (obj_is_food(o_ptr)) {
menu_dynamic_add_label(m, "Eat", 'E', 8, labels);
} else
if (item_tester_hook_activate(o_ptr)) {
if (obj_is_activatable(o_ptr)) {
menu_dynamic_add_label(m, "Activate", 'A', 8, labels);
} else {
menu_dynamic_add_label(m, "$Activate", 'A', 8, labels);
}
} else
{
menu_dynamic_add_label(m, "Use", 'U', 8, labels);
}
} else
if (item_tester_hook_ammo(o_ptr)) {
if (obj_can_fire(o_ptr)) {
menu_dynamic_add_label(m, "Fire", 'f', 15, labels);
} else {
menu_dynamic_add_label(m, "$Fire", 'f', 15, labels);
}
}
if (obj_can_refill(o_ptr)) {
menu_dynamic_add_label(m, "Refill", 'F', 11, labels);
}
if (item_tester_hook_wear(o_ptr)) {
if (location == USE_EQUIP) {
menu_dynamic_add_label(m, "Take off", 't', 3, labels);
} else
if (location == USE_INVEN) {
if (item_tester_hook_armour(o_ptr)) {
menu_dynamic_add_label(m, "Wear", 'w', 2, labels);
} else {
menu_dynamic_add_label(m, "Wield", 'w', 2, labels);
}
/*menu_dynamic_add_label(m, "Equip", 'w', 2, labels);*/
}
}
if ((location == USE_INVEN) || (location == USE_EQUIP)) {
menu_dynamic_add_label(m, "Drop", 'd', 6, labels);
if (o_ptr->number > 1) {
menu_dynamic_add_label(m, "Drop All", 'd', 13, labels);
}
} else
if (location == USE_FLOOR) {
if (inven_carry_okay(o_ptr)) {
menu_dynamic_add_label(m, "Pickup", 'g', 7, labels);
} else {
menu_dynamic_add_label(m, "$Pickup", 'g', 7, labels);
}
}
menu_dynamic_add_label(m, "Throw", 'v', 12, labels);
/*if (obj_has_inscrip(o_ptr)) {*/
if (o_ptr->inscription) {
menu_dynamic_add_label(m, "Uninscribe", '}', 5, labels);
} else {
menu_dynamic_add_label(m, "Inscribe", '{', 4, labels);
}
menu_dynamic_add_label(m, "Destroy", 'k', 14, labels);
#if 0
if (object_is_squelched(o_ptr)) {
menu_dynamic_add_label(m, "Unignore", 'k', 14, labels);
} else {
menu_dynamic_add_label(m, "Ignore", 'k', 14, labels);
}
#endif
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
r.col = Term->wid - r.width - 1;
r.row = 1;
r.page_rows = m->count;
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
/* Recall object */
roff_set_width(r.col);
roff_obj_aux(o_ptr);
roff_set_width(0);
menu_layout(m, &r);
rect_region_erase_bordered(&r);
prtf(0, 0, "($UEnter to select$Y\n$V, $UESC$Y%c$V) Command for %s:", ESCAPE, header);
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
if (selected == 1) {
/* inspect it */
identify_fully_aux(o_ptr);
return 2;
} else
if (selected == 2) {
/* wield the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'w';
do_cmd_wield();
/*cmd_insert(CMD_WIELD);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 3) {
/* take the item off */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 't';
do_cmd_takeoff();
/*cmd_insert(CMD_TAKEOFF);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 4) {
/* inscribe the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = '{';
do_cmd_inscribe();
/*cmd_insert(CMD_INSCRIBE);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 5) {
/* uninscribe the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = '}';
do_cmd_uninscribe();
/*cmd_insert(CMD_UNINSCRIBE);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 6) {
/* drop the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'd';
do_cmd_drop();
/*cmd_insert(CMD_DROP);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 7) {
/* pick the item up */
p_ptr->cmd.cmd = 'g';
if (inven_carry_okay(o_ptr)) {
py_pickup_aux((object_type*)o_ptr);
} else {
carry(TRUE);
}
/*cmd_insert(CMD_PICKUP);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 8) {
/* use the item */
bool full = item_tester_full;
item_tester_full = FALSE;
if (player_can_cast_from(o_ptr)) {
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'm';
do_cmd_cast();
} else {
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'u';
repeat_check();
do_cmd_use();
/*cmd_insert(CMD_USE_ANY);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
}
item_tester_full = full;
} else
if (selected == 9) {
/* browse a spellbook */
p_ptr->cmd.cmd = 'b';
do_cmd_browse_aux(o_ptr);
/* copied from textui_spell_browse */
/*textui_book_browse(o_ptr);*/
return 2;
} else
if (selected == 10) {
/* study a spell book */
p_ptr->cmd.cmd = 'G';
do_cmd_study(FALSE, (object_type*)o_ptr);
} else
if (selected == 11) {
/* use the item to refill a light source */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'F';
do_cmd_refill();
/*cmd_insert(CMD_REFILL);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 12) {
/* throw the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'v';
repeat_check();
do_cmd_throw();
/*cmd_insert(CMD_THROW);
cmd_set_arg_item(cmd_get_top(), 0, slot);*/
} else
if (selected == 13) {
/* drop all of the item stack */
if (get_check(format("Drop %s? ", header))) {
set_get_item_object(o_ptr);
p_ptr->cmd.arg = o_ptr->number;
p_ptr->cmd.cmd = 'd';
do_cmd_drop();
/*cmd_insert(CMD_DROP);
cmd_set_arg_item(cmd_get_top(), 0, slot);
cmd_set_arg_number(cmd_get_top(), 1, o_ptr->number);*/
}
} else
if (selected == 14) {
/* squelch or unsquelch the item */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'k';
do_cmd_destroy();
/*textui_cmd_destroy_menu(slot);*/
} else
if (selected == 15) {
/* fire some ammo */
set_get_item_object(o_ptr);
p_ptr->cmd.cmd = 'f';
repeat_check();
do_cmd_fire();
} else
if (selected == -1) {
/* this menu was canceled, tell whatever called us to display its menu again */
return 3;
}
return 1;
}
/* pick the context menu options appropiate for a store */
int context_menu_store(struct store *store, const int oid, int mx, int my)
{
menu_type *m;
rect_region r;
int selected;
char *labels;
object_type *o_ptr;
m = menu_dynamic_new();
if (!m || !store) {
return 0;
}
/* Get the actual object */
o_ptr = &store->stock[oid];
labels = string_make(lower_case);
m->selections = labels;
menu_dynamic_add_label(m, "Inspect Inventory", 'I', 1, labels);
if (store->sidx == STORE_HOME) {
/*menu_dynamic_add(m, "Stash One", 2);*/
menu_dynamic_add_label(m, "Stash", 'd', 3, labels);
menu_dynamic_add_label(m, "Examine", 'x', 4, labels);
menu_dynamic_add_label(m, "Take", 'p', 6, labels);
if (o_ptr->number > 1) {
menu_dynamic_add_label(m, "Take One", 'o', 5, labels);
}
} else {
/*menu_dynamic_add(m, "Sell One", 2);*/
menu_dynamic_add_label(m, "Sell", 'd', 3, labels);
menu_dynamic_add_label(m, "Examine", 'x', 4, labels);
menu_dynamic_add_label(m, "Buy", 'p', 6, labels);
if (o_ptr->number > 1) {
menu_dynamic_add_label(m, "Buy One", 'o', 5, labels);
}
}
menu_dynamic_add_label(m, "Exit", '`', 7, labels);
/* work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
if (mx > Term->wid - r.width - 1) {
r.col = Term->wid - r.width - 1;
} else {
r.col = mx + 1;
}
r.page_rows = m->count;
if (my > Term->hgt - r.page_rows - 1) {
if (my - r.page_rows - 1 <= 0) {
/* menu has too many items, so put in upper right corner */
r.row = 1;
r.col = Term->wid - r.width - 1;
} else {
r.row = Term->hgt - r.page_rows - 1;
}
} else {
r.row = my + 1;
}
/* Hack -- no flush needed */
msg_flag = FALSE;
screen_save();
button_backup_all(TRUE);
menu_layout(m, &r);
region_erase_bordered(&r);
prt("(Enter to select, ESC) Command:", 0, 0);
selected = menu_dynamic_select(m);
menu_dynamic_free(m);
string_free(labels);
button_restore();
screen_load();
if (selected == 1) {
Term_keypress('I', 0);
} else
if (selected == 2) {
Term_keypress('s', 0);
/* oid is store item we do not know item we want to sell here */
/*if (store->sidx == STORE_HOME) {
cmd_insert(CMD_STASH);
} else {
cmd_insert(CMD_SELL);
}
cmd_set_arg_item(cmd_get_top(), 0, oid);
cmd_set_arg_number(cmd_get_top(), 1, 1);*/
} else
if (selected == 3) {
Term_keypress('s', 0);
} else
if (selected == 4) {
Term_keypress('x', 0);
} else
if (selected == 5) {
if (store->sidx == STORE_HOME) {
cmd_insert(CMD_RETRIEVE);
} else {
cmd_insert(CMD_BUY);
}
cmd_set_arg_choice(cmd_get_top(), 0, oid);
cmd_set_arg_number(cmd_get_top(), 1, 1);
} else
if (selected == 6) {
Term_keypress('p', 0);
} else
if (selected == 7) {
Term_keypress(ESCAPE, 0);
}
return 1;
}
/*
* Run multiple menus at the same time.
*
* If popup is true, the screen is saved before the menu is drawn, and
* restored afterwards. Each time a popup menu is redrawn, it resets the
* screen before redrawing.
*/
ui_event menu_select_multi(int *active, menu_type **menus, int num, int notify, bool popup)
{
ui_event in = EVENT_EMPTY;
ui_event out = EVENT_EMPTY;
bool no_act = FALSE;
int i;
assert(menus != NULL);
assert(active != NULL);
assert(num > 1);
assert(*active < num);
for (i = 0; i < num; i++) {
assert(menus[i]->active.width != 0 && menus[i]->active.page_rows != 0);
}
notify |= (EVT_SELECT | EVT_ESCAPE);
if (popup) {
screen_save();
button_backup_all(TRUE);
}
/* Stop on first unhandled event */
//while (!(in.type & notify))
//while (!(in & notify))
while (!(in == EVT_SELECT) && !(in == EVT_ESCAPE))
{
out = EVENT_EMPTY;
if (popup) {
button_restore();
screen_load();
screen_save();
button_backup_all(TRUE);
}
no_act = (menus[*active]->flags & MN_NO_ACTION) ? TRUE : FALSE;
/* refresh all of the menus except the active one */
for (i = 0; i < num; i++) {
if (i != *active) {
menu_refresh(menus[i], FALSE);
}
}
/* refresh the active menu */
menu_refresh(menus[*active], FALSE);
//in = inkey_ex();
in = inkey_m();
/* Handle mouse & keyboard commands */
//if (in.type == EVT_MOUSE) {
if (in & 0x80) {
//if (!no_act && menu_handle_action(menu, &in)) {
// continue;
//}
//menu_handle_mouse(menu, &in, &out);
if (in == EVT_RESIZE) {
/* resize all of the menus */
for (i = 0; i < num; i++) {
menu_calc_size(menus[i]);
if (menus[i]->row_funcs->resize)
menus[i]->row_funcs->resize(menus[i]);
}
} else {
int mx,my;
char p;
/* check which menu the click was in */
Term_peekmousepress(&p, &mx, &my);
if (!rect_region_inside(&(menus[*active]->active), my, mx) ) {
for (i = 0; i < num; i++) {
if (rect_region_inside(&(menus[i]->active), my, mx)) {
no_act = (menus[i]->flags & MN_NO_ACTION) ? TRUE : FALSE;
*active = i;
}
}
}
/* handle the click in the active one */
if (!no_act && menu_handle_action(menus[*active], &in)) {
continue;
}
menu_handle_mouse(menus[*active], &in, &out);
}
//} else if (in.type == EVT_KBRD) {
} else {
/* see if we need to move between menus */
/* handle the key press */
if (!no_act && menus[*active]->cmd_keys &&
//strchr(menu->cmd_keys, (char)in.key.code) &&
strchr(menus[*active]->cmd_keys, (char)in) &&
menu_handle_action(menus[*active], &in))
{
continue;
}
menu_handle_keypress(menus[*active], &in, &out);
}// else if (in.type == EVT_RESIZE) {
// menu_calc_size(menu);
// if (menu->row_funcs->resize)
// menu->row_funcs->resize(menu);
//}
/* XXX should redraw menu here if cursor has moved */
/* if we requested it, send move events out */
if ((out == EVT_SELECT) && (menus[*active]->flags & MN_HANDLE_MOVE)
&& !no_act && menu_handle_action(menus[*active], &out))
continue;
/* If we've selected an item, then send that event out */
//if (out.type == EVT_SELECT && !no_act && menu_handle_action(menu, &out))
if ((out == EVT_SELECT) && !no_act && menu_handle_action(menus[*active], &out))
continue;
/* needed because EVT_* types are composed of multiple flags where in
* angband they are one flag of an int, so the (notify & out) and
* (!(in & notify)) is only true for particular EVT_* values */
/* Notify about the outgoing type */
//if (notify & out.type) {
//if (notify & out) {
if ((out == EVT_SELECT) || (out == EVT_ESCAPE)) {
if (popup) {
button_restore();
screen_load();
}
return out;
}
}
if (popup) {
button_restore();
screen_load();
}
return in;
}
/*
* Run a menu.
*
* If popup is true, the screen is saved before the menu is drawn, and
* restored afterwards. Each time a popup menu is redrawn, it resets the
* screen before redrawing.
*/
ui_event menu_select(menu_type *menu, int notify, bool popup)
{
ui_event in = EVENT_EMPTY;
ui_event out = EVENT_EMPTY;
bool no_act = (menu->flags & MN_NO_ACTION) ? TRUE : FALSE;
assert(menu->active.width != 0 && menu->active.page_rows != 0);
notify |= (EVT_SELECT | EVT_ESCAPE);
if (popup) {
screen_save();
button_backup_all(TRUE);
}
/* Stop on first unhandled event */
//while (!(in.type & notify))
//while (!(in & notify))
while (!(in == EVT_SELECT) && !(in == EVT_ESCAPE))
{
out = EVENT_EMPTY;
menu_refresh(menu, popup);
//in = inkey_ex();
in = inkey_m();
/* Handle mouse & keyboard commands */
//if (in.type == EVT_MOUSE) {
if (in & 0x80) {
//if (!no_act && menu_handle_action(menu, &in)) {
// continue;
//}
//menu_handle_mouse(menu, &in, &out);
if (in == EVT_RESIZE) {
menu_calc_size(menu);
if (menu->row_funcs->resize)
menu->row_funcs->resize(menu);
} else {
if (!no_act && menu_handle_action(menu, &in)) {
continue;
}
menu_handle_mouse(menu, &in, &out);
}
//} else if (in.type == EVT_KBRD) {
} else {
if (!no_act && menu->cmd_keys &&
//strchr(menu->cmd_keys, (char)in.key.code) &&
strchr(menu->cmd_keys, (char)in) &&
menu_handle_action(menu, &in))
continue;
menu_handle_keypress(menu, &in, &out);
}// else if (in.type == EVT_RESIZE) {
// menu_calc_size(menu);
// if (menu->row_funcs->resize)
// menu->row_funcs->resize(menu);
//}
/* XXX should redraw menu here if cursor has moved */
/* if we requested it, send move events out */
if ((out == EVT_SELECT) && (menu->flags & MN_HANDLE_MOVE)
&& !no_act && menu_handle_action(menu, &out))
continue;
/* If we've selected an item, then send that event out */
//if (out.type == EVT_SELECT && !no_act && menu_handle_action(menu, &out))
if ((out == EVT_SELECT) && !no_act && menu_handle_action(menu, &out))
continue;
/* needed because EVT_* types are composed of multiple flags where in
* angband they are one flag of an int, so the (notify & out) and
* (!(in & notify)) is only true for particular EVT_* values */
/* Notify about the outgoing type */
//if (notify & out.type) {
//if (notify & out) {
if ((out == EVT_SELECT) || (out == EVT_ESCAPE)) {
if (popup) {
button_restore();
screen_load();
}
return out;
}
}
if (popup) {
button_restore();
screen_load();
}
return in;
}
/**
* Display some character info
*/
static void death_info(const char *title, int row)
{
int i, j, k, which = 0;
object_type *o_ptr;
store_type *st_ptr;
ui_event_data ke;
bool done = FALSE;
/* Get the store number of the home */
if (OPT(adult_dungeon))
which = NUM_TOWNS_SMALL * 4 + STORE_HOME;
else {
for (i = 0; i < NUM_TOWNS; i++) {
/* Found the town */
if (p_ptr->home == towns[i]) {
which += (i < NUM_TOWNS_SMALL ? 3 : STORE_HOME);
break;
}
/* Next town */
else
which +=
(i < NUM_TOWNS_SMALL ? MAX_STORES_SMALL : MAX_STORES_BIG);
}
}
/* Activate the store */
st_ptr = &store[which];
screen_save();
/* Display player */
display_player(0);
/* Prompt for inventory */
prt("Hit any key to see more information (ESC to abort): ", 0, 0);
/* Buttons */
button_backup_all();
button_kill_all();
button_add("ESC", ESCAPE);
button_add("Continue", 'q');
/* Allow abort at this point */
ke = inkey_ex();
if (ke.key == ESCAPE)
done = TRUE;
/* Show equipment and inventory */
/* Equipment -- if any */
if ((p_ptr->equip_cnt) && !done) {
Term_clear();
item_tester_full = TRUE;
show_equip(OLIST_WEIGHT);
prt("You are using: -more-", 0, 0);
ke = inkey_ex();
if (ke.key == ESCAPE)
done = TRUE;
}
/* Inventory -- if any */
if ((p_ptr->inven_cnt) && !done) {
Term_clear();
item_tester_full = TRUE;
show_inven(OLIST_WEIGHT);
prt("You are carrying: -more-", 0, 0);
ke = inkey_ex();
if (ke.key == ESCAPE)
done = TRUE;
}
/* Home -- if anything there */
if ((st_ptr->stock_num) && !done) {
/* Display contents of the home */
for (k = 0, i = 0; i < st_ptr->stock_num; k++) {
/* Clear screen */
Term_clear();
/* Show 12 items */
for (j = 0; (j < 12) && (i < st_ptr->stock_num); j++, i++) {
byte attr;
char o_name[80];
char tmp_val[80];
/* Get the object */
o_ptr = &st_ptr->stock[i];
/* Print header, clear line */
sprintf(tmp_val, "%c) ", I2A(j));
prt(tmp_val, j + 2, 4);
/* Get the object description */
object_desc(o_name, sizeof(o_name), o_ptr,
ODESC_PREFIX | ODESC_FULL);
/* Get the inventory color */
attr = tval_to_attr[o_ptr->tval & 0x7F];
/* Display the object */
c_put_str(attr, o_name, j + 2, 7);
}
/* Caption */
prt(format("Your home contains (page %d): -more-", k + 1), 0, 0);
/* Wait for it */
ke = inkey_ex();
if (ke.key == ESCAPE)
done = TRUE;
}
}
screen_load();
}
/**
* Show previous messages to the user
*
* The screen format uses line 0 and 23 for headers and prompts,
* skips line 1 and 22, and uses line 2 thru 21 for old messages.
*
* This command shows you which commands you are viewing, and allows
* you to "search" for strings in the recall.
*
* Note that messages may be longer than 80 characters, but they are
* displayed using "infinite" length, with a special sub-command to
* "slide" the virtual display to the left or right.
*
* Attempt to only hilight the matching portions of the string.
*/
void do_cmd_messages(void)
{
ui_event ke;
int i, j, n, q;
int wid, hgt;
char shower[80];
char finder[80];
char p[80];
/* Wipe finder */
my_strcpy(finder, "", sizeof(shower));
/* Wipe shower */
my_strcpy(shower, "", sizeof(finder));
/* Total messages */
n = messages_num();
/* Start on first message */
i = 0;
/* Start at leftmost edge */
q = 0;
/* Get size */
Term_get_size(&wid, &hgt);
/* Prompt */
strncpy(p, "[Press 'p' for older, 'n' for newer, ..., or ESCAPE]", 80);
/* Save screen */
screen_save();
/* Adjust the buttons */
button_backup_all();
button_kill_all();
button_add("ESC", ESCAPE);
button_add("-", '-');
button_add("=", '=');
button_add("/", '/');
button_add("p", 'p');
button_add("n", 'n');
button_add("+", '+');
button_add("->", '6');
button_add("<-", '4');
p_ptr->redraw |= (PR_BUTTONS);
/* Process requests until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Dump messages */
for (j = 0; (j < hgt - 4) && (i + j < n); j++)
{
const char *msg = message_str((s16b)(i+j));
byte attr = message_color((s16b)(i+j));
/* Apply horizontal scroll */
msg = ((int)strlen(msg) >= q) ? (msg + q) : "";
/* Dump the messages, bottom to top */
Term_putstr(0, hgt - 3 - j, -1, attr, msg);
/* Hilight "shower" */
if (shower[0])
{
const char *str = msg;
/* Display matches */
while ((str = strstr(str, shower)) != NULL)
{
int len = strlen(shower);
/* Display the match */
Term_putstr(str-msg, hgt - 3 - j, len, TERM_YELLOW, shower);
/* Advance */
str += len;
}
}
}
/* Display header XXX XXX XXX */
prt(format("Message Recall (%d-%d of %d), Offset %d",
i, i + j - 1, n, q), 0, 0);
/* Display prompt (not very informative) */
prt(p, hgt - 1, 0);
redraw_stuff(p_ptr);
/* Get a command */
ke = inkey_ex();
/* Exit on Escape */
if (ke.key.code == ESCAPE) break;
/* Hack -- Save the old index */
j = i;
/* Horizontal scroll */
if (ke.key.code == '4')
{
/* Scroll left */
q = (q >= wid / 2) ? (q - wid / 2) : 0;
/* Success */
continue;
}
/* Horizontal scroll */
if (ke.key.code == '6')
{
/* Scroll right */
q = q + wid / 2;
/* Success */
continue;
}
/* Hack -- handle show */
if (ke.key.code == '=')
{
/* Prompt */
prt("Show: ", hgt - 1, 0);
/* Get a "shower" string, or continue */
if (!askfor_aux(shower, sizeof shower, NULL)) continue;
/* Okay */
continue;
}
/* Hack -- handle find */
if (ke.key.code == '/')
{
s16b z;
/* Prompt */
prt("Find: ", hgt - 1, 0);
/* Get a "finder" string, or continue */
if (!askfor_aux(finder, sizeof finder, NULL)) continue;
/* Show it */
my_strcpy(shower, finder, sizeof(shower));
/* Scan messages */
for (z = i + 1; z < n; z++)
{
const char *msg = message_str(z);
/* Search for it */
if (strstr(msg, finder))
{
/* New location */
i = z;
/* Done */
break;
}
}
}
/* Recall 20 older messages */
if ((ke.key.code == 'p') || (ke.key.code == KTRL('P')) || (ke.key.code == ' '))
{
/* Go older if legal */
if (i + 20 < n) i += 20;
}
/* Recall 10 older messages */
if (ke.key.code == '+')
{
/* Go older if legal */
if (i + 10 < n) i += 10;
}
/* Recall 1 older message */
if ((ke.key.code == '8') || (ke.key.code == '\n') || (ke.key.code == '\r'))
{
/* Go older if legal */
if (i + 1 < n) i += 1;
}
/* Recall 20 newer messages */
if ((ke.key.code == 'n') || (ke.key.code == KTRL('N')))
{
/* Go newer (if able) */
i = (i >= 20) ? (i - 20) : 0;
}
/* Recall 10 newer messages */
if (ke.key.code == '-')
{
/* Go newer (if able) */
i = (i >= 10) ? (i - 10) : 0;
}
/* Recall 1 newer messages */
if (ke.key.code == '2')
{
/* Go newer (if able) */
i = (i >= 1) ? (i - 1) : 0;
}
/* Scroll forwards or backwards using mouse clicks */
if (ke.mouse.button)
{
if (ke.mouse.y <= hgt / 2)
{
/* Go older if legal */
if (i + 20 < n) i += 20;
}
else
{
/* Go newer (if able) */
i = (i >= 20) ? (i - 20) : 0;
}
}
/* Hack -- Error of some kind */
if (i == j) bell(NULL);
}
/* Adjust the buttons */
button_restore();
/* Load screen */
screen_load();
}
/**
* Hack -- change name
*/
void do_cmd_change_name(void)
{
ui_event ke;
int col = 0;
int last_line = 0;
int top_line = 0;
const char *p;
/* Prompt */
p = "['c' change name, 'f' to file, scroll, or ESC]";
/* Save screen */
screen_save();
/* Adjust the buttons */
button_backup_all();
button_kill_all();
button_add("ESC", ESCAPE);
button_add("Spc", ' ');
button_add("-", '-');
button_add("c", 'c');
button_add("f", 'f');
button_add("->", ARROW_RIGHT);
button_add("<-", ARROW_LEFT);
p_ptr->redraw |= PR_BUTTONS;
/* Make the array of lines */
C_WIPE(dumpline, DUMP_MAX_LINES, char_attr_line);
last_line = make_dump(dumpline, 2);
/* Forever */
while (1)
{
/* Display the player */
display_dump(dumpline, top_line, top_line + Term->hgt - 1, col);
redraw_stuff(p_ptr);
/* Clear the bottom line */
prt("", Term->hgt - 1, 0);
/* Prompt */
Term_putstr(0, Term->hgt - 1, -1, TERM_WHITE, p);
/* Query */
ke = inkey_ex();
/* Exit */
if (ke.key.code == ESCAPE) break;
/* Change name */
if (ke.key.code == 'c')
{
char namebuf[32] = "";
if (get_name(namebuf, sizeof namebuf))
{
/* Set player name */
my_strcpy(op_ptr->full_name, namebuf,
sizeof(op_ptr->full_name));
/* Don't change savefile name. */
process_player_name(FALSE);
}
//(void) get_name(namebuf, sizeof namebuf);
(void) make_dump(dumpline, 2);
}
/* File dump */
else if (ke.key.code == 'f')
{
char ftmp[80];
strnfmt(ftmp, sizeof ftmp, "%s.txt", op_ptr->base_name);
if (get_string("File name: ", ftmp, 80))
{
if (ftmp[0] && (ftmp[0] != ' '))
{
if (file_character(ftmp, dumpline, last_line))
msg("Character dump failed!");
else
msg("Character dump successful.");
}
}
}
/* Scroll down */
else if (ke.key.code == ARROW_DOWN)
{
if (top_line + Term->hgt - 2 < last_line)
top_line++;
}
/* Page down */
else if (ke.key.code == ' ')
{
top_line = MIN(last_line - Term->hgt + 2,
top_line + (Term->hgt - 2));
}
/* Scroll up */
else if (ke.key.code == ARROW_UP)
{
if (top_line)
top_line--;
}
/* Page up */
else if (ke.key.code == '-')
{
top_line -= (Term->hgt - 2) / 2;
if (top_line < 0) top_line = 0;
}
/* Scroll left */
else if (ke.key.code == ARROW_LEFT)
{
if (col)
col--;
}
/* Scroll right */
else if (ke.key.code == ARROW_RIGHT)
{
if (col < 32)
col++;
}
/* Oops */
else
{
bell(NULL);
}
/* Flush messages */
message_flush();
}
/* Adjust the buttons */
button_restore();
/* Load screen */
screen_load();
}