/*
* Go up one level
*/
void do_cmd_go_up(cmd_code code, cmd_arg args[])
{
/* Verify stairs */
if (!cave_isupstairs(cave, p_ptr->py, p_ptr->px)) {
msg("I see no up staircase here.");
return;
}
/* Force descend */
if (OPT(birth_force_descend)) {
msg("Nothing happens!");
return;
}
/* Hack -- take a turn */
p_ptr->energy_use = 100;
/* Success */
msgt(MSG_STAIRS_UP, "You enter a maze of up staircases.");
/* Create a way back */
p_ptr->create_up_stair = FALSE;
p_ptr->create_down_stair = TRUE;
/* Change level */
dungeon_change_level(p_ptr->depth - 1);
}
int context_menu_player(int mx, int my)
{
menu_type *m;
region r;
int selected;
char *labels;
bool allowed = TRUE;
int mode = OPT(rogue_like_commands) ? KEYMAP_MODE_ROGUE : KEYMAP_MODE_ORIG;
unsigned char cmdkey;
m = menu_dynamic_new();
if (!m) {
return 0;
}
labels = string_make(lower_case);
m->selections = labels;
ADD_LABEL("Use", CMD_USE_ANY, MN_ROW_VALID);
/* if player can cast, add casting option */
if (player_can_cast(p_ptr, FALSE)) {
ADD_LABEL("Cast", CMD_CAST, MN_ROW_VALID);
}
/* if player is on stairs add option to use them */
if (cave_isupstairs(cave, p_ptr->py, p_ptr->px)) {
ADD_LABEL("Go Up", CMD_GO_UP, MN_ROW_VALID);
}
else if (cave_isdownstairs(cave, p_ptr->py, p_ptr->px)) {
ADD_LABEL("Go Down", CMD_GO_DOWN, MN_ROW_VALID);
}
ADD_LABEL("Search", CMD_SEARCH, MN_ROW_VALID);
/* Looking has different keys, but we don't have a way to look them up (see cmd-process.c). */
cmdkey = (mode == KEYMAP_MODE_ORIG) ? 'l' : 'x';
menu_dynamic_add_label(m, "Look", cmdkey, MENU_VALUE_LOOK, labels);
/* 'R' is used for resting in both keymaps. */
menu_dynamic_add_label(m, "Rest", 'R', MENU_VALUE_REST, labels);
/* 'i' is used for inventory in both keymaps. */
menu_dynamic_add_label(m, "Inventory", 'i', MENU_VALUE_INVENTORY, labels);
/* if object under player add pickup option */
if (cave->o_idx[p_ptr->py][p_ptr->px]) {
object_type *o_ptr = object_byid(cave->o_idx[p_ptr->py][p_ptr->px]);
if (!squelch_item_ok(o_ptr)) {
menu_row_validity_t valid;
/* 'f' isn't in rogue keymap, so we can use it here. */
menu_dynamic_add_label(m, "Floor", 'f', MENU_VALUE_FLOOR, labels);
valid = (inven_carry_okay(o_ptr)) ? MN_ROW_VALID : MN_ROW_INVALID;
ADD_LABEL("Pick up", CMD_PICKUP, valid);
}
}
/* 'C' is used for the character sheet in both keymaps. */
menu_dynamic_add_label(m, "Character", 'C', MENU_VALUE_CHARACTER, 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', MENU_VALUE_CENTER_MAP, labels);
}
menu_dynamic_add_label(m, "Other", ' ', MENU_VALUE_OTHER, labels);
/* work out display region */
r.width = (int)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();
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);
screen_load();
cmdkey = cmd_lookup_key(selected, mode);
/* Check the command to see if it is allowed. */
switch(selected) {
case -1:
/* User cancelled the menu. */
return 3;
case CMD_USE_ANY:
case CMD_CAST:
case CMD_SEARCH:
case CMD_GO_UP:
case CMD_GO_DOWN:
case CMD_PICKUP:
/* Only check for ^ inscriptions, since we don't have an object selected (if we need one). */
allowed = key_confirm_command(cmdkey);
break;
case MENU_VALUE_REST:
allowed = key_confirm_command('R');
break;
case MENU_VALUE_INVENTORY:
case MENU_VALUE_LOOK:
case MENU_VALUE_CHARACTER:
case MENU_VALUE_OTHER:
case MENU_VALUE_FLOOR:
case MENU_VALUE_CENTER_MAP:
allowed = TRUE;
break;
default:
/* Invalid command; prevent anything from happening. */
bell("Invalid context menu command.");
allowed = FALSE;
break;
}
if (!allowed)
return 1;
/* Perform the command. */
switch(selected) {
case CMD_USE_ANY:
case CMD_CAST:
cmdkey = cmd_lookup_key(selected, mode);
Term_keypress(cmdkey, 0);
break;
case CMD_SEARCH:
case CMD_GO_UP:
case CMD_GO_DOWN:
case CMD_PICKUP:
cmd_insert(selected);
break;
case MENU_VALUE_REST:
Term_keypress('R', 0);
break;
case MENU_VALUE_INVENTORY:
Term_keypress('i', 0);
break;
case MENU_VALUE_LOOK:
if (target_set_interactive(TARGET_LOOK, p_ptr->px, p_ptr->py)) {
msg("Target Selected.");
}
break;
case MENU_VALUE_CHARACTER:
Term_keypress('C', 0);
break;
case MENU_VALUE_OTHER:
context_menu_player_2(mx, my);
break;
case MENU_VALUE_FLOOR:
context_menu_player_display_floor();
break;
case MENU_VALUE_CENTER_MAP:
do_cmd_center_map();
break;
default:
break;
}
return 1;
}
/**
* Handle a textui mouseclick.
*/
static void textui_process_click(ui_event e)
{
int x, y;
if (!OPT(mouse_movement)) return;
y = KEY_GRID_Y(e);
x = KEY_GRID_X(e);
/* Check for a valid location */
if (!cave_in_bounds_fully(cave, y, x)) return;
/* XXX show context menu here */
if ((p_ptr->py == y) && (p_ptr->px == x)) {
if (e.mouse.mods & KC_MOD_SHIFT) {
/* shift-click - cast magic */
if (e.mouse.button == 1) {
textui_obj_cast();
} else
if (e.mouse.button == 2) {
Term_keypress('i',0);
}
} else
if (e.mouse.mods & KC_MOD_CONTROL) {
/* ctrl-click - use feature / use inventory item */
/* switch with default */
if (e.mouse.button == 1) {
if (cave_isupstairs(cave, p_ptr->py, p_ptr->px))
cmd_insert(CMD_GO_UP);
else if (cave_isdownstairs(cave, p_ptr->py, p_ptr->px))
cmd_insert(CMD_GO_DOWN);
} else
if (e.mouse.button == 2) {
cmd_insert(CMD_USE_UNAIMED);
}
} else
if (e.mouse.mods & KC_MOD_ALT) {
/* alt-click - Search or show char screen */
/* XXX call a platform specific hook */
if (e.mouse.button == 1) {
cmd_insert(CMD_SEARCH);
} else
if (e.mouse.button == 2) {
Term_keypress('C',0);
}
} else
{
if (e.mouse.button == 1) {
if (cave->o_idx[y][x]) {
cmd_insert(CMD_PICKUP);
} else {
cmd_insert(CMD_HOLD);
}
} else
if (e.mouse.button == 2) {
// show a context menu
context_menu_player(e.mouse.x, e.mouse.y);
}
}
}
else if (e.mouse.button == 1)
{
if (p_ptr->timed[TMD_CONFUSED])
{
cmd_insert(CMD_WALK);
}
else
{
if (e.mouse.mods & KC_MOD_SHIFT) {
/* shift-click - run */
cmd_insert(CMD_RUN);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
/*if ((y-p_ptr->py >= -1) && (y-p_ptr->py <= 1)
&& (x-p_ptr->px >= -1) && (x-p_ptr->px <= 1)) {
cmd_insert(CMD_JUMP);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
} else {
cmd_insert(CMD_RUN);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
}*/
} else
if (e.mouse.mods & KC_MOD_CONTROL) {
/* control-click - alter */
cmd_insert(CMD_ALTER);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
} else
if (e.mouse.mods & KC_MOD_ALT) {
/* alt-click - look */
if (target_set_interactive(TARGET_LOOK, x, y)) {
msg("Target Selected.");
}
//cmd_insert(CMD_LOOK);
//cmd_set_arg_point(cmd_get_top(), 0, y, x);
} else
{
/* pathfind does not work well on trap detection borders,
* so if the click is next to the player, force a walk step */
if ((y-p_ptr->py >= -1) && (y-p_ptr->py <= 1)
&& (x-p_ptr->px >= -1) && (x-p_ptr->px <= 1)) {
cmd_insert(CMD_WALK);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
} else {
cmd_insert(CMD_PATHFIND);
cmd_set_arg_point(cmd_get_top(), 0, y, x);
}
}
}
}
else if (e.mouse.button == 2)
{
struct monster *m = cave_monster_at(cave, y, x);
if (m && target_able(m)) {
/* Set up target information */
monster_race_track(m->race);
health_track(p_ptr, m);
target_set_monster(m);
} else {
target_set_location(y,x);
}
if (e.mouse.mods & KC_MOD_SHIFT) {
/* shift-click - cast spell at target */
if (textui_obj_cast_ret() >= 0) {
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
}
} else
if (e.mouse.mods & KC_MOD_CONTROL) {
/* control-click - fire at target */
cmd_insert(CMD_USE_AIMED);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
} else
if (e.mouse.mods & KC_MOD_ALT) {
/* alt-click - throw at target */
cmd_insert(CMD_THROW);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
} else
{
//msg("Target set.");
/* see if the click was adjacent to the player */
if ((y-p_ptr->py >= -1) && (y-p_ptr->py <= 1)
&& (x-p_ptr->px >= -1) && (x-p_ptr->px <= 1)) {
context_menu_cave(cave,y,x,1,e.mouse.x, e.mouse.y);
} else {
context_menu_cave(cave,y,x,0,e.mouse.x, e.mouse.y);
}
}
}
}