static size_t obj_desc_inscrip(const object_type *o_ptr, char *buf, size_t max, size_t end)
{
const char *u[4] = { 0, 0, 0, 0 };
int n = 0;
int feel = object_pseudo(o_ptr);
bitflag flags_known[OF_SIZE];
object_flags_known(o_ptr, flags_known);
/* Get inscription */
if (o_ptr->note)
u[n++] = quark_str(o_ptr->note);
/* Use special inscription, if any */
if (!object_is_known(o_ptr) && feel)
{
/* cannot tell excellent vs strange vs splendid until wield */
if (!object_was_worn(o_ptr) && ego_item_p(o_ptr))
u[n++] = "ego";
else
u[n++] = inscrip_text[feel];
}
else if ((o_ptr->ident & IDENT_EMPTY) && !object_is_known(o_ptr))
u[n++] = "empty";
else if (!object_is_known(o_ptr) && object_was_worn(o_ptr))
{
if (wield_slot(o_ptr) == INVEN_WIELD || wield_slot(o_ptr) == INVEN_BOW)
u[n++] = "wielded";
else u[n++] = "worn";
}
else if (!object_is_known(o_ptr) && object_was_fired(o_ptr))
u[n++] = "fired";
else if (!object_flavor_is_aware(o_ptr) && object_flavor_was_tried(o_ptr))
u[n++] = "tried";
/* Note curses */
if (flags_test(flags_known, OF_SIZE, OF_CURSE_MASK, FLAG_END))
u[n++] = "cursed";
/* Note squelch */
if (squelch_item_ok(o_ptr))
u[n++] = "squelch";
if (n)
{
int i;
for (i = 0; i < n; i++)
{
if (i == 0)
strnfcat(buf, max, &end, " {");
strnfcat(buf, max, &end, "%s", u[i]);
if (i < n-1)
strnfcat(buf, max, &end, ", ");
}
strnfcat(buf, max, &end, "}");
}
return end;
}
/**
* Drop all {squelch}able items.
*/
extern void squelch_drop(void)
{
int n;
/* Scan through the slots backwards */
for (n = INVEN_PACK - 1; n >= 0; n--) {
object_type *o_ptr = &p_ptr->inventory[n];
/* Skip non-objects and unsquelchable objects */
if (!o_ptr->k_idx)
continue;
if (!squelch_item_ok(o_ptr))
continue;
/* Check for curses */
if (cf_has(o_ptr->flags_curse, CF_STICKY_CARRY))
continue;
/* Check for !d (no drop) inscription */
if (!check_for_inscrip(o_ptr, "!d")
&& !check_for_inscrip(o_ptr, "!*")) {
/* We're allowed to drop it. */
inven_drop(n, o_ptr->number);
}
}
/* Combine/reorder the pack */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
}
/**
* Describes item `o_ptr` into buffer `buf` of size `max`.
*
* ODESC_PREFIX prepends a 'the', 'a' or number
* ODESC_BASE results in a base description.
* ODESC_COMBAT will add to-hit, to-dam and AC info.
* ODESC_EXTRA will add pval/charge/inscription/squelch info.
* ODESC_PLURAL will pluralise regardless of the number in the stack.
* ODESC_STORE turns off squelch markers, for in-store display.
* ODESC_SPOIL treats the object as fully identified.
*
* Setting 'prefix' to TRUE prepends a 'the', 'a' or the number in the stack,
* respectively.
*
* \returns The number of bytes used of the buffer.
*/
size_t object_desc(char *buf, size_t max, const object_type *o_ptr,
odesc_detail_t mode)
{
object_kind *k_ptr = &k_info[o_ptr->k_idx];
bool prefix = mode & ODESC_PREFIX;
bool spoil = (mode & ODESC_SPOIL);
bool known = object_is_known(o_ptr) ||
(o_ptr->ident & IDENT_STORE) || spoil;
size_t end = 0;
/* We've seen it at least once now we're aware of it */
if (known && o_ptr->name2) e_info[o_ptr->name2].everseen = TRUE;
/*** Some things get really simple descriptions ***/
if (o_ptr->tval == TV_GOLD)
return strnfmt(buf, max, "%d gold pieces worth of %s%s",
o_ptr->pval, k_name + k_ptr->name,
squelch_item_ok(o_ptr) ? " {squelch}" : "");
else if (!o_ptr->tval)
return strnfmt(buf, max, "(nothing)");
/** Construct the name **/
/* Copy the base name to the buffer */
end = obj_desc_name(buf, max, end, o_ptr, prefix, mode, spoil);
if (mode & ODESC_COMBAT)
{
if (o_ptr->tval == TV_CHEST)
end = obj_desc_chest(o_ptr, buf, max, end);
else if (o_ptr->tval == TV_LIGHT)
end = obj_desc_light(o_ptr, buf, max, end);
end = obj_desc_combat(o_ptr, buf, max, end, spoil);
}
if (mode & ODESC_EXTRA)
{
if (spoil || object_pval_is_visible(o_ptr))
end = obj_desc_pval(o_ptr, buf, max, end);
end = obj_desc_charges(o_ptr, buf, max, end);
if (mode & ODESC_STORE)
{
end = obj_desc_aware(o_ptr, buf, max, end);
}
else
end = obj_desc_inscrip(o_ptr, buf, max, end);
}
return end;
}
static size_t obj_desc_inscrip(const object_type * o_ptr, char *buf, size_t max,
size_t end)
{
const char *u[4] = { 0, 0, 0, 0 };
int n = 0;
/* Get inscription */
if (o_ptr->note)
u[n++] = quark_str(o_ptr->note);
/* Use special inscription, if any */
if (o_ptr->feel) {
u[n++] = feel_text[o_ptr->feel];
} else if ((o_ptr->ident & IDENT_EMPTY) && !object_known_p(o_ptr))
u[n++] = "empty";
else if (!object_aware_p(o_ptr) && object_tried_p(o_ptr))
u[n++] = "tried";
/* Use the discount, if any. No annoying inscription for homemade
* branded items. */
if ((o_ptr->discount > 0) && (o_ptr->discount != 80))
u[n++] = format("%d%% off", o_ptr->discount);
/* Note squelch */
if (squelch_item_ok(o_ptr))
u[n++] = "squelch";
if (n) {
int i;
for (i = 0; i < n; i++) {
if (i == 0)
strnfcat(buf, max, &end, " {");
strnfcat(buf, max, &end, "%s", u[i]);
if (i < n - 1)
strnfcat(buf, max, &end, ", ");
}
strnfcat(buf, max, &end, "}");
}
return end;
}
/*
* 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_at(cave, 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) && !cave_isboring(cave, y, x))
return (TRUE);
/* Nope */
return (FALSE);
}
int do_autopickup(void)
{
int py = p_ptr->py;
int px = p_ptr->px;
s16b this_o_idx, next_o_idx = 0;
object_type *o_ptr;
/* Objects picked up. Used to determine time cost of command. */
byte objs_picked_up = 0;
size_t floor_num = 0;
int floor_list[MAX_FLOOR_STACK + 1];
/* Nothing to pick up -- return */
if (!cave->o_idx[py][px]) return (0);
/* Always pickup gold, effortlessly */
py_pickup_gold();
/* Scan the remaining objects */
for (this_o_idx = cave->o_idx[py][px]; this_o_idx; this_o_idx = next_o_idx)
{
/* Get the object and the next object */
o_ptr = object_byid(this_o_idx);
next_o_idx = o_ptr->next_o_idx;
/* Ignore all hidden objects and non-objects */
if (squelch_item_ok(o_ptr) || !o_ptr->kind) continue;
/* XXX Hack -- Enforce limit */
if (floor_num >= N_ELEMENTS(floor_list)) break;
/* Hack -- disturb */
disturb(p_ptr, 0, 0);
/* Automatically pick up items into the backpack */
if (auto_pickup_okay(o_ptr))
{
/* Pick up the object with message */
py_pickup_aux(this_o_idx, TRUE);
objs_picked_up++;
continue;
}
/* Tally objects and store them in an array. */
/* Remember this object index */
floor_list[floor_num] = this_o_idx;
/* Count non-gold objects that remain on the floor. */
floor_num++;
}
return objs_picked_up;
}
/*
* Pickup all gold at the player's current location.
*/
static void py_pickup_gold(void)
{
int py = p_ptr->py;
int px = p_ptr->px;
s32b total_gold = 0L;
byte *treasure;
s16b this_o_idx = 0;
s16b next_o_idx = 0;
object_type *o_ptr;
int sound_msg;
bool verbal = FALSE;
/* Allocate an array of ordinary gold objects */
treasure = C_ZNEW(SV_GOLD_MAX, byte);
/* Pick up all the ordinary gold objects */
for (this_o_idx = cave->o_idx[py][px]; this_o_idx; this_o_idx = next_o_idx)
{
/* Get the object */
o_ptr = object_byid(this_o_idx);
/* Get the next object */
next_o_idx = o_ptr->next_o_idx;
/* Ignore if not legal treasure */
if ((o_ptr->tval != TV_GOLD) ||
(o_ptr->sval >= SV_GOLD_MAX)) continue;
/* Note that we have this kind of treasure */
treasure[o_ptr->sval]++;
/* Remember whether feedback message is in order */
if (!squelch_item_ok(o_ptr))
verbal = TRUE;
/* Increment total value */
total_gold += (s32b)o_ptr->pval[DEFAULT_PVAL];
/* Delete the gold */
delete_object_idx(this_o_idx);
}
/* Pick up the gold, if present */
if (total_gold)
{
char buf[1024];
char tmp[80];
int i, count, total;
object_kind *kind;
/* Build a message */
(void)strnfmt(buf, sizeof(buf), "You have found %ld gold pieces worth of ", (long)total_gold);
/* Count the types of treasure present */
for (total = 0, i = 0; i < SV_GOLD_MAX; i++)
{
if (treasure[i]) total++;
}
/* List the treasure types */
for (count = 0, i = 0; i < SV_GOLD_MAX; i++)
{
/* Skip if no treasure of this type */
if (!treasure[i]) continue;
/* Get this object index */
kind = lookup_kind(TV_GOLD, i);
if (!kind) continue;
/* Get the object name */
object_kind_name(tmp, sizeof tmp, kind, TRUE);
/* Build up the pickup string */
my_strcat(buf, tmp, sizeof(buf));
/* Added another kind of treasure */
count++;
/* Add a comma if necessary */
if ((total > 2) && (count < total)) my_strcat(buf, ",", sizeof(buf));
/* Add an "and" if necessary */
if ((total >= 2) && (count == total-1)) my_strcat(buf, " and", sizeof(buf));
/* Add a space or period if necessary */
if (count < total) my_strcat(buf, " ", sizeof(buf));
else my_strcat(buf, ".", sizeof(buf));
}
/* Determine which sound to play */
if (total_gold < 200) sound_msg = MSG_MONEY1;
else if (total_gold < 600) sound_msg = MSG_MONEY2;
else sound_msg = MSG_MONEY3;
/* Display the message */
if (verbal)
msgt(sound_msg, "%s", buf);
/* Add gold to purse */
p_ptr->au += total_gold;
/* Redraw gold */
p_ptr->redraw |= (PR_GOLD);
}
/* Free the gold array */
FREE(treasure);
}
/**
* Returns TRUE if an item should be hidden due to the player's
* current settings.
*/
bool squelch_hide_item(object_type * o_ptr)
{
return (OPT(hide_squelchable) ? squelch_item_ok(o_ptr) : FALSE);
}
int context_menu_cave(struct cave *c, int y, int x, int adjacent, 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;
/* 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 At", cmdkey, MENU_VALUE_LOOK, labels);
if (c->m_idx[y][x]) {
/* '/' is used for recall in both keymaps. */
menu_dynamic_add_label(m, "Recall Info", '/', MENU_VALUE_RECALL, labels);
}
ADD_LABEL("Use Item On", CMD_USE_ANY, MN_ROW_VALID);
if (player_can_cast(p_ptr, FALSE)) {
ADD_LABEL("Cast On", CMD_CAST, MN_ROW_VALID);
}
if (adjacent) {
ADD_LABEL((c->m_idx[y][x]) ? "Attack" : "Alter", CMD_ALTER, MN_ROW_VALID);
if (c->o_idx[y][x]) {
s16b o_idx = chest_check(y,x, CHEST_ANY);
if (o_idx) {
object_type *o_ptr = object_byid(o_idx);
if (!squelch_item_ok(o_ptr)) {
if (object_is_known(o_ptr)) {
if (is_locked_chest(o_ptr)) {
ADD_LABEL("Disarm Chest", CMD_DISARM, MN_ROW_VALID);
ADD_LABEL("Open Chest", CMD_OPEN, MN_ROW_VALID);
}
else {
ADD_LABEL("Open Disarmed Chest", CMD_OPEN, MN_ROW_VALID);
}
}
else {
ADD_LABEL("Open Chest", CMD_OPEN, MN_ROW_VALID);
}
}
}
}
if (cave_istrap(c, y, x)) {
ADD_LABEL("Disarm", CMD_DISARM, MN_ROW_VALID);
ADD_LABEL("Jump Onto", CMD_JUMP, MN_ROW_VALID);
}
if (cave_isopendoor(c, y, x)) {
ADD_LABEL("Close", CMD_CLOSE, MN_ROW_VALID);
}
else if (cave_iscloseddoor(c, y, x)) {
ADD_LABEL("Open", CMD_OPEN, MN_ROW_VALID);
ADD_LABEL("Lock", CMD_DISARM, MN_ROW_VALID);
}
else if (cave_isdiggable(c, y, x)) {
ADD_LABEL("Tunnel", CMD_TUNNEL, MN_ROW_VALID);
}
ADD_LABEL("Search", CMD_SEARCH, MN_ROW_VALID);
ADD_LABEL("Walk Towards", CMD_WALK, MN_ROW_VALID);
}
else {
/* ',' is used for squelch in rogue keymap, so we'll just swap letters. */
cmdkey = (mode == KEYMAP_MODE_ORIG) ? ',' : '.';
menu_dynamic_add_label(m, "Pathfind To", cmdkey, CMD_PATHFIND, labels);
ADD_LABEL("Walk Towards", CMD_WALK, MN_ROW_VALID);
ADD_LABEL("Run Towards", CMD_RUN, MN_ROW_VALID);
}
if (player_can_fire(p_ptr, FALSE)) {
ADD_LABEL("Fire On", CMD_FIRE, MN_ROW_VALID);
}
ADD_LABEL("Throw To", CMD_THROW, MN_ROW_VALID);
/* 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);
if (p_ptr->timed[TMD_IMAGE]) {
prt("(Enter to select command, ESC to cancel) You see something strange:", 0, 0);
} else
if (c->m_idx[y][x]) {
char m_name[80];
monster_type *m_ptr = cave_monster_at(c, y, x);
/* Get the monster name ("a kobold") */
monster_desc(m_name, sizeof(m_name), m_ptr, MDESC_IND_VIS);
prt(format("(Enter to select command, ESC to cancel) You see %s:", m_name), 0, 0);
} else
if (c->o_idx[y][x] && !squelch_item_ok(object_byid(c->o_idx[y][x]))) {
char o_name[80];
/* Get the single object in the list */
object_type *o_ptr = object_byid(c->o_idx[y][x]);
/* Obtain an object description */
object_desc(o_name, sizeof (o_name), o_ptr, ODESC_PREFIX | ODESC_FULL);
prt(format("(Enter to select command, ESC to cancel) You see %s:", o_name), 0, 0);
} else
{
/* Feature (apply mimic) */
const char *name = cave_apparent_name(c, p_ptr, y, x);
/* Hack -- special introduction for store doors */
if (cave_isshop(cave, y, x)) {
prt(format("(Enter to select command, ESC to cancel) You see the entrance to the %s:", name), 0, 0);
} else {
prt(format("(Enter to select command, ESC to cancel) You see %s %s:",
(is_a_vowel(name[0])) ? "an" : "a", name), 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 MENU_VALUE_LOOK:
case MENU_VALUE_RECALL:
case CMD_PATHFIND:
allowed = TRUE;
break;
case CMD_SEARCH:
case CMD_ALTER:
case CMD_DISARM:
case CMD_JUMP:
case CMD_CLOSE:
case CMD_OPEN:
case CMD_TUNNEL:
case CMD_WALK:
case CMD_RUN:
case CMD_CAST:
case CMD_FIRE:
case CMD_THROW:
case CMD_USE_ANY:
/* Only check for ^ inscriptions, since we don't have an object selected (if we need one). */
allowed = key_confirm_command(cmdkey);
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 MENU_VALUE_LOOK:
/* look at the spot */
if (target_set_interactive(TARGET_LOOK, x, y)) {
msg("Target Selected.");
}
break;
case MENU_VALUE_RECALL: {
/* recall monster Info */
monster_type *m_ptr = cave_monster_at(c, y, x);
if (m_ptr) {
monster_lore *lore = get_lore(m_ptr->race);
lore_show_interactive(m_ptr->race, lore);
}
}
break;
case CMD_SEARCH:
cmd_insert(selected);
break;
case CMD_PATHFIND:
cmd_insert(selected);
cmd_set_arg_point(cmd_get_top(), 0, x, y);
break;
case CMD_ALTER:
case CMD_DISARM:
case CMD_JUMP:
case CMD_CLOSE:
case CMD_OPEN:
case CMD_TUNNEL:
case CMD_WALK:
case CMD_RUN:
cmd_insert(selected);
cmd_set_arg_direction(cmd_get_top(), 0, coords_to_dir(y,x));
break;
case CMD_CAST:
if (textui_obj_cast_ret() >= 0) {
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
}
break;
case CMD_FIRE:
case CMD_THROW:
case CMD_USE_ANY:
cmd_insert(selected);
cmd_set_arg_target(cmd_get_top(), 1, DIR_TARGET);
break;
default:
break;
}
return 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;
}
/*
* Perform the basic "tunnel" command
*
* Assumes that no monster is blocking the destination
*
* Uses "twall" (above) to do all "terrain feature changing".
*
* Returns TRUE if repeated commands may continue
*/
static bool do_cmd_tunnel_aux(int y, int x)
{
bool more = FALSE;
/* Verify legality */
if (!do_cmd_tunnel_test(y, x)) return (FALSE);
/* Sound XXX XXX XXX */
/* sound(MSG_DIG); */
/* Titanium */
if (cave_feat[y][x] >= FEAT_PERM_EXTRA)
{
msg_print("This seems to be permanent rock.");
}
/* Granite */
else if (cave_feat[y][x] >= FEAT_WALL_EXTRA)
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 40 + randint0(1600)) && twall(y, x))
{
msg_print("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg_print("You tunnel into the granite wall.");
more = TRUE;
}
}
/* Quartz / Magma */
else if (cave_feat[y][x] >= FEAT_MAGMA)
{
bool okay = FALSE;
bool gold = FALSE;
bool hard = FALSE;
/* Found gold */
if (cave_feat[y][x] >= FEAT_MAGMA_H)
{
gold = TRUE;
}
/* Extract "quartz" flag XXX XXX XXX */
if ((cave_feat[y][x] - FEAT_MAGMA) & 0x01)
{
hard = TRUE;
}
/* Quartz */
if (hard)
{
okay = (p_ptr->state.skills[SKILL_DIGGING] > 20 + randint0(800));
}
/* Magma */
else
{
okay = (p_ptr->state.skills[SKILL_DIGGING] > 10 + randint0(400));
}
/* Success */
if (okay && twall(y, x))
{
/* Found treasure */
if (gold)
{
/* Place some gold */
place_gold(y, x, p_ptr->depth);
/* Message */
msg_print("You have found something!");
}
/* Found nothing */
else
{
/* Message */
msg_print("You have finished the tunnel.");
}
}
/* Failure (quartz) */
else if (hard)
{
/* Message, continue digging */
msg_print("You tunnel into the quartz vein.");
more = TRUE;
}
/* Failure (magma) */
else
{
/* Message, continue digging */
msg_print("You tunnel into the magma vein.");
more = TRUE;
}
}
/* Rubble */
else if (cave_feat[y][x] == FEAT_RUBBLE)
{
/* Remove the rubble */
if ((p_ptr->state.skills[SKILL_DIGGING] > randint0(200)) && twall(y, x))
{
/* Message */
msg_print("You have removed the rubble.");
/* Hack -- place an object */
if (randint0(100) < 10)
{
/* Create a simple object */
place_object(y, x, p_ptr->depth, FALSE, FALSE);
/* Observe the new object */
if (!squelch_item_ok(&o_list[cave_o_idx[y][x]]) &&
player_can_see_bold(y, x))
{
msg_print("You have found something!");
}
}
}
else
{
/* Message, keep digging */
msg_print("You dig in the rubble.");
more = TRUE;
}
}
/* Secret doors */
else if (cave_feat[y][x] >= FEAT_SECRET)
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 30 + randint0(1200)) && twall(y, x))
{
msg_print("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg_print("You tunnel into the granite wall.");
more = TRUE;
/* Occasional Search XXX XXX */
if (randint0(100) < 25) search(FALSE);
}
}
/* Doors */
else
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 30 + randint0(1200)) && twall(y, x))
{
msg_print("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg_print("You tunnel into the door.");
more = TRUE;
}
}
/* Result */
return (more);
}
/**
* Describes item `o_ptr` into buffer `buf` of size `max`.
*
* ODESC_PREFIX prepends a 'the', 'a' or number
* ODESC_BASE results in a base description.
* ODESC_COMBAT will add to-hit, to-dam and AC info.
* ODESC_EXTRA will add pval/charge/inscription/squelch info.
* ODESC_PLURAL will pluralise regardless of the number in the stack.
* ODESC_STORE turns off squelch markers, for in-store display.
* ODESC_SPOIL treats the object as fully identified.
*
* Setting 'prefix' to TRUE prepends a 'the', 'a' or the number in the stack,
* respectively.
*
* \returns The number of bytes used of the buffer.
*/
size_t object_desc(char *buf, size_t max, const object_type *o_ptr,
odesc_detail_t mode)
{
bool prefix = mode & ODESC_PREFIX;
bool spoil = (mode & ODESC_SPOIL);
bool known;
size_t end = 0, i = 0;
/* Simple description for null item */
if (!o_ptr->tval)
return strnfmt(buf, max, "(nothing)");
known = object_is_known(o_ptr) ||
(o_ptr->ident & IDENT_STORE) || spoil;
/* We've seen it at least once now we're aware of it */
if (known && o_ptr->ego && !spoil) o_ptr->ego->everseen = TRUE;
/*** Some things get really simple descriptions ***/
if (o_ptr->marked == MARK_AWARE) {
return strnfmt(buf, max, "an unknown item");
}
if (o_ptr->tval == TV_GOLD)
return strnfmt(buf, max, "%d gold pieces worth of %s%s",
o_ptr->pval[DEFAULT_PVAL], o_ptr->kind->name,
squelch_item_ok(o_ptr) ? " {squelch}" : "");
/** Construct the name **/
/* Copy the base name to the buffer */
end = obj_desc_name(buf, max, end, o_ptr, prefix, mode, spoil);
if (mode & ODESC_COMBAT)
{
if (o_ptr->tval == TV_CHEST)
end = obj_desc_chest(o_ptr, buf, max, end);
else if (o_ptr->tval == TV_LIGHT)
end = obj_desc_light(o_ptr, buf, max, end);
end = obj_desc_combat(o_ptr, buf, max, end, spoil);
}
if (mode & ODESC_EXTRA)
{
for (i = 0; i < o_ptr->num_pvals; i++)
if (spoil || object_this_pval_is_visible(o_ptr, i)) {
end = obj_desc_pval(o_ptr, buf, max, end, spoil);
break;
}
end = obj_desc_charges(o_ptr, buf, max, end);
if (mode & ODESC_STORE)
end = obj_desc_aware(o_ptr, buf, max, end);
else
end = obj_desc_inscrip(o_ptr, buf, max, end);
}
return end;
}
/*
* 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);
}
/*
* Perform the basic "tunnel" command
*
* Assumes that no monster is blocking the destination
*
* Uses "twall" (above) to do all "terrain feature changing".
*
* Returns TRUE if repeated commands may continue
*/
static bool do_cmd_tunnel_aux(int y, int x)
{
bool more = FALSE;
/* Verify legality */
if (!do_cmd_tunnel_test(y, x)) return (FALSE);
/* Sound XXX XXX XXX */
/* sound(MSG_DIG); */
/* Titanium */
if (cave_isperm(cave, y, x))
{
msg("This seems to be permanent rock.");
}
/* Granite */
else if (cave_isrock(cave, y, x))
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 40 + randint0(1600)) && twall(y, x))
{
msg("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg("You tunnel into the granite wall.");
more = TRUE;
}
}
/* Quartz / Magma */
else if (cave_ismagma(cave, y, x) || cave_isquartz(cave, y, x))
{
bool okay = FALSE;
bool gold = FALSE;
bool hard = FALSE;
/* Found gold */
if (cave_hasgoldvein(cave, y, x))
gold = TRUE;
/* Extract "quartz" flag XXX XXX XXX */
if (cave_isquartz(cave, y, x))
hard = TRUE;
/* Quartz */
if (hard)
okay = (p_ptr->state.skills[SKILL_DIGGING] > 20 + randint0(800));
/* Magma */
else
okay = (p_ptr->state.skills[SKILL_DIGGING] > 10 + randint0(400));
/* Success */
if (okay && twall(y, x))
{
/* Found treasure */
if (gold)
{
/* Place some gold */
place_gold(cave, y, x, p_ptr->depth, ORIGIN_FLOOR);
/* Message */
msg("You have found something!");
}
/* Found nothing */
else
{
/* Message */
msg("You have finished the tunnel.");
}
}
/* Failure (quartz) */
else if (hard)
{
/* Message, continue digging */
msg("You tunnel into the quartz vein.");
more = TRUE;
}
/* Failure (magma) */
else
{
/* Message, continue digging */
msg("You tunnel into the magma vein.");
more = TRUE;
}
}
/* Rubble */
else if (cave_isrubble(cave, y, x))
{
/* Remove the rubble */
if ((p_ptr->state.skills[SKILL_DIGGING] > randint0(200)) && twall(y, x))
{
/* Message */
msg("You have removed the rubble.");
/* Hack -- place an object */
if (randint0(100) < 10) {
/* Create a simple object */
place_object(cave, y, x, p_ptr->depth, FALSE, FALSE,
ORIGIN_RUBBLE, 0);
/* Observe the new object */
if (!squelch_item_ok(object_byid(cave->o_idx[y][x])) &&
player_can_see_bold(y, x))
msg("You have found something!");
}
}
else
{
/* Message, keep digging */
msg("You dig in the rubble.");
more = TRUE;
}
}
/* Secret doors */
else if (cave_issecretdoor(cave, y, x))
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 30 + randint0(1200)) && twall(y, x))
{
msg("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg("You tunnel into the granite wall.");
more = TRUE;
/* Occasional Search XXX XXX */
if (randint0(100) < 25) search(FALSE);
}
}
/* Doors */
else
{
/* Tunnel */
if ((p_ptr->state.skills[SKILL_DIGGING] > 30 + randint0(1200)) && twall(y, x))
{
msg("You have finished the tunnel.");
}
/* Keep trying */
else
{
/* We may continue tunelling */
msg("You tunnel into the door.");
more = TRUE;
}
}
/* Result */
return (more);
}
