void Resto(){
if(preanalisis == '+'){
parea('+');
Term();
printf("+");
Resto();
}
else if(preanalisis == '-'){
parea('-');
Term();
printf("-");
Resto();
}
else;
}
void Term(){
if(isdigit(preanalisis)){
printf("%c",preanalisis);
parea(preanalisis);
}
else error();
}
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;
}
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;
}
