static _slot_info_ptr _choose(cptr verb, int options)
{
_slot_info_ptr result = NULL;
int slot = 0;
int cmd;
rect_t r = _menu_rect();
string_ptr prompt = NULL;
bool done = FALSE;
bool exchange = FALSE;
int slot1 = _INVALID_SLOT, slot2 = _INVALID_SLOT;
if (REPEAT_PULL(&cmd))
{
slot = A2I(cmd);
if (0 <= slot && slot < _MAX_SLOTS)
return &_spells[slot];
}
prompt = string_alloc();
screen_save();
while (!done)
{
string_clear(prompt);
if (exchange)
{
if (slot1 == _INVALID_SLOT)
string_append_s(prompt, "Select the first spell:");
else
string_append_s(prompt, "Select the second spell:");
}
else
{
string_printf(prompt, "%s which spell", verb);
if (options & _ALLOW_EXCHANGE)
string_append_s(prompt, " [Press 'X' to Exchange]");
string_append_c(prompt, ':');
}
prt(string_buffer(prompt), 0, 0);
_display(r, options);
cmd = inkey_special(FALSE);
if (cmd == ESCAPE || cmd == 'q' || cmd == 'Q')
done = TRUE;
if (options & _ALLOW_EXCHANGE)
{
if (!exchange && (cmd == 'x' || cmd == 'X'))
{
exchange = TRUE;
slot1 = slot2 = _INVALID_SLOT;
}
}
if ('a' <= cmd && cmd < 'a' + _MAX_SLOTS)
{
slot = A2I(cmd);
if (exchange)
{
if (slot1 == _INVALID_SLOT)
slot1 = slot;
else
{
slot2 = slot;
if (slot1 != slot2)
{
_slot_info_t tmp = _spells[slot1];
_spells[slot1] = _spells[slot2];
_spells[slot2] = tmp;
}
exchange = FALSE;
slot1 = slot2 = _INVALID_SLOT;
}
}
else
{
if (_spells[slot].realm != REALM_NONE || (options & _ALLOW_EMPTY))
{
result = &_spells[slot];
done = TRUE;
}
}
}
}
if (result)
{
REPEAT_PUSH(I2A(slot));
}
screen_load();
string_free(prompt);
return result;
}
/*!
* @brief アイテム検査のメインルーチン /
* Play with an item. Options include:
* @return なし
* @details
* - Output statistics (via wiz_roll_item)<br>
* - Reroll item (via wiz_reroll_item)<br>
* - Change properties (via wiz_tweak_item)<br>
* - Change the number of items (via wiz_quantity_item)<br>
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type forge;
object_type *q_ptr;
object_type *o_ptr;
char ch;
bool changed;
cptr q, s;
item_tester_no_ryoute = TRUE;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
/* The item was not changed */
changed = FALSE;
/* Save the screen */
screen_save();
/* Get local object */
q_ptr = &forge;
/* Copy object */
object_copy(q_ptr, o_ptr);
/* The main loop */
while (TRUE)
{
/* Display the item */
wiz_display_item(q_ptr);
/* Get choice */
if (!get_com("[a]ccept [s]tatistics [r]eroll [t]weak [q]uantity? ", &ch, FALSE))
{
changed = FALSE;
break;
}
if (ch == 'A' || ch == 'a')
{
changed = TRUE;
break;
}
if (ch == 's' || ch == 'S')
{
wiz_statistics(q_ptr);
}
if (ch == 'r' || ch == 'r')
{
wiz_reroll_item(q_ptr);
}
if (ch == 't' || ch == 'T')
{
wiz_tweak_item(q_ptr);
}
if (ch == 'q' || ch == 'Q')
{
wiz_quantity_item(q_ptr);
}
}
/* Restore the screen */
screen_load();
/* Accept change */
if (changed)
{
/* Message */
msg_print("Changes accepted.");
/* Recalcurate object's weight */
if (item >= 0)
{
p_ptr->total_weight += (q_ptr->weight * q_ptr->number)
- (o_ptr->weight * o_ptr->number);
}
/* Change */
object_copy(o_ptr, q_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER);
}
/* Ignore change */
else
{
msg_print("Changes ignored.");
}
}
/**
* Menu command: peruse pre-death messages.
*/
static void death_messages(const char *title, int row)
{
screen_save();
do_cmd_messages();
screen_load();
}
/*
* Let the user select an item, save its "index"
*
* Return TRUE only if an acceptable item was chosen by the user.
*
* The selected item must satisfy the "item_tester_hook()" function,
* if that hook is set, and the "item_tester_tval", if that value is set.
*
* All "item_tester" restrictions are cleared before this function returns.
*
* The user is allowed to choose acceptable items from the equipment,
* inventory, or floor, respectively, if the proper flag was given,
* and there are any acceptable items in that location.
*
* The equipment or inventory are displayed (even if no acceptable
* items are in that location) if the proper flag was given.
*
* If there are no acceptable items available anywhere, and "str" is
* not NULL, then it will be used as the text of a warning message
* before the function returns.
*
* Note that the user must press "-" to specify the item on the floor,
* and there is no way to "examine" the item on the floor, while the
* use of "capital" letters will "examine" an inventory/equipment item,
* and prompt for its use.
*
* If a legal item is selected from the inventory, we save it in "cp"
* directly (0 to 35), and return TRUE.
*
* If a legal item is selected from the floor, we save it in "cp" as
* a negative (-1 to -511), and return TRUE.
*
* If no item is available, we do nothing to "cp", and we display a
* warning message, using "str" if available, and return FALSE.
*
* If no item is selected, we do nothing to "cp", and return FALSE.
*
* Global "p_ptr->command_wrk" is used to choose between equip/inven/floor
* listings. It is equal to USE_INVEN or USE_EQUIP or USE_FLOOR, except
* when this function is first called, when it is equal to zero, which will
* cause it to be set to USE_INVEN.
*
* We always erase the prompt when we are done, leaving a blank line,
* or a warning message, if appropriate, if no items are available.
*
* Note that only "acceptable" floor objects get indexes, so between two
* commands, the indexes of floor objects may change. XXX XXX XXX
*/
bool get_item(int *cp, const char *pmt, const char *str, cmd_code cmd, int mode)
{
int py = p_ptr->py;
int px = p_ptr->px;
unsigned char cmdkey = cmd_lookup_key(cmd);
//struct keypress which;
ui_event press;
int j, k;
int i1, i2;
int e1, e2;
int f1, f2;
bool done, item;
bool oops = FALSE;
bool use_inven = ((mode & USE_INVEN) ? TRUE : FALSE);
bool use_equip = ((mode & USE_EQUIP) ? TRUE : FALSE);
bool use_floor = ((mode & USE_FLOOR) ? TRUE : FALSE);
bool use_quiver = ((mode & QUIVER_TAGS) ? TRUE : FALSE);
bool is_harmless = ((mode & IS_HARMLESS) ? TRUE : FALSE);
bool quiver_tags = ((mode & QUIVER_TAGS) ? TRUE : FALSE);
olist_detail_t olist_mode = 0;
bool allow_inven = FALSE;
bool allow_equip = FALSE;
bool allow_floor = FALSE;
bool toggle = FALSE;
char tmp_val[160];
char out_val[160];
int floor_list[MAX_FLOOR_STACK];
int floor_num;
bool show_list = TRUE;
/* Object list display modes */
if (mode & SHOW_FAIL)
olist_mode |= (OLIST_FAIL);
else
olist_mode |= (OLIST_WEIGHT);
if (mode & SHOW_PRICES)
olist_mode |= (OLIST_PRICE);
/* Paranoia XXX XXX XXX */
message_flush();
/* Not done */
done = FALSE;
/* No item selected */
item = FALSE;
/* Full inventory */
i1 = 0;
i2 = INVEN_PACK - 1;
/* Forbid inventory */
if (!use_inven) i2 = -1;
/* Restrict inventory indexes */
while ((i1 <= i2) && (!get_item_okay(i1))) i1++;
while ((i1 <= i2) && (!get_item_okay(i2))) i2--;
/* Accept inventory */
if (i1 <= i2) allow_inven = TRUE;
/* Full equipment */
e1 = INVEN_WIELD;
e2 = ALL_INVEN_TOTAL - 1;
/* Forbid equipment */
if (!use_equip) e2 = -1;
/* Restrict equipment indexes */
while ((e1 <= e2) && (!get_item_okay(e1))) e1++;
while ((e1 <= e2) && (!get_item_okay(e2))) e2--;
/* Accept equipment */
if (e1 <= e2) allow_equip = TRUE;
/* Scan all non-gold objects in the grid */
floor_num = scan_floor(floor_list, N_ELEMENTS(floor_list), py, px, 0x03);
/* Full floor */
f1 = 0;
f2 = floor_num - 1;
/* Forbid floor */
if (!use_floor) f2 = -1;
/* Restrict floor indexes */
while ((f1 <= f2) && (!get_item_okay(0 - floor_list[f1]))) f1++;
while ((f1 <= f2) && (!get_item_okay(0 - floor_list[f2]))) f2--;
/* Accept floor */
if (f1 <= f2) allow_floor = TRUE;
/* Require at least one legal choice */
if (!allow_inven && !allow_equip && !allow_floor)
{
/* Oops */
oops = TRUE;
done = TRUE;
}
/* Analyze choices */
else
{
/* Hack -- Start on equipment if requested */
if ((p_ptr->command_wrk == USE_EQUIP) && allow_equip)
p_ptr->command_wrk = USE_EQUIP;
else if ((p_ptr->command_wrk == USE_INVEN) && allow_inven)
p_ptr->command_wrk = USE_INVEN;
else if ((p_ptr->command_wrk == USE_FLOOR) && allow_floor)
p_ptr->command_wrk = USE_FLOOR;
/* If we are using the quiver then start on equipment */
else if (use_quiver && allow_equip)
p_ptr->command_wrk = USE_EQUIP;
/* Use inventory if allowed */
else if (use_inven && allow_inven)
p_ptr->command_wrk = USE_INVEN;
/* Use equipment if allowed */
else if (use_equip && allow_equip)
p_ptr->command_wrk = USE_EQUIP;
/* Use floor if allowed */
else if (use_floor && allow_floor)
p_ptr->command_wrk = USE_FLOOR;
/* Hack -- Use (empty) inventory */
else
p_ptr->command_wrk = USE_INVEN;
}
/* Start out in "display" mode */
if (show_list)
{
/* Save screen */
screen_save();
}
/* Repeat until done */
while (!done)
{
int ni = 0;
int ne = 0;
/* Scan windows */
for (j = 0; j < ANGBAND_TERM_MAX; j++)
{
/* Unused */
if (!angband_term[j]) continue;
/* Count windows displaying inven */
if (op_ptr->window_flag[j] & (PW_INVEN)) ni++;
/* Count windows displaying equip */
if (op_ptr->window_flag[j] & (PW_EQUIP)) ne++;
}
/* Toggle if needed */
if (((p_ptr->command_wrk == USE_EQUIP) && ni && !ne) ||
((p_ptr->command_wrk == USE_INVEN) && !ni && ne))
{
/* Toggle */
toggle_inven_equip();
/* Track toggles */
toggle = !toggle;
}
/* Redraw */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
/* Redraw windows */
redraw_stuff(p_ptr);
/* Viewing inventory */
if (p_ptr->command_wrk == USE_INVEN)
{
/* Hack - show the quiver counts in certain cases like the 'i' command */
if (item_tester_full) {
olist_mode |= OLIST_QUIVER;
}
/* Redraw if needed */
if (show_list) show_inven(olist_mode);
/* Hack - hide the quiver counts outside the inventory page */
if (item_tester_full) {
olist_mode &= ~OLIST_QUIVER;
}
/* Begin the prompt */
strnfmt(out_val, sizeof(out_val), "Inven:");
/* List choices */
if (i1 <= i2)
{
/* Build the prompt */
strnfmt(tmp_val, sizeof(tmp_val), " %c-%c,",
index_to_label(i1), index_to_label(i2));
/* Append */
my_strcat(out_val, tmp_val, sizeof(out_val));
}
/* Indicate ability to "view" */
if (!show_list)
{
my_strcat(out_val, " * to see,", sizeof(out_val));
button_add("[*]", '*');
}
/* Indicate legality of "toggle" */
if (use_equip)
{
my_strcat(out_val, " / for Equip,", sizeof(out_val));
button_add("[/]", '/');
}
/* Indicate legality of the "floor" */
if (allow_floor)
{
my_strcat(out_val, " - for floor,", sizeof(out_val));
button_add("[-]", '-');
}
}
/* Viewing equipment */
else if (p_ptr->command_wrk == USE_EQUIP)
{
/* Redraw if needed */
if (show_list) show_equip(olist_mode);
/* Begin the prompt */
strnfmt(out_val, sizeof(out_val), "Equip:");
/* List choices */
if (e1 <= e2)
{
/* Build the prompt */
strnfmt(tmp_val, sizeof(tmp_val), " %c-%c,",
index_to_label(e1), index_to_label(e2));
/* Append */
my_strcat(out_val, tmp_val, sizeof(out_val));
}
/* Indicate ability to "view" */
if (!show_list)
{
my_strcat(out_val, " * to see,", sizeof(out_val));
button_add("[*]", '*');
}
/* Indicate legality of "toggle" */
if (use_inven)
{
my_strcat(out_val, " / for Inven,", sizeof(out_val));
button_add("[/]", '/');
}
/* Indicate legality of the "floor" */
if (allow_floor)
{
my_strcat(out_val, " - for floor,", sizeof(out_val));
button_add("[!]", '!');
}
}
/* Viewing floor */
else
{
/* Redraw if needed */
if (show_list) show_floor(floor_list, floor_num, olist_mode);
/* Begin the prompt */
strnfmt(out_val, sizeof(out_val), "Floor:");
/* List choices */
if (f1 <= f2)
{
/* Build the prompt */
strnfmt(tmp_val, sizeof(tmp_val), " %c-%c,", I2A(f1), I2A(f2));
/* Append */
my_strcat(out_val, tmp_val, sizeof(out_val));
}
/* Indicate ability to "view" */
if (!show_list)
{
my_strcat(out_val, " * to see,", sizeof(out_val));
button_add("[*]", '*');
}
/* Append */
if (use_inven)
{
my_strcat(out_val, " / for Inven,", sizeof(out_val));
button_add("[/]", '/');
}
/* Append */
else if (use_equip)
{
my_strcat(out_val, " / for Equip,", sizeof(out_val));
button_add("[/]", '/');
}
}
redraw_stuff(p_ptr);
/* Finish the prompt */
my_strcat(out_val, " ESC", sizeof(out_val));
/* if we have a prompt header, show the part that we just built */
if (pmt) {
/* Build the prompt */
strnfmt(tmp_val, sizeof(tmp_val), "(%s) %s", out_val, pmt);
/* Show the prompt */
prt(tmp_val, 0, 0);
}
/* Get a key */
//which = inkey();
press = inkey_m();
/* Parse it */
if (press.type == EVT_MOUSE) {
if (press.mouse.button == 2) {
done = TRUE;
} else
if (press.mouse.button == 1) {
k = -1;
if (p_ptr->command_wrk == USE_INVEN) {
if (press.mouse.y == 0) {
if (use_equip) {
p_ptr->command_wrk = USE_EQUIP;
} else
if (allow_floor) {
p_ptr->command_wrk = USE_FLOOR;
}
} else
if ((press.mouse.y <= i2-i1+1) ){
//&& (press.mouse.x > Term->wid - 1 - max_len - ex_width)) {
//k = label_to_inven(index_to_label(i1+press.mouse.y-1));
/* get the item index, allowing for skipped indices */
for (j = i1; j <= i2; j++) {
if (get_item_okay(j)) {
if (press.mouse.y == 1) {
k = j;
break;
}
press.mouse.y--;
}
}
}
} else
if (p_ptr->command_wrk == USE_EQUIP) {
if (press.mouse.y == 0) {
if (allow_floor) {
p_ptr->command_wrk = USE_FLOOR;
} else
if (use_inven) {
p_ptr->command_wrk = USE_INVEN;
}
} else
if (press.mouse.y <= e2-e1+1) {
//k = label_to_equip(index_to_label(e1+press.mouse.y-1));
/* get the item index, allowing for skipped indices */
for (j = e1; j <= e2; j++) {
/* skip the quiver slot which is a blank line in the list */
if (j == 36) {
press.mouse.y--;
} else
if (get_item_okay(j)) {
if (press.mouse.y == 1) {
k = j;
break;
}
press.mouse.y--;
}
}
}
} else
if (p_ptr->command_wrk == USE_FLOOR) {
if (press.mouse.y == 0) {
if (use_inven) {
p_ptr->command_wrk = USE_INVEN;
} else
if (use_equip) {
p_ptr->command_wrk = USE_EQUIP;
}
} else
if ((press.mouse.y <= floor_num) && (press.mouse.y >= 1)) {
/* Special index */
k = 0 - floor_list[press.mouse.y-1];
/* get the item index, allowing for skipped indices */
for (j = f1; j <= f2; j++) {
if (get_item_okay(0 - floor_list[j])) {
if (press.mouse.y == 1) {
k = 0 - floor_list[j];
break;
}
press.mouse.y--;
}
}
/* check the bounds the item number */
if (k < 0) {
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless))
{
done = TRUE;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
} else {
/* set k to a value that will be invalid below */
k = -1;
}
}
}
if (k >= 0) {
/* Validate the item */
if (!get_item_okay(k)) {
bell("Illegal object choice (normal)!");
}
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless)) {
done = TRUE;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
} else
if (press.mouse.y == 0) {
/* Hack -- Fix screen */
if (show_list) {
/* Load screen */
screen_load();
/* Save screen */
screen_save();
}
}
}
} else
//switch (which.code)
switch (press.key.code)
{
case ESCAPE:
case ' ':
{
done = TRUE;
break;
}
case '/':
{
/* Toggle to inventory */
if (use_inven && (p_ptr->command_wrk != USE_INVEN))
{
p_ptr->command_wrk = USE_INVEN;
}
/* Toggle to equipment */
else if (use_equip && (p_ptr->command_wrk != USE_EQUIP))
{
p_ptr->command_wrk = USE_EQUIP;
}
/* No toggle allowed */
else
{
bell("Cannot switch item selector!");
break;
}
/* Hack -- Fix screen */
if (show_list)
{
/* Load screen */
screen_load();
/* Save screen */
screen_save();
}
/* Need to redraw */
break;
}
case '-':
{
/* Paranoia */
if (!allow_floor)
{
bell("Cannot select floor!");
break;
}
/* There is only one item */
if (floor_num == 1)
{
/* Auto-select */
if (p_ptr->command_wrk == (USE_FLOOR))
{
/* Special index */
k = 0 - floor_list[0];
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless))
{
done = TRUE;
break;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
break;
}
}
/* Hack -- Fix screen */
if (show_list)
{
/* Load screen */
screen_load();
/* Save screen */
screen_save();
}
p_ptr->command_wrk = (USE_FLOOR);
#if 0
/* Check each legal object */
for (i = 0; i < floor_num; ++i)
{
/* Special index */
k = 0 - floor_list[i];
/* Skip non-okay objects */
if (!get_item_okay(k)) continue;
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless)) continue;
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
break;
}
#endif
break;
}
case '0':
case '1': case '2': case '3':
case '4': case '5': case '6':
case '7': case '8': case '9':
{
/* Look up the tag */
//if (!get_tag(&k, which.code, cmd, quiver_tags))
if (!get_tag(&k, press.key.code, cmd, quiver_tags))
{
bell("Illegal object choice (tag)!");
break;
}
/* Hack -- Validate the item */
if ((k < INVEN_WIELD) ? !allow_inven : !allow_equip)
{
bell("Illegal object choice (tag)!");
break;
}
/* Validate the item */
if (!get_item_okay(k))
{
bell("Illegal object choice (tag)!");
break;
}
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless))
{
done = TRUE;
break;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
break;
}
case KC_ENTER:
{
/* Choose "default" inventory item */
if (p_ptr->command_wrk == USE_INVEN)
{
if (i1 != i2)
{
bell("Illegal object choice (default)!");
break;
}
k = i1;
}
/* Choose the "default" slot (0) of the quiver */
else if (quiver_tags)
k = e1;
/* Choose "default" equipment item */
else if (p_ptr->command_wrk == USE_EQUIP)
{
if (e1 != e2)
{
bell("Illegal object choice (default)!");
break;
}
k = e1;
}
/* Choose "default" floor item */
else
{
if (f1 != f2)
{
bell("Illegal object choice (default)!");
break;
}
k = 0 - floor_list[f1];
}
/* Validate the item */
if (!get_item_okay(k))
{
bell("Illegal object choice (default)!");
break;
}
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless))
{
done = TRUE;
break;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
break;
}
default:
{
bool verify;
/* Note verify */
//verify = (isupper((unsigned char)which.code) ? TRUE : FALSE);
verify = (isupper((unsigned char)press.key.code) ? TRUE : FALSE);
/* Lowercase */
//which.code = tolower((unsigned char)which.code);
press.key.code = tolower((unsigned char)press.key.code);
/* Convert letter to inventory index */
if (p_ptr->command_wrk == USE_INVEN)
{
//k = label_to_inven(which.code);
k = label_to_inven(press.key.code);
if (k < 0)
{
bell("Illegal object choice (inven)!");
break;
}
}
/* Convert letter to equipment index */
else if (p_ptr->command_wrk == USE_EQUIP)
{
//k = label_to_equip(which.code);
k = label_to_equip(press.key.code);
if (k < 0)
{
bell("Illegal object choice (equip)!");
break;
}
}
/* Convert letter to floor index */
else
{
//k = (islower((unsigned char)which.code) ? A2I((unsigned char)which.code) : -1);
k = (islower((unsigned char)press.key.code) ? A2I((unsigned char)press.key.code) : -1);
if (k < 0 || k >= floor_num)
{
bell("Illegal object choice (floor)!");
break;
}
/* Special index */
k = 0 - floor_list[k];
}
/* Validate the item */
if (!get_item_okay(k))
{
bell("Illegal object choice (normal)!");
break;
}
/* Verify the item */
if (verify && !verify_item("Try", k))
{
done = TRUE;
break;
}
/* Allow player to "refuse" certain actions */
if (!get_item_allow(k, cmdkey, cmd, is_harmless))
{
done = TRUE;
break;
}
/* Accept that choice */
(*cp) = k;
item = TRUE;
done = TRUE;
break;
}
}
}
/* Fix the screen if necessary */
if (show_list)
{
/* Load screen */
screen_load();
/* Hack -- Cancel "display" */
show_list = FALSE;
}
/* Kill buttons */
button_kill('*');
button_kill('/');
button_kill('-');
button_kill('!');
redraw_stuff(p_ptr);
/* Forget the item_tester_tval restriction */
item_tester_tval = 0;
/* Forget the item_tester_hook restriction */
item_tester_hook = NULL;
/* Toggle again if needed */
if (toggle) toggle_inven_equip();
/* Update */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
redraw_stuff(p_ptr);
/* Clear the prompt line */
prt("", 0, 0);
/* Warning if needed */
if (oops && str) msg("%s", str);
/* Result */
return (item);
}
/**
* Pick up objects and treasure on the floor, now also used for telekinesis.
*
* Called with pickup:
* 0 to grab gold and describe non-gold objects.
* 1 to pick up objects either with or without displaying a menu.
* 2 to pick up objects, forcing a menu for multiple objects.
* 3 to pick up objects, forcing a menu for any number of objects.
*
* Scan the list of objects in that floor grid. Pick up gold automatically.
* Pick up objects automatically until pile or backpack space is full if
* auto-pickup option is on, carry_query_floor option is not, and menus are
* not forced (which the "get" command does). Otherwise, store objects on
* floor in an array, and tally both how many there are and can be picked up.
*
* If the player is not picking up objects, describe a single object or
* indicate the presence of a floor stack. If player is picking up objects,
* name a single object, or indicate a stack of objects, that cannot go in
* the backpack.
*
* Pick up a single object without menus, unless menus for single items are
* forced. Confirm pickup if that option is on.
*
* Pick up multiple objects (unless using autopickup, no confirm) using Tim
* Baker's menu system. Recursively call this function (forcing menus for any
* number of objects) until objects are gone, backpack is full, or player is
* satisfied.
*
* Keep track of number of objects picked up (to calculate time spent).
*/
byte py_pickup(int pickup, int y, int x)
{
s16b this_o_idx, next_o_idx = 0;
char o_name[120];
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], floor_o_idx = 0;
int can_pickup = 0;
bool call_function_again = FALSE;
bool blind = ((p_ptr->timed[TMD_BLIND]) || (no_light()));
bool domsg = TRUE;
bool telekinesis = ((y != p_ptr->py) || (x != p_ptr->px));
/* Always pickup gold, effortlessly */
if (!telekinesis)
py_pickup_gold();
/* Nothing to pick up -- return */
if (!cave_o_idx[y][x])
return (objs_picked_up);
/* Scan the pile of objects */
for (this_o_idx = cave_o_idx[y][x]; this_o_idx;
this_o_idx = next_o_idx) {
/* Access the object */
o_ptr = &o_list[this_o_idx];
/* Access the next object */
next_o_idx = o_ptr->next_o_idx;
/* Ordinary pickup */
if (!telekinesis) {
/* Ignore all hidden objects and non-objects */
if (squelch_hide_item(o_ptr) || !o_ptr->k_idx)
continue;
/* Hack -- disturb */
disturb(0, 0);
/* Automatically pick up some items */
if (auto_pickup_okay(o_ptr)) {
/* Pick up the object */
py_pickup_aux(this_o_idx, TRUE);
objs_picked_up++;
/* Check the next object */
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++;
/* Tally objects that can be picked up. */
if (inven_carry_okay(o_ptr))
can_pickup++;
}
/* There are no non-gold objects */
if (!floor_num)
return (objs_picked_up);
/* Get hold of the last floor index */
floor_o_idx = floor_list[floor_num - 1];
/* Mention the objects if player is not picking them up. */
if (pickup == 0 || !(can_pickup || telekinesis)) {
const char *p = "see";
/* One object */
if (floor_num == 1) {
if (!can_pickup)
p = "have no room for";
else if (blind)
p = "feel";
/* Get the object */
o_ptr = &o_list[floor_o_idx];
/* Describe the object. Less detail if blind. */
if (blind)
object_desc(o_name, sizeof(o_name), o_ptr,
ODESC_PREFIX | ODESC_BASE);
else
object_desc(o_name, sizeof(o_name), o_ptr,
ODESC_PREFIX | ODESC_FULL);
/* Message */
message_flush();
msg("You %s %s.", p, o_name);
} else {
/* Display more information about floor items */
ui_event e;
if (!can_pickup)
p = "have no room for the following objects";
else if (blind)
p = "feel something on the floor";
/* Scan all marked objects in the grid */
floor_num =
scan_floor(floor_list, N_ELEMENTS(floor_list), y, x, 0x03);
/* Save screen */
screen_save();
/* Display objects on the floor */
show_floor(floor_list, floor_num, (OLIST_WEIGHT));
/* Display prompt */
prt(format("You %s: ", p), 0, 0);
/* Wait for it. Use key as next command. */
e = inkey_ex();
Term_event_push(&e);
/* Restore screen */
screen_load();
}
/* Done */
return (objs_picked_up);
}
/* We can pick up objects. Menus are not requested (yet). */
if (pickup == 1) {
/* Scan floor (again) */
floor_num =
scan_floor(floor_list, N_ELEMENTS(floor_list), y, x, 0x03);
/* Use a menu interface for multiple objects, or get single objects */
if (floor_num > 1)
pickup = 2;
else
this_o_idx = floor_o_idx;
}
/* Display a list if requested. */
if (pickup == 2) {
const char *q, *s;
int item;
/* Get an object or exit. */
q = "Get which item?";
s = "You see nothing there.";
/* Telekinesis */
if (telekinesis) {
item_tester_hook = inven_carry_okay;
if (!get_item(&item, q, s, CMD_PICKUP, USE_TARGET))
return (objs_picked_up);
this_o_idx = 0 - item;
} else {
/* Restrict the choices */
item_tester_hook = inven_carry_okay;
if (!get_item(&item, q, s, CMD_PICKUP, USE_FLOOR))
return (objs_picked_up);
this_o_idx = 0 - item;
call_function_again = TRUE;
}
/* With a list, we do not need explicit pickup messages */
domsg = FALSE;
}
/* Pick up object, if legal */
if (this_o_idx) {
/* Regular pickup or telekinesis with pack not full */
if (can_pickup) {
/* Pick up the object */
py_pickup_aux(this_o_idx, domsg);
}
/* Telekinesis with pack full */
else {
/* Access the object */
o_ptr = &o_list[this_o_idx];
/* Drop it */
drop_near(o_ptr, -1, p_ptr->py, p_ptr->px, TRUE);
/* Delete the old object */
delete_object_idx(this_o_idx);
}
}
/* Indicate an object picked up. */
objs_picked_up = 1;
/* If requested, call this function recursively. Count objects picked up.
* Force the display of a menu in all cases. */
if (call_function_again)
objs_picked_up += py_pickup(2, y, x);
/* Indicate how many objects have been picked up. */
return (objs_picked_up);
}
/*
* Modify the "window" options
*/
static void do_cmd_options_win(const char *name, int row)
{
int i, j, d;
int y = 0;
int x = 0;
ui_event ke;
u32b new_flags[ANGBAND_TERM_MAX];
/* Set new flags to the old values */
for (j = 0; j < ANGBAND_TERM_MAX; j++)
{
new_flags[j] = op_ptr.window_flag[j];
}
/* Clear screen */
screen_save();
clear_from(0);
/* Interact */
while (1)
{
/* Prompt */
prt("Window flags (<dir> to move, 't'/Enter to toggle, or ESC)", 0, 0);
/* Display the windows */
for (j = 0; j < ANGBAND_TERM_MAX; j++)
{
byte a = TERM_WHITE;
const char *s = angband_term_name[j];
/* Use color */
if (j == x) a = TERM_L_BLUE;
/* Window name, staggered, centered */
Term_putstr(35 + j * 5 - strlen(s) / 2, 2 + j % 2, -1, a, s);
}
/* Display the options */
for (i = 0; i < PW_MAX_FLAGS; i++)
{
byte a = TERM_WHITE;
const char *str = window_flag_desc[i];
/* Use color */
if (i == y) a = TERM_L_BLUE;
/* Unused option */
if (!str) str = "(Unused option)";
/* Flag name */
Term_putstr(0, i + 5, -1, a, str);
/* Display the windows */
for (j = 0; j < ANGBAND_TERM_MAX; j++)
{
char c = '.';
a = TERM_WHITE;
/* Use color */
if ((i == y) && (j == x)) a = TERM_L_BLUE;
/* Active flag */
if (new_flags[j] & (1L << i)) c = 'X';
/* Flag value */
Term_putch(35 + j * 5, i + 5, a, c);
}
}
/* Place Cursor */
Term_gotoxy(35 + x * 5, y + 5);
/* Get key */
ke = inkey_ex();
/* Mouse interaction */
if (ke.type == EVT_MOUSE)
{
int choicey = ke.mouse.y - 5;
int choicex = (ke.mouse.x - 35)/5;
if ((choicey >= 0) && (choicey < PW_MAX_FLAGS)
&& (choicex > 0) && (choicex < ANGBAND_TERM_MAX)
&& !(ke.mouse.x % 5))
{
y = choicey;
x = (ke.mouse.x - 35)/5;
}
}
/* Allow escape */
else if (ke.type == EVT_KBRD)
{
if (ke.key.code == ESCAPE || ke.key.code == 'q')
break;
/* Toggle */
else if (ke.key.code == '5' || ke.key.code == 't' ||
ke.key.code == '\n' || ke.key.code == '\r')
{
/* Hack -- ignore the main window */
if (x == 0)
bell("Cannot set main window flags!");
/* Toggle flag (off) */
else if (new_flags[x] & (1L << y))
new_flags[x] &= ~(1L << y);
/* Toggle flag (on) */
else
new_flags[x] |= (1L << y);
/* Continue */
continue;
}
/* Extract direction */
d = target_dir(ke.key);
/* Move */
if (d != 0)
{
x = (x + ddx[d] + 8) % ANGBAND_TERM_MAX;
y = (y + ddy[d] + 16) % PW_MAX_FLAGS;
}
}
}
/* Notice changes */
subwindows_set_flags(new_flags, ANGBAND_TERM_MAX);
screen_load();
}
static int get_class_power(int *sn)
{
int i;
int num = 0;
int y = 1;
int x = 10;
int minfail =0;
int plev = p_ptr->lev;
int chance;
int ask;
int use_mind;
char choice;
char out_val[160];
char comment[80];
cptr p;
mind_type spell;
mind_power *mind_ptr;
bool flag, redraw;
/* Insert if /if else statement here for classflag. */
if ((cp_ptr->flags) & CF_OFFICER)
{
use_mind = MIND_OFFICER;
p = "commanding presence";
}
else if ((cp_ptr->flags) & CF_AESTHETE)
{
use_mind = MIND_AESTHETE;
p = "skill";
}
else if ((cp_ptr->flags) & CF_EXPLORER)
{
use_mind = MIND_EXPLORER;
p = "talent";
}
else if ((cp_ptr->flags) & CF_MEDIUM)
{
use_mind = MIND_MEDIUM;
p = "mental power";
}
else if ((cp_ptr->flags) & CF_RECKONER)
{
use_mind = MIND_RECKONER;
p = "reality alteration";
}
else if ((cp_ptr->flags) & CF_TOURIST)
{
use_mind = MIND_TOURIST;
p = "tourism dept.";
}
else if ((cp_ptr->flags) & CF_HUSSAR)
{
use_mind = MIND_HUSSAR;
p = "combat techniques";
}
else if ((cp_ptr->flags) & CF_NATURE)
{
use_mind = MIND_NATURE;
p = "natural empathy";
}
else if ((cp_ptr->flags) & CF_NINJA)
{
use_mind = MIND_NINJA;
p = "ninjutsu";
}
else
{
msg_print("You have no powers.");
}
mind_ptr = &mind_powers[use_mind];
/* Assume cancelled */
*sn = (-1);
#ifdef ALLOW_REPEAT /* TNB */
/* Get the spell, if available */
if (repeat_pull(sn))
{
/* Verify the spell */
if (mind_ptr->info[*sn].min_lev <= plev)
{
/* Success */
return (TRUE);
}
}
#endif /* ALLOW_REPEAT -- TNB */
/* Nothing chosen yet */
flag = FALSE;
/* No redraw yet */
redraw = FALSE;
for (i = 0; i < MAX_CLASS_POWERS; i++)
{
if (mind_ptr->info[i].min_lev <= plev)
{
num++;
}
}
/* Build a prompt (accept all spells) */
(void)strnfmt(out_val, 78, "(%^ss %c-%c, *=List, ESC=exit) Use which %s? ",
p, I2A(0), I2A(num - 1), p);
/* Get a spell from the user */
while (!flag && get_com(out_val, &choice))
{
/* Request redraw */
if ((choice == ' ') || (choice == '*') || (choice == '?'))
{
/* Show the list */
if (!redraw)
{
char psi_desc[80];
/* Show list */
redraw = TRUE;
/* Save the screen */
screen_save();
prt("", y, x);
put_str("Name", y, x + 5);
put_str(format("Lv MP Fail Info"), y, x + 35);
/* Dump the spells */
for (i = 0; i < MAX_CLASS_POWERS; i++)
{
/* Access the spell */
spell = mind_ptr->info[i];
if (spell.min_lev > plev) break;
chance = spell.fail;
/* Reduce failure rate by "effective" level adjustment */
chance -= 3 * (plev - spell.min_lev);
/* Reduce failure rate by INT/WIS adjustment */
chance -= 3 * (adj_mag_stat[p_ptr->stat_ind[cp_ptr->spell_stat]] - 1);
/* Not enough mana to cast */
if (spell.mana_cost > p_ptr->csp)
{
chance += 5 * (spell.mana_cost - p_ptr->csp);
}
/* Extract the minimum failure rate */
minfail = adj_mag_fail[p_ptr->stat_ind[cp_ptr->spell_stat]];
/* Minimum failure rate */
if (chance < minfail) chance = minfail;
/* Stunning makes spells harder */
if (p_ptr->stun > 50) chance += 25;
else if (p_ptr->stun) chance += 15;
/* Always a 5 percent chance of working */
if (chance > 95) chance = 95;
/* Get info */
mindcraft_info(comment, use_mind, i);
sprintf(psi_desc, " %c) ",I2A(i));
strcat(psi_desc,
format("%-30s%2d %4d %3d%%%s",
spell.name, spell.min_lev, spell.mana_cost,
chance, comment));
prt(psi_desc, y + i + 1, x);
}
/* Clear the bottom line */
prt("", y + i + 1, x);
}
/* Hide the list */
else
{
/* Hide list */
redraw = FALSE;
/* Restore the screen */
screen_load();
}
/* Redo asking */
continue;
}
/* Note verify */
ask = isupper(choice);
/* Lowercase */
if (ask) choice = tolower(choice);
/* Extract request */
i = (islower(choice) ? A2I(choice) : -1);
/* Totally Illegal */
if ((i < 0) || (i >= num))
{
bell("Illegal class power choice!");
continue;
}
/* Save the spell index */
spell = mind_ptr->info[i];
/* Verify it */
if (ask)
{
char tmp_val[160];
/* Prompt */
(void)strnfmt(tmp_val, 78, "Use %s? ", spell.name);
/* Belay that order */
if (!get_check(tmp_val)) continue;
}
/* Stop the loop */
flag = TRUE;
}
/* Restore the screen */
if (redraw) screen_load();
/* Show choices */
/* Update */
p_ptr->window |= (PW_OVERHEAD);
/* Window stuff */
window_stuff();
/* Abort if needed */
if (!flag) return (FALSE);
/* Save the choice */
(*sn) = i;
#ifdef ALLOW_REPEAT /* TNB */
repeat_push(*sn);
#endif /* ALLOW_REPEAT -- TNB */
/* Success */
return (TRUE);
}
/*
* Identify a character, allow recall of monsters
*
* Several "special" responses recall "multiple" monsters:
* ^A (all monsters)
* ^U (all unique monsters)
* ^N (all non-unique monsters)
*
* The responses may be sorted in several ways, see below.
*
*
*/
void do_cmd_query_symbol(void)
{
int i, n, r_idx;
char sym, query;
char buf[128];
bool all = FALSE;
bool uniq = FALSE;
bool norm = FALSE;
bool recall = FALSE;
u16b why = 0;
u16b *who;
/* Get a character, or abort */
if (!get_com("Enter character to be identified: ", &sym)) return;
/* Find that character info, and describe it */
for (i = 0; ident_info[i]; ++i)
{
if (sym == ident_info[i][0]) break;
}
/* Describe */
if (sym == KTRL('A'))
{
all = TRUE;
my_strcpy(buf, "Full monster list.", sizeof (buf));
}
else if (sym == KTRL('U'))
{
all = uniq = TRUE;
my_strcpy(buf, "Unique monster list.", sizeof (buf));
}
else if (sym == KTRL('N'))
{
all = norm = TRUE;
my_strcpy(buf, "Non-unique monster list.", sizeof (buf));
}
else if (ident_info[i])
{
strnfmt(buf, sizeof(buf), "%c - %s.", sym, ident_info[i] + 2);
}
else
{
strnfmt(buf, sizeof(buf), "%c - %s.", sym, "Unknown Symbol");
}
/* Display the result */
prt(buf, 0, 0);
/* Allocate the "who" array */
C_MAKE(who, z_info->r_max, u16b);
/* Collect matching monsters */
for (n = 0, i = 1; i < z_info->r_max - 1; i++)
{
monster_race *r_ptr = &r_info[i];
monster_lore *l_ptr = &l_list[i];
/* Nothing to recall */
if (!cheat_know && !l_ptr->tsights && !p_ptr->active_ability[S_PER][PER_LORE2]) continue;
/* Require non-unique monsters if needed */
if (norm && (r_ptr->flags1 & (RF1_UNIQUE))) continue;
/* Require unique monsters if needed */
if (uniq && !(r_ptr->flags1 & (RF1_UNIQUE))) continue;
// Ignore monsters that can't be generated
if (r_ptr->level > 25) continue;
/* Collect "appropriate" monsters */
if (all || (r_ptr->d_char == sym)) who[n++] = i;
}
/* Nothing to recall */
if (!n)
{
/* XXX XXX Free the "who" array */
FREE(who);
return;
}
/* Prompt */
put_str("Recall details? (k/p/y/n): ", 0, 40);
/* Query */
query = inkey();
/* Restore */
prt(buf, 0, 0);
/* Sort by kills (and level) */
if (query == 'k')
{
why = 4;
query = 'y';
}
/* Sort by level */
if (query == 'p')
{
why = 2;
query = 'y';
}
/* Catch "escape" */
if (query != 'y')
{
/* XXX XXX Free the "who" array */
FREE(who);
return;
}
/* Sort if needed */
if (why)
{
/* Select the sort method */
ang_sort_comp = ang_sort_comp_hook;
ang_sort_swap = ang_sort_swap_hook;
/* Sort the array */
ang_sort(who, &why, n);
}
/* Start at the end */
i = n - 1;
/* Scan the monster memory */
while (1)
{
/* Extract a race */
r_idx = who[i];
/* Hack -- Auto-recall */
monster_race_track(r_idx);
/* Hack -- Handle stuff */
handle_stuff();
/* Hack -- Begin the prompt */
roff_top(r_idx);
/* Hack -- Complete the prompt */
Term_addstr(-1, TERM_WHITE, " [(r)ecall, ESC]");
/* Interact */
while (1)
{
/* Recall */
if (recall)
{
/* Save screen */
screen_save();
/* Recall on screen */
screen_roff(who[i]);
/* Hack -- Complete the prompt (again) */
Term_addstr(-1, TERM_WHITE, " [(r)ecall, ESC]");
}
/* Command */
query = inkey();
/* Unrecall */
if (recall)
{
/* Load screen */
screen_load();
}
/* Normal commands */
if (query != 'r') break;
/* Toggle recall */
recall = !recall;
}
/* Stop scanning */
if (query == ESCAPE) break;
/* Move to "prev" monster */
if (query == '-')
{
if (++i == n)
{
i = 0;
}
}
/* Move to "next" monster */
else
{
if (i-- == 0)
{
i = n - 1;
}
}
}
/* Re-display the identity */
prt(buf, 0, 0);
/* Free the "who" array */
FREE(who);
}
/*
* Ask for and parse a "debug command"
*
* The "p_ptr->command_arg" may have been set.
*/
void do_cmd_debug(void)
{
int py = p_ptr->py;
int px = p_ptr->px;
char cmd;
/* Get a "debug command" */
if (!get_com("Debug Command: ", &cmd)) return;
/* Analyze the command */
switch (cmd)
{
/* Ignore */
case ESCAPE:
case ' ':
case '\n':
case '\r':
{
break;
}
#ifdef ALLOW_SPOILERS
/* Hack -- Generate Spoilers */
case '"':
{
do_cmd_spoilers();
break;
}
#endif
/* Hack -- Help */
case '?':
{
do_cmd_help();
break;
}
/* Cure all maladies */
case 'a':
{
do_cmd_wiz_cure_all();
break;
}
/* Teleport to target */
case 'b':
{
do_cmd_wiz_bamf();
break;
}
/* Create any object */
case 'c':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
wiz_create_item(p_ptr->command_arg);
break;
}
/* Create an artefact */
case 'C':
{
char prompt[80];
char buf[80];
sprintf(prompt, "%s", "Index: ");
sprintf(buf, "%d", 0);
if(term_get_string(prompt, buf, 0))
wiz_create_artefact( atoi(buf) );
break;
}
/* Detect everything */
case 'd':
{
detect_all_doors_traps();
detect_all();
break;
}
/* Edit character */
case 'e':
{
do_cmd_wiz_change();
break;
}
/* Forget items and map and monster memory */
case 'f':
{
do_cmd_wiz_forget();
break;
}
/* Good Objects */
case 'g':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->command_arg, FALSE);
break;
}
/* Identify */
case 'i':
{
(void)ident_spell();
break;
}
/* Go up or down in the dungeon */
case 'j':
{
do_cmd_wiz_jump();
break;
}
/* Self-Knowledge */
case 'k':
{
self_knowledge();
break;
}
/* Wizard Look */
case 'l':
{
do_cmd_wiz_look();
break;
}
/* Magic Mapping */
case 'm':
{
map_area();
break;
}
/* Summon Named Monster */
case 'n':
{
char prompt[80];
char buf[80];
sprintf(prompt, "%s", "Index: ");
sprintf(buf, "%d", 0);
if(term_get_string(prompt, buf, 0))
do_cmd_wiz_named(atoi(buf), TRUE);
break;
}
/* Object playing routines */
case 'o':
{
do_cmd_wiz_play();
break;
}
/* Debug Options */
case 'O':
{
screen_save();
do_cmd_options_aux(6, "Debug Options");
screen_load();
break;
}
/* Phase Door */
case 'p':
{
teleport_player(10);
break;
}
/* Query the dungeon */
case 'q':
{
do_cmd_wiz_query();
break;
}
/* Summon Random Monster(s) */
case 's':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
do_cmd_wiz_summon(p_ptr->command_arg);
break;
}
/* Teleport */
case 't':
{
teleport_player(100);
break;
}
/* Un-hide all monsters */
case 'u':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 255;
do_cmd_wiz_unhide(p_ptr->command_arg);
break;
}
/* Very Good Objects */
case 'v':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->command_arg, TRUE);
break;
}
/* Wizard Light the Level */
case 'w':
{
wiz_light();
break;
}
/* Increase Experience */
case 'x':
{
if (p_ptr->command_arg)
{
gain_exp(p_ptr->command_arg);
}
else
{
gain_exp(p_ptr->exp);
}
break;
}
/* Zap Monsters (Banishment) */
case 'z':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = MAX_SIGHT;
do_cmd_wiz_zap(p_ptr->command_arg);
break;
}
/* Oops */
default:
{
msg_print("That is not a valid debug command.");
break;
}
}
}
void textui_cmd_ignore_menu(struct object *obj)
{
char out_val[160];
struct menu *m;
region r;
int selected;
byte value;
int type;
if (!obj)
return;
m = menu_dynamic_new();
m->selections = lower_case;
/* Basic ignore option */
if (!(obj->known->notice & OBJ_NOTICE_IGNORE)) {
menu_dynamic_add(m, "This item only", IGNORE_THIS_ITEM);
} else {
menu_dynamic_add(m, "Unignore this item", UNIGNORE_THIS_ITEM);
}
/* Flavour-aware ignore */
if (ignore_tval(obj->tval) &&
(!obj->artifact || !object_flavor_is_aware(obj))) {
bool ignored = kind_is_ignored_aware(obj->kind) ||
kind_is_ignored_unaware(obj->kind);
char tmp[70];
object_desc(tmp, sizeof(tmp), obj,
ODESC_NOEGO | ODESC_BASE | ODESC_PLURAL);
if (!ignored) {
strnfmt(out_val, sizeof out_val, "All %s", tmp);
menu_dynamic_add(m, out_val, IGNORE_THIS_FLAVOR);
} else {
strnfmt(out_val, sizeof out_val, "Unignore all %s", tmp);
menu_dynamic_add(m, out_val, UNIGNORE_THIS_FLAVOR);
}
}
/* Ego ignoring */
if (obj->known->ego) {
struct ego_desc choice;
struct ego_item *ego = obj->ego;
char tmp[80] = "";
choice.e_idx = ego->eidx;
choice.itype = ignore_type_of(obj);
choice.short_name = "";
(void) ego_item_name(tmp, sizeof(tmp), &choice);
if (!ego_is_ignored(choice.e_idx, choice.itype)) {
strnfmt(out_val, sizeof out_val, "All %s", tmp + 4);
menu_dynamic_add(m, out_val, IGNORE_THIS_EGO);
} else {
strnfmt(out_val, sizeof out_val, "Unignore all %s", tmp + 4);
menu_dynamic_add(m, out_val, UNIGNORE_THIS_EGO);
}
}
/* Quality ignoring */
value = ignore_level_of(obj);
type = ignore_type_of(obj);
if (tval_is_jewelry(obj) && ignore_level_of(obj) != IGNORE_BAD)
value = IGNORE_MAX;
if (value != IGNORE_MAX && type != ITYPE_MAX) {
strnfmt(out_val, sizeof out_val, "All %s %s",
quality_values[value].name, ignore_name_for_type(type));
menu_dynamic_add(m, out_val, IGNORE_THIS_QUALITY);
}
/* Work out display region */
r.width = menu_dynamic_longest_entry(m) + 3 + 2; /* +3 for tag, 2 for pad */
r.col = 80 - r.width;
r.row = 1;
r.page_rows = m->count;
screen_save();
menu_layout(m, &r);
region_erase_bordered(&r);
prt("(Enter to select, ESC) Ignore:", 0, 0);
selected = menu_dynamic_select(m);
screen_load();
if (selected == IGNORE_THIS_ITEM) {
obj->known->notice |= OBJ_NOTICE_IGNORE;
} else if (selected == UNIGNORE_THIS_ITEM) {
obj->known->notice &= ~(OBJ_NOTICE_IGNORE);
} else if (selected == IGNORE_THIS_FLAVOR) {
object_ignore_flavor_of(obj);
} else if (selected == UNIGNORE_THIS_FLAVOR) {
kind_ignore_clear(obj->kind);
} else if (selected == IGNORE_THIS_EGO) {
ego_ignore(obj);
} else if (selected == UNIGNORE_THIS_EGO) {
ego_ignore_clear(obj);
} else if (selected == IGNORE_THIS_QUALITY) {
byte ignore_value = ignore_level_of(obj);
int ignore_type = ignore_type_of(obj);
ignore_level[ignore_type] = ignore_value;
}
player->upkeep->notice |= PN_IGNORE;
menu_dynamic_free(m);
}
/*
* Ask for and parse a "debug command"
*
* The "p_ptr->command_arg" may have been set.
*/
void do_cmd_debug(void)
{
int py = p_ptr->py;
int px = p_ptr->px;
struct keypress cmd;
const monster_race *r_ptr;
/* Get a "debug command" */
if (!get_com("Debug Command: ", &cmd)) return;
/* Analyze the command */
switch (cmd.code)
{
/* Ignore */
case ESCAPE:
case ' ':
case KC_ENTER:
{
break;
}
#ifdef ALLOW_SPOILERS
/* Hack -- Generate Spoilers */
case '"':
{
do_cmd_spoilers();
break;
}
#endif
/* Hack -- Help */
case '?':
{
do_cmd_wiz_help();
break;
}
/* Cure all maladies */
case 'a':
{
do_cmd_wiz_cure_all();
break;
}
/* Make the player powerful */
case 'A':
{
do_cmd_wiz_advance();
break;
}
/* Teleport to target */
case 'b':
{
do_cmd_wiz_bamf();
break;
}
/* Create any object */
case 'c':
{
wiz_create_item();
break;
}
/* Create an artifact */
case 'C':
{
if (p_ptr->command_arg > 0)
{
wiz_create_artifact(p_ptr->command_arg);
}
else
{
char name[80] = "";
int a_idx = -1;
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Create which artifact? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if an a_idx was entered */
a_idx = get_idx_from_name(name);
/* If not, find the artifact with that name */
if (a_idx < 1)
a_idx = lookup_artifact_name(name);
/* Did we find a valid artifact? */
if (a_idx != -1)
wiz_create_artifact(a_idx);
else
msg("No artifact found.");
}
/* Reload the screen */
screen_load();
}
break;
}
/* Detect everything */
case 'd':
{
detect_all(TRUE);
break;
}
/* Test for disconnected dungeon */
case 'D':
{
disconnect_stats();
break;
}
/* Edit character */
case 'e':
{
do_cmd_wiz_change();
break;
}
case 'f':
{
stats_collect();
break;
}
/* Good Objects */
case 'g':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->depth, p_ptr->command_arg, FALSE);
break;
}
/* GF demo */
case 'G':
{
wiz_gf_demo();
break;
}
/* Hitpoint rerating */
case 'h':
{
do_cmd_rerate();
break;
}
/* Identify */
case 'i':
{
(void)ident_spell();
break;
}
/* Go up or down in the dungeon */
case 'j':
{
do_cmd_wiz_jump();
break;
}
/* Learn about objects */
case 'l':
{
do_cmd_wiz_learn();
break;
}
case 'L': do_cmd_keylog(); break;
/* Magic Mapping */
case 'm':
{
map_area();
break;
}
/* Summon Named Monster */
case 'n':
{
s16b r_idx = 0;
if (p_ptr->command_arg > 0)
{
r_idx = p_ptr->command_arg;
}
else
{
char name[80] = "";
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Summon which monster? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if a r_idx was entered */
r_idx = get_idx_from_name(name);
/* If not, find the monster with that name */
if (r_idx < 1)
r_idx = lookup_monster(name);
p_ptr->redraw |= (PR_MAP | PR_MONLIST);
/* Reload the screen */
screen_load();
}
}
if (r_idx > 0)
do_cmd_wiz_named(r_idx, TRUE);
else
msg("No monster found.");
break;
}
/* Object playing routines */
case 'o':
{
do_cmd_wiz_play();
break;
}
/* Phase Door */
case 'p':
{
teleport_player(10);
break;
}
/* Monster pit stats */
case 'P':
{
pit_stats();
break;
}
/* Query the dungeon */
case 'q':
{
do_cmd_wiz_query();
break;
}
/* Get full recall for a monster */
case 'r':
{
s16b r_idx = 0;
if (p_ptr->command_arg > 0)
{
r_idx = p_ptr->command_arg;
}
else
{
struct keypress sym;
const char *prompt =
"Full recall for [a]ll monsters or [s]pecific monster? ";
if (!get_com(prompt, &sym)) return;
if (sym.code == 'a' || sym.code == 'A')
{
int i;
for (i = 1; i < z_info->r_max; i++)
{
r_ptr = &r_info[i];
cheat_monster_lore(r_ptr, &l_list[i]);
}
break;
}
else if (sym.code == 's' || sym.code == 'S')
{
char name[80] = "";
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Which monster? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if a r_idx was entered */
r_idx = get_idx_from_name(name);
/* If not, find the monster with that name */
if (r_idx < 1)
r_idx = lookup_monster(name);
}
/* Reload the screen */
screen_load();
}
else
{
/* Assume user aborts */
break;
}
}
/* Did we find a valid monster? */
if (r_idx > 0)
{
r_ptr = &r_info[r_idx];
cheat_monster_lore(r_ptr, &l_list[r_idx]);
}
else
msg("No monster found.");
break;
}
/* Summon Random Monster(s) */
case 's':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
do_cmd_wiz_summon(p_ptr->command_arg);
break;
}
/* Collect stats (S) */
case 'S':
{
stats_collect();
break;
}
/* Teleport */
case 't':
{
teleport_player(100);
break;
}
/* Create a trap */
case 'T':
{
if (cave->feat[p_ptr->py][p_ptr->px] != FEAT_FLOOR)
msg("You can't place a trap there!");
else if (p_ptr->depth == 0)
msg("You can't place a trap in the town!");
else
cave_set_feat(cave, p_ptr->py, p_ptr->px, FEAT_INVIS);
break;
}
/* Un-hide all monsters */
case 'u':
{
detect_monsters_entire_level();
break;
}
/* Very Good Objects */
case 'v':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->depth, p_ptr->command_arg, TRUE);
break;
}
case 'V':
{
wiz_test_kind(p_ptr->command_arg);
break;
}
/* Wizard Light the Level */
case 'w':
{
wiz_light(TRUE);
break;
}
/* Wipe recall for a monster */
case 'W':
{
s16b r_idx = 0;
if (p_ptr->command_arg > 0)
{
r_idx = p_ptr->command_arg;
}
else
{
struct keypress sym;
const char *prompt =
"Wipe recall for [a]ll monsters or [s]pecific monster? ";
if (!get_com(prompt, &sym)) return;
if (sym.code == 'a' || sym.code == 'A')
{
int i;
for (i = 1; i < z_info->r_max; i++)
{
r_ptr = &r_info[i];
wipe_monster_lore(r_ptr, &l_list[i]);
}
break;
}
else if (sym.code == 's' || sym.code == 'S')
{
char name[80] = "";
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Which monster? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if a r_idx was entered */
r_idx = get_idx_from_name(name);
/* If not, find the monster with that name */
if (r_idx < 1)
r_idx = lookup_monster(name);
}
/* Reload the screen */
screen_load();
}
else
{
/* Assume user aborts */
break;
}
}
/* Did we find a valid monster? */
if (r_idx > 0)
{
r_ptr = &r_info[r_idx];
wipe_monster_lore(r_ptr, &l_list[r_idx]);
}
else
msg("No monster found.");
break;
}
/* Increase Experience */
case 'x':
{
if (p_ptr->command_arg)
{
player_exp_gain(p_ptr, p_ptr->command_arg);
}
else
{
player_exp_gain(p_ptr, p_ptr->exp + 1);
}
break;
}
/* Zap Monsters (Banishment) */
case 'z':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = MAX_SIGHT;
do_cmd_wiz_zap(p_ptr->command_arg);
break;
}
/* Hack */
case '_':
{
do_cmd_wiz_hack_ben();
break;
}
/* Oops */
default:
{
msg("That is not a valid debug command.");
break;
}
}
}
/**
* Let the user select an object, save its address
*
* Return true only if an acceptable item was chosen by the user.
*
* The user is allowed to choose acceptable items from the equipment,
* inventory, quiver, or floor, respectively, if the proper flag was given,
* and there are any acceptable items in that location.
*
* The equipment, inventory or quiver are displayed (even if no acceptable
* items are in that location) if the proper flag was given.
*
* If there are no acceptable items available anywhere, and "str" is
* not NULL, then it will be used as the text of a warning message
* before the function returns.
*
* If a legal item is selected , we save it in "choice" and return true.
*
* If no item is available, we do nothing to "choice", and we display a
* warning message, using "str" if available, and return false.
*
* If no item is selected, we do nothing to "choice", and return false.
*
* Global "player->upkeep->command_wrk" is used to choose between
* equip/inven/quiver/floor listings. It is equal to USE_INVEN or USE_EQUIP or
* USE_QUIVER or USE_FLOOR, except when this function is first called, when it
* is equal to zero, which will cause it to be set to USE_INVEN.
*
* We always erase the prompt when we are done, leaving a blank line,
* or a warning message, if appropriate, if no items are available.
*
* Note that only "acceptable" floor objects get indexes, so between two
* commands, the indexes of floor objects may change. XXX XXX XXX
*/
bool textui_get_item(struct object **choice, const char *pmt, const char *str,
cmd_code cmd, item_tester tester, int mode)
{
bool use_inven = ((mode & USE_INVEN) ? true : false);
bool use_equip = ((mode & USE_EQUIP) ? true : false);
bool use_quiver = ((mode & USE_QUIVER) ? true : false);
bool use_floor = ((mode & USE_FLOOR) ? true : false);
bool quiver_tags = ((mode & QUIVER_TAGS) ? true : false);
bool allow_inven = false;
bool allow_equip = false;
bool allow_quiver = false;
bool allow_floor = false;
bool toggle = false;
int floor_max = z_info->floor_size;
int floor_num;
floor_list = mem_zalloc(floor_max * sizeof(*floor_list));
olist_mode = 0;
item_mode = mode;
item_cmd = cmd;
tester_m = tester;
prompt = pmt;
allow_all = str ? false : true;
/* Object list display modes */
if (mode & SHOW_FAIL)
olist_mode |= OLIST_FAIL;
else
olist_mode |= OLIST_WEIGHT;
if (mode & SHOW_PRICES)
olist_mode |= OLIST_PRICE;
if (mode & SHOW_EMPTY)
olist_mode |= OLIST_SEMPTY;
if (mode & SHOW_QUIVER)
olist_mode |= OLIST_QUIVER;
if (mode & SHOW_RECHARGE)
olist_mode |= OLIST_RECHARGE;
/* Paranoia XXX XXX XXX */
event_signal(EVENT_MESSAGE_FLUSH);
/* Full inventory */
i1 = 0;
i2 = z_info->pack_size - 1;
/* Forbid inventory */
if (!use_inven) i2 = -1;
/* Restrict inventory indexes */
while ((i1 <= i2) && (!object_test(tester, player->upkeep->inven[i1])))
i1++;
while ((i1 <= i2) && (!object_test(tester, player->upkeep->inven[i2])))
i2--;
/* Accept inventory */
if ((i1 <= i2) || allow_all)
allow_inven = true;
else if (item_mode & USE_INVEN)
item_mode -= USE_INVEN;
/* Full equipment */
e1 = 0;
e2 = player->body.count - 1;
/* Forbid equipment */
if (!use_equip) e2 = -1;
/* Restrict equipment indexes unless starting with no command */
if ((cmd != CMD_NULL) || (tester != NULL)) {
while ((e1 <= e2) && (!object_test(tester, slot_object(player, e1))))
e1++;
while ((e1 <= e2) && (!object_test(tester, slot_object(player, e2))))
e2--;
}
/* Accept equipment */
if ((e1 <= e2) || allow_all)
allow_equip = true;
else if (item_mode & USE_EQUIP)
item_mode -= USE_EQUIP;
/* Restrict quiver indexes */
q1 = 0;
q2 = z_info->quiver_size - 1;
/* Forbid quiver */
if (!use_quiver) q2 = -1;
/* Restrict quiver indexes */
while ((q1 <= q2) && (!object_test(tester, player->upkeep->quiver[q1])))
q1++;
while ((q1 <= q2) && (!object_test(tester, player->upkeep->quiver[q2])))
q2--;
/* Accept quiver */
if ((q1 <= q2) || allow_all)
allow_quiver = true;
else if (item_mode & USE_QUIVER)
item_mode -= USE_QUIVER;
/* Scan all non-gold objects in the grid */
floor_num = scan_floor(floor_list, floor_max,
OFLOOR_TEST | OFLOOR_SENSE | OFLOOR_VISIBLE, tester);
/* Full floor */
f1 = 0;
f2 = floor_num - 1;
/* Forbid floor */
if (!use_floor) f2 = -1;
/* Restrict floor indexes */
while ((f1 <= f2) && (!object_test(tester, floor_list[f1]))) f1++;
while ((f1 <= f2) && (!object_test(tester, floor_list[f2]))) f2--;
/* Accept floor */
if ((f1 <= f2) || allow_all)
allow_floor = true;
else if (item_mode & USE_FLOOR)
item_mode -= USE_FLOOR;
/* Require at least one legal choice */
if (allow_inven || allow_equip || allow_quiver || allow_floor) {
/* Start where requested if possible */
if ((player->upkeep->command_wrk == USE_EQUIP) && allow_equip)
player->upkeep->command_wrk = USE_EQUIP;
else if ((player->upkeep->command_wrk == USE_INVEN) && allow_inven)
player->upkeep->command_wrk = USE_INVEN;
else if ((player->upkeep->command_wrk == USE_QUIVER) && allow_quiver)
player->upkeep->command_wrk = USE_QUIVER;
else if ((player->upkeep->command_wrk == USE_FLOOR) && allow_floor)
player->upkeep->command_wrk = USE_FLOOR;
/* If we are obviously using the quiver then start on quiver */
else if (quiver_tags && allow_quiver)
player->upkeep->command_wrk = USE_QUIVER;
/* Otherwise choose whatever is allowed */
else if (use_inven && allow_inven)
player->upkeep->command_wrk = USE_INVEN;
else if (use_equip && allow_equip)
player->upkeep->command_wrk = USE_EQUIP;
else if (use_quiver && allow_quiver)
player->upkeep->command_wrk = USE_QUIVER;
else if (use_floor && allow_floor)
player->upkeep->command_wrk = USE_FLOOR;
/* If nothing to choose, use (empty) inventory */
else
player->upkeep->command_wrk = USE_INVEN;
while (true) {
int j;
int ni = 0;
int ne = 0;
/* If inven or equip is on the main screen, and only one of them
* is slated for a subwindow, we should show the opposite there */
for (j = 0; j < ANGBAND_TERM_MAX; j++) {
/* Unused */
if (!angband_term[j]) continue;
/* Count windows displaying inven */
if (window_flag[j] & (PW_INVEN)) ni++;
/* Count windows displaying equip */
if (window_flag[j] & (PW_EQUIP)) ne++;
}
/* Are we in the situation where toggling makes sense? */
if ((ni && !ne) || (!ni && ne)) {
if (player->upkeep->command_wrk == USE_EQUIP) {
if ((ne && !toggle) || (ni && toggle)) {
/* Main screen is equipment, so is subwindow */
toggle_inven_equip();
toggle = !toggle;
}
} else if (player->upkeep->command_wrk == USE_INVEN) {
if ((ni && !toggle) || (ne && toggle)) {
/* Main screen is inventory, so is subwindow */
toggle_inven_equip();
toggle = !toggle;
}
} else {
/* Quiver or floor, go back to the original */
if (toggle) {
toggle_inven_equip();
toggle = !toggle;
}
}
}
/* Redraw */
player->upkeep->redraw |= (PR_INVEN | PR_EQUIP);
/* Redraw windows */
redraw_stuff(player);
/* Save screen */
screen_save();
/* Build object list */
wipe_obj_list();
if (player->upkeep->command_wrk == USE_INVEN)
build_obj_list(i2, player->upkeep->inven, tester_m, olist_mode);
else if (player->upkeep->command_wrk == USE_EQUIP)
build_obj_list(e2, NULL, tester_m, olist_mode);
else if (player->upkeep->command_wrk == USE_QUIVER)
build_obj_list(q2, player->upkeep->quiver, tester_m,olist_mode);
else if (player->upkeep->command_wrk == USE_FLOOR)
build_obj_list(f2, floor_list, tester_m, olist_mode);
/* Show the prompt */
menu_header();
if (pmt) {
prt(pmt, 0, 0);
prt(header, 0, strlen(pmt) + 1);
}
/* No menu change request */
newmenu = false;
/* Get an item choice */
*choice = item_menu(cmd, MAX(pmt ? strlen(pmt) : 0, 15), mode);
/* Fix the screen */
screen_load();
/* Update */
player->upkeep->redraw |= (PR_INVEN | PR_EQUIP);
redraw_stuff(player);
/* Clear the prompt line */
prt("", 0, 0);
/* We have a selection, or are backing out */
if (*choice || !newmenu) {
if (toggle) toggle_inven_equip();
break;
}
}
} else {
/* Warning if needed */
if (str) msg("%s", str);
*choice = NULL;
}
/* Clean up */
player->upkeep->command_wrk = 0;
mem_free(floor_list);
/* Result */
return (*choice != NULL) ? true : false;
}
bool wiz_create_item_action(menu_type * m, const ui_event * e, int oid)
{
ui_event ret;
menu_type *menu;
int choice[60];
int n_choices;
int i;
char buf[60];
if (e->type != EVT_SELECT)
return TRUE;
/* Artifacts */
if (choose_artifact) {
struct tval_desc *a_tvals = menu_priv(m);
/* ...We have to search the whole artifact list. */
for (n_choices = 0, i = 1; (n_choices < 60) && (i < z_info->a_max);
i++) {
artifact_type *a_ptr = &a_info[i];
/* Analyze matching items */
if (a_ptr->tval == a_tvals[oid].tval) {
/* Remember the artifact index */
choice[n_choices++] = i;
}
}
}
/* Regular objects */
else {
for (n_choices = 0, i = 1; (n_choices < 60) && (i < z_info->k_max);
i++) {
object_kind *kind = &k_info[i];
if (kind->tval != tvals[oid].tval ||
kf_has(kind->flags_kind, KF_INSTA_ART))
continue;
choice[n_choices++] = i;
}
}
screen_save();
clear_from(0);
menu = menu_new(MN_SKIN_COLUMNS, &wiz_create_item_submenu);
menu->selections = all_letters;
if (m->count == N_ELEMENTS(tvals))
strnfmt(buf, sizeof(buf), "What kind of %s?", tvals[oid].desc);
else
strnfmt(buf, sizeof(buf), "Which artifact %s? ", tvals[oid].desc);
menu->title = buf;
menu_setpriv(menu, n_choices, choice);
menu_layout(menu, &wiz_create_item_area);
ret = menu_select(menu, 0, FALSE);
screen_load();
return (ret.type == EVT_ESCAPE);
}
/**
* Play with an item. Options include:
* - Output statistics (via wiz_roll_item)
* - Reroll item (via wiz_reroll_item)
* - Change properties (via wiz_tweak_item)
* - Change the number of items (via wiz_quantity_item)
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type *i_ptr;
object_type object_type_body;
object_type *o_ptr;
struct keypress ch;
const char *q, *s;
bool changed;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, 0, (USE_EQUIP | USE_INVEN | USE_FLOOR)))
return;
/* Get the item (in the pack) */
if (item >= 0) {
o_ptr = &p_ptr->inventory[item];
}
/* Get the item (on the floor) */
else {
o_ptr = &o_list[0 - item];
}
/* The item was not changed */
changed = FALSE;
/* Save screen */
screen_save();
/* Get local object */
i_ptr = &object_type_body;
/* Copy object */
object_copy(i_ptr, o_ptr);
/* The main loop */
while (TRUE) {
/* Display the item */
wiz_display_item(i_ptr);
/* Get choice */
if (!get_com
("[a]ccept [s]tatistics [r]eroll [t]weak [q]uantity? ", &ch)) {
changed = FALSE;
break;
}
if (ch.code == 'A' || ch.code == 'a') {
changed = TRUE;
break;
}
if (ch.code == 's' || ch.code == 'S') {
wiz_statistics(i_ptr);
}
if (ch.code == 'r' || ch.code == 'R') {
wiz_reroll_item(i_ptr);
}
if (ch.code == 't' || ch.code == 'T') {
wiz_tweak_item(i_ptr);
}
if (ch.code == 'q' || ch.code == 'Q') {
wiz_quantity_item(i_ptr);
}
}
/* Load screen */
screen_load();
/* Accept change */
if (changed) {
/* Message */
msg("Changes accepted.");
/* Change */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER | PN_SORT_QUIVER);
/* Redraw stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
/* Ignore change */
else {
msg("Changes ignored.");
}
}
/*
* Play with an item. Options include:
* - Output statistics (via wiz_roll_item)
* - Reroll item (via wiz_reroll_item)
* - Change properties (via wiz_tweak_item)
* - Change the number of items (via wiz_quantity_item)
*/
static void do_cmd_wiz_play(void)
{
int item;
object_type *i_ptr;
object_type object_type_body;
object_type *o_ptr;
char ch;
cptr q, s;
bool changed = FALSE;
bool all = TRUE;
/* Get an item */
q = "Play with which object? ";
s = "You have nothing to play with.";
if (!get_item(&item, q, s, 0, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
o_ptr = object_from_item_idx(item);
/* Save screen */
screen_save();
/* Get local object */
i_ptr = &object_type_body;
/* Copy object */
object_copy(i_ptr, o_ptr);
/* The main loop */
while (TRUE)
{
/* Display the item */
wiz_display_item(i_ptr, all);
/* Get choice */
if (!get_com("[a]ccept [s]tatistics [r]eroll [t]weak [c]urse [q]uantity [k]nown? ", &ch))
break;
if (ch == 'A' || ch == 'a')
{
changed = TRUE;
break;
}
else if (ch == 'c' || ch == 'C')
wiz_tweak_curse(i_ptr);
else if (ch == 's' || ch == 'S')
wiz_statistics(i_ptr, p_ptr->depth);
else if (ch == 'r' || ch == 'r')
wiz_reroll_item(i_ptr);
else if (ch == 't' || ch == 'T')
wiz_tweak_item(i_ptr);
else if (ch == 'k' || ch == 'K')
all = !all;
else if (ch == 'q' || ch == 'Q')
{
bool carried = (item >= 0) ? TRUE : FALSE;
wiz_quantity_item(i_ptr, carried);
}
}
/* Load screen */
screen_load();
/* Accept change */
if (changed)
{
/* Message */
msg_print("Changes accepted.");
/* Change */
object_copy(o_ptr, i_ptr);
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP );
}
/* Ignore change */
else
{
msg_print("Changes ignored.");
}
}
static int show_command_list(struct cmd_info cmd_list[], int size, int mx,
int my)
{
menu_type *m;
region r;
int selected;
int i;
char cmd_name[80];
char key[3];
int mode = OPT(rogue_like_commands) ? KEYMAP_MODE_ROGUE : KEYMAP_MODE_ORIG;
m = menu_dynamic_new();
if (!m) {
return 0;
}
m->selections = lower_case;
key[2] = '\0';
for (i=0; i < size; ++i) {
if (KTRL(cmd_list[i].key[mode]) == cmd_list[i].key[mode]) {
key[0] = '^';
key[1] = UN_KTRL(cmd_list[i].key[mode]);
} else {
key[0] = cmd_list[i].key[mode];
key[1] = '\0';
}
strnfmt(cmd_name, 80, "%s (%s)", cmd_list[i].desc, key[mode]);
menu_dynamic_add(m, cmd_name, i+1);
}
/* 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;
}
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);
screen_load();
if ((selected > 0) && (selected < size+1)) {
/* execute the command */
Term_keypress(cmd_list[selected-1].key[mode], 0);
}
return 1;
}
/**
* Hack -- change name
*/
void do_cmd_change_name(void)
{
ui_event ke;
int mode = 0;
const char *p;
bool more = true;
/* Prompt */
p = "['c' to change name, 'f' to file, 'h' to change mode, or ESC]";
/* Save screen */
screen_save();
/* Forever */
while (more) {
/* Display the player */
display_player(mode);
/* Prompt */
Term_putstr(2, 23, -1, COLOUR_WHITE, p);
/* Query */
ke = inkey_ex();
if ((ke.type == EVT_KBRD)||(ke.type == EVT_BUTTON)) {
switch (ke.key.code) {
case ESCAPE: more = false; break;
case 'c': {
char namebuf[32] = "";
/* Set player name */
if (get_character_name(namebuf, sizeof namebuf))
my_strcpy(op_ptr->full_name, namebuf,
sizeof(op_ptr->full_name));
break;
}
case 'f': {
char buf[1024];
char fname[80];
strnfmt(fname, sizeof fname, "%s.txt",
player_safe_name(player, false));
if (get_file(fname, buf, sizeof buf))
{
if (dump_save(buf))
msg("Character dump successful.");
else
msg("Character dump failed!");
}
break;
}
case 'h':
case ARROW_LEFT:
case ' ':
mode = (mode + 1) % INFO_SCREENS;
break;
case 'l':
case ARROW_RIGHT:
mode = (mode - 1) % INFO_SCREENS;
break;
}
} else if (ke.type == EVT_MOUSE) {
if (ke.mouse.button == 1) {
/* Flip through the screens */
mode = (mode + 1) % INFO_SCREENS;
} else if (ke.mouse.button == 2) {
/* exit the screen */
more = false;
} else {
/* Flip backwards through the screens */
mode = (mode - 1) % INFO_SCREENS;
}
}
/* Flush messages */
event_signal(EVENT_MESSAGE_FLUSH);
}
/* Load screen */
screen_load();
}
int context_menu_command(int mx, int my)
{
menu_type *m;
region r;
int selected;
m = menu_dynamic_new();
if (!m) {
return 0;
}
m->selections = lower_case;
menu_dynamic_add(m, "Item", 1);
menu_dynamic_add(m, "Action", 2);
menu_dynamic_add(m, "Item Management", 3);
menu_dynamic_add(m, "Info", 4);
menu_dynamic_add(m, "Util", 5);
menu_dynamic_add(m, "Misc", 6);
/* 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;
}
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);
screen_load();
switch (selected) {
case 1:
show_command_list(cmd_item, N_ELEMENTS(cmd_item), mx, my);
break;
case 2:
show_command_list(cmd_action, N_ELEMENTS(cmd_action), mx, my);
break;
case 3:
show_command_list(cmd_item_manage, N_ELEMENTS(cmd_item_manage), mx, my);
break;
case 4:
show_command_list(cmd_info, N_ELEMENTS(cmd_info), mx, my);
break;
case 5:
show_command_list(cmd_util, N_ELEMENTS(cmd_util), mx, my);
break;
case 6:
show_command_list(cmd_hidden, N_ELEMENTS(cmd_hidden), mx, my);
break;
}
return 1;
}
/* Handles all of the display functionality for the history list. */
void history_display(void)
{
int row, wid, hgt, page_size;
char buf[90];
static size_t first_item = 0;
size_t max_item = last_printable_item();
size_t i;
Term_get_size(&wid, &hgt);
/* Six lines provide space for the header and footer */
page_size = hgt - 6;
screen_save();
while (1)
{
struct keypress ch;
Term_clear();
/* Print everything to screen */
print_history_header();
row = 0;
for (i = first_item; row <= page_size && i < history_ctr; i++)
{
char location[30];
/* Skip messages about artifacts not yet IDed. */
if (history_masked(i))
continue;
/* Get location name */
history_get_place(location, sizeof(location), i);
strnfmt(buf, sizeof(buf), "%10d%22s%5d %s",
history_list[i].turn,
location,
history_list[i].clev,
history_list[i].event);
if (history_list[i].type & HISTORY_ARTIFACT_LOST)
my_strcat(buf, " (LOST)", sizeof(buf));
/* Size of header = 5 lines */
prt(buf, row + 5, 0);
row++;
}
prt("[Arrow keys scroll, p for previous page, n for next page, ESC to exit.]", hgt - 1, 0);
ch = inkey();
if (ch.code == 'n')
{
size_t scroll_to = first_item + page_size;
while (history_masked(scroll_to) && scroll_to < history_ctr - 1)
scroll_to++;
first_item = (scroll_to < max_item ? scroll_to : max_item);
}
else if (ch.code == 'p')
{
int scroll_to = first_item - page_size;
while (history_masked(scroll_to) && scroll_to > 0)
scroll_to--;
first_item = (scroll_to >= 0 ? scroll_to : 0);
}
else if (ch.code == ARROW_DOWN)
{
size_t scroll_to = first_item + 1;
while (history_masked(scroll_to) && scroll_to < history_ctr - 1)
scroll_to++;
first_item = (scroll_to < max_item ? scroll_to : max_item);
}
else if (ch.code == ARROW_UP)
{
int scroll_to = first_item - 1;
while (history_masked(scroll_to) && scroll_to > 0)
scroll_to--;
first_item = (scroll_to >= 0 ? scroll_to : 0);
}
else if (ch.code == ESCAPE)
break;
}
screen_load();
return;
}
/*!
* @brief スナイパー技能を選択する
* @param sn 選択した特殊技能ID、キャンセルの場合-1、不正な選択の場合-2を返す
* @param only_browse 一覧を見るだけの場合TRUEを返す
* @return 発動可能な魔法を選択した場合TRUE、キャンセル処理か不正な選択が行われた場合FALSEを返す。
* Allow user to choose a mindcrafter power.\n
*\n
* If a valid spell is chosen, saves it in '*sn' and returns TRUE\n
* If the user hits escape, returns FALSE, and set '*sn' to -1\n
* If there are no legal choices, returns FALSE, and sets '*sn' to -2\n
*\n
* The "prompt" should be "cast", "recite", or "study"\n
* The "known" should be TRUE for cast/pray, FALSE for study\n
*\n
* nb: This function has a (trivial) display bug which will be obvious\n
* when you run it. It's probably easy to fix but I haven't tried,\n
* sorry.\n
*/
static int get_snipe_power(int *sn, bool only_browse)
{
int i;
int num = 0;
int y = 1;
int x = 20;
int plev = p_ptr->lev;
int ask;
char choice;
char out_val[160];
cptr p = _("射撃術", "power");
snipe_power spell;
bool flag, redraw;
#ifdef ALLOW_REPEAT /* TNB */
repeat_push(*sn);
/* Assume cancelled */
*sn = (-1);
/* Repeat previous command */
/* Get the spell, if available */
if (repeat_pull(sn))
{
/* Verify the spell */
if ((snipe_powers[*sn].min_lev <= plev) && (snipe_powers[*sn].mana_cost <= (int)p_ptr->concent))
{
/* Success */
return (TRUE);
}
}
#endif /* ALLOW_REPEAT -- TNB */
/* Nothing chosen yet */
flag = FALSE;
/* No redraw yet */
redraw = FALSE;
for (i = 0; i < MAX_SNIPE_POWERS; i++)
{
if ((snipe_powers[i].min_lev <= plev) &&
((only_browse) || (snipe_powers[i].mana_cost <= (int)p_ptr->concent)))
{
num = i;
}
}
/* Build a prompt (accept all spells) */
if (only_browse)
{
(void)strnfmt(out_val, 78,
_("(%^s %c-%c, '*'で一覧, ESC) どの%sについて知りますか？", "(%^ss %c-%c, *=List, ESC=exit) Use which %s? "),
p, I2A(0), I2A(num), p);
}
else
{
(void)strnfmt(out_val, 78,
_("(%^s %c-%c, '*'で一覧, ESC) どの%sを使いますか？", "(%^ss %c-%c, *=List, ESC=exit) Use which %s? "),
p, I2A(0), I2A(num), p);
}
/* Get a spell from the user */
choice = always_show_list ? ESCAPE : 1;
while (!flag)
{
if(choice == ESCAPE) choice = ' ';
else if( !get_com(out_val, &choice, FALSE) )break;
/* Request redraw */
if ((choice == ' ') || (choice == '*') || (choice == '?'))
{
/* Show the list */
if (!redraw)
{
char psi_desc[80];
/* Show list */
redraw = TRUE;
/* Save the screen */
if (!only_browse) screen_save();
/* Display a list of spells */
prt("", y, x);
#ifdef JP
put_str("名前", y, x + 5);
if (only_browse) put_str("Lv 集中度", y, x + 35);
#else
put_str("Name", y, x + 5);
if (only_browse) put_str("Lv Pow", y, x + 35);
#endif
/* Dump the spells */
for (i = 0; i < MAX_SNIPE_POWERS; i++)
{
Term_erase(x, y + i + 1, 255);
/* Access the spell */
spell = snipe_powers[i];
if (spell.min_lev > plev) continue;
if (!only_browse && (spell.mana_cost > (int)p_ptr->concent)) continue;
/* Dump the spell --(-- */
if (only_browse)
sprintf(psi_desc, " %c) %-30s%2d %4d",
I2A(i), spell.name, spell.min_lev, spell.mana_cost);
else
sprintf(psi_desc, " %c) %-30s", I2A(i), spell.name);
prt(psi_desc, y + i + 1, x);
}
/* Clear the bottom line */
prt("", y + i + 1, x);
}
/* Hide the list */
else
{
/* Hide list */
redraw = FALSE;
/* Restore the screen */
if (!only_browse) screen_load();
}
/* Redo asking */
continue;
}
/* Note verify */
ask = isupper(choice);
/* Lowercase */
if (ask) choice = tolower(choice);
/* Extract request */
i = (islower(choice) ? A2I(choice) : -1);
/* Totally Illegal */
if ((i < 0) || (i > num) ||
(!only_browse &&(snipe_powers[i].mana_cost > (int)p_ptr->concent)))
{
bell();
continue;
}
/* Save the spell index */
spell = snipe_powers[i];
/* Verify it */
if (ask)
{
char tmp_val[160];
/* Prompt */
(void) strnfmt(tmp_val, 78, _("%sを使いますか？", "Use %s? "), snipe_powers[i].name);
/* Belay that order */
if (!get_check(tmp_val)) continue;
}
/* Stop the loop */
flag = TRUE;
}
/* Restore the screen */
if (redraw && !only_browse) screen_load();
/* Show choices */
p_ptr->window |= (PW_SPELL);
/* Window stuff */
window_stuff();
/* Abort if needed */
if (!flag) return (FALSE);
/* Save the choice */
(*sn) = i;
#ifdef ALLOW_REPEAT /* TNB */
repeat_push(*sn);
#endif /* ALLOW_REPEAT -- TNB */
/* Success */
return (TRUE);
}
/*
* show_highclass - selectively list highscores based on class
* -KMW-
*/
void show_highclass(void)
{
register int i = 0, j, m = 0;
int pr, clev/*, al*/;
high_score the_score;
char buf[1024], out_val[256];
screen_save();
/* Build the filename */
path_build(buf, sizeof(buf), ANGBAND_DIR_APEX, "scores.raw");
highscore_fd = fd_open(buf, O_RDONLY);
if (highscore_fd < 0)
{
msg_print("Score file unavailable.");
msg_print(NULL);
return;
}
if (highscore_seek(0)) return;
for (i = 0; i < MAX_HISCORES; i++)
if (highscore_read(&the_score)) break;
m = 0;
j = 0;
clev = 0;
while ((m < 9) && (j < MAX_HISCORES))
{
if (highscore_seek(j)) break;
if (highscore_read(&the_score)) break;
pr = atoi(the_score.p_r);
clev = atoi(the_score.cur_lev);
sprintf(out_val, "%3d) %s the %s (Level %2d)",
(m + 1), the_score.who, get_race_t_aux(pr, 0)->name, clev);
prt(out_val, (m + 7), 0);
m++;
j++;
}
sprintf(out_val, "You) %s the %s (Level %2d)",
player_name, get_race_t_aux(p_ptr->prace, p_ptr->psubrace)->name, p_ptr->lev);
prt(out_val, (m + 8), 0);
(void)fd_close(highscore_fd);
highscore_fd = -1;
prt("Hit any key to continue",0,0);
(void)inkey();
for (j = 5; j < 18; j++) prt("", j, 0);
screen_load();
}
/*
* Interreact with skills
*/
void do_cmd_skill()
{
int sel = 0, start = 0, max;
char c;
int table[MAX_SKILLS][2];
int i;
int wid, hgt;
s16b skill_points_save;
s32b *skill_values_save;
s32b *skill_mods_save;
s16b *skill_rates_save;
s16b *skill_invest;
s32b *skill_bonus;
recalc_skills(TRUE);
/* Save the screen */
screen_save();
/* Allocate arrays to save skill values */
C_MAKE(skill_values_save, MAX_SKILLS, s32b);
C_MAKE(skill_mods_save, MAX_SKILLS, s32b);
C_MAKE(skill_rates_save, MAX_SKILLS, s16b);
C_MAKE(skill_invest, MAX_SKILLS, s16b);
C_MAKE(skill_bonus, MAX_SKILLS, s32b);
/* Save skill points */
skill_points_save = p_ptr->skill_points;
/* Save skill values */
for (i = 0; i < max_s_idx; i++)
{
skill_type *s_ptr = &s_info[i];
skill_values_save[i] = s_ptr->value;
skill_mods_save[i] = s_ptr->mod;
skill_rates_save[i] = s_ptr->rate;
skill_invest[i] = 0;
}
/* Clear the screen */
Term_clear();
/* Initialise the skill list */
init_table(table, &max, FALSE);
while (TRUE)
{
Term_get_size(&wid, &hgt);
/* Display list of skills */
recalc_skills_theory(skill_invest, skill_values_save, skill_mods_save, skill_bonus);
print_skills(table, max, sel, start);
/* Wait for user input */
c = inkey();
/* Leave the skill screen */
if (c == ESCAPE) break;
/* Expand / collapse list of skills */
else if (c == '\r')
{
if (s_info[table[sel][0]].dev) s_info[table[sel][0]].dev = FALSE;
else s_info[table[sel][0]].dev = TRUE;
init_table(table, &max, FALSE);
}
/* Next page */
else if (c == 'n')
{
sel += (hgt - 7);
if (sel >= max) sel = max - 1;
}
/* Previous page */
else if (c == 'p')
{
sel -= (hgt - 7);
if (sel < 0) sel = 0;
}
/* Select / increase a skill */
else
{
int dir;
/* Allow use of numpad / arrow keys / roguelike keys */
dir = get_keymap_dir(c);
/* Move cursor down */
if (dir == 2) sel++;
/* Move cursor up */
if (dir == 8) sel--;
/* Miscellaneous skills cannot be increased/decreased as a group */
if (table[sel][0] == SKILL_MISC) continue;
/* Increase the current skill */
if (dir == 6) increase_skill(table[sel][0], skill_invest);
/* Decrease the current skill */
if (dir == 4) decrease_skill(table[sel][0], skill_invest);
/* XXX XXX XXX Wizard mode commands outside of wizard2.c */
/* Increase the skill */
if (wizard && (c == '+')) skill_bonus[table[sel][0]] += SKILL_STEP;
/* Decrease the skill */
if (wizard && (c == '-')) skill_bonus[table[sel][0]] -= SKILL_STEP;
/* Contextual help */
if (c == '?') exec_lua(format("ingame_help('select_context', 'skill', '%s')", s_info[table[sel][0]].name + s_name));
;
/* Handle boundaries and scrolling */
if (sel < 0) sel = max - 1;
if (sel >= max) sel = 0;
if (sel < start) start = sel;
if (sel >= start + (hgt - 7)) start = sel - (hgt - 7) + 1;
}
}
/* Some skill points are spent */
if (p_ptr->skill_points != skill_points_save)
{
/* Flush input as we ask an important and irreversible question */
flush();
/* Ask we can commit the change */
if (msg_box("Save and use these skill values? (y/n)", (int)(hgt / 2), (int)(wid / 2)) != 'y')
{
/* User declines -- restore the skill values before exiting */
/* Restore skill points */
p_ptr->skill_points = skill_points_save;
/* Restore skill values */
for (i = 0; i < max_s_idx; i++)
{
skill_type *s_ptr = &s_info[i];
s_ptr->value = skill_values_save[i];
s_ptr->mod = skill_mods_save[i];
s_ptr->rate = skill_rates_save[i];
}
}
}
/* Free arrays to save skill values */
C_FREE(skill_values_save, MAX_SKILLS, s32b);
C_FREE(skill_mods_save, MAX_SKILLS, s32b);
C_FREE(skill_rates_save, MAX_SKILLS, s16b);
C_FREE(skill_invest, MAX_SKILLS, s16b);
C_FREE(skill_bonus, MAX_SKILLS, s32b);
/* Load the screen */
screen_load();
recalc_skills(FALSE);
}
static bool choose_kamae(void)
{
char choice;
int new_kamae = 0;
int i;
rect_t display = ui_menu_rect();
char buf[80];
if (display.cx > 40)
display.cx = 40;
if (p_ptr->confused)
{
msg_print("You are too confused.");
return FALSE;
}
screen_save();
Term_erase(display.x, display.y, display.cx);
put_str("Choose Form: ", display.y, display.x + 1);
Term_erase(display.x, display.y + 1, display.cx);
put_str(" a) No form", display.y + 1, display.x + 1);
for (i = 0; i < MAX_KAMAE; i++)
{
if (p_ptr->lev >= kamae_shurui[i].min_level)
{
sprintf(buf," %c) %-12s %s",I2A(i+1), kamae_shurui[i].desc, kamae_shurui[i].info);
Term_erase(display.x, display.y + 2 + i, display.cx);
put_str(buf, display.y + 2 + i, display.x + 1);
}
}
while(1)
{
choice = inkey();
if (choice == ESCAPE)
{
screen_load();
return FALSE;
}
else if ((choice == 'a') || (choice == 'A'))
{
if (p_ptr->action == ACTION_KAMAE)
set_action(ACTION_NONE);
else
msg_print("You are not assuming a posture.");
screen_load();
return TRUE;
}
else if ((choice == 'b') || (choice == 'B'))
{
new_kamae = 0;
break;
}
else if (((choice == 'c') || (choice == 'C')) && (p_ptr->lev > 29))
{
new_kamae = 1;
break;
}
else if (((choice == 'd') || (choice == 'D')) && (p_ptr->lev > 34))
{
new_kamae = 2;
break;
}
else if (((choice == 'e') || (choice == 'E')) && (p_ptr->lev > 39))
{
new_kamae = 3;
break;
}
}
set_action(ACTION_KAMAE);
if (p_ptr->special_defense & (KAMAE_GENBU << new_kamae))
msg_print("You reassume a posture.");
else
{
p_ptr->special_defense &= ~(KAMAE_MASK);
p_ptr->update |= (PU_BONUS);
p_ptr->redraw |= (PR_STATE);
msg_format("You assume a posture of %s form.",kamae_shurui[new_kamae].desc);
p_ptr->special_defense |= (KAMAE_GENBU << new_kamae);
}
p_ptr->redraw |= PR_STATE;
screen_load();
return TRUE;
}
/**
* Bring up player actions
*/
void show_player(void)
{
int i, j, fy, fx;
int adj_grid[9];
bool exist_rock = FALSE;
bool exist_door = FALSE;
bool exist_open_door = FALSE;
bool exist_trap = FALSE;
bool exist_mtrap = FALSE;
bool exist_floor = FALSE;
bool exist_monster = FALSE;
feature_type *f_ptr;
/* No commands yet */
poss = 0;
/* Get surroundings */
get_feats(adj_grid);
/* Analyze surroundings */
for (i = 0; i < 8; i++)
{
int yy = p_ptr->py + ddy_ddd[i];
int xx = p_ptr->px + ddx_ddd[i];
f_ptr = &f_info[adj_grid[i]];
if (cave_visible_trap(yy, xx))
exist_trap = TRUE;
if (tf_has(f_ptr->flags, TF_DOOR_CLOSED))
exist_door = TRUE;
if (tf_has(f_ptr->flags, TF_ROCK))
exist_rock = TRUE;
if (cave_monster_trap(yy, xx))
exist_mtrap = TRUE;
if (adj_grid[i] == FEAT_OPEN)
exist_open_door = TRUE;
if (tf_has(f_ptr->flags, TF_MTRAP))
exist_floor = TRUE;
if (cave_m_idx[yy][xx] > 0)
exist_monster = TRUE;
}
f_ptr = &f_info[adj_grid[8]];
/* In a web? */
if (cave_web(p_ptr->py, p_ptr->px))
exist_trap = TRUE;
/* Alter a grid */
if (exist_trap || exist_door || exist_rock || exist_mtrap
|| exist_open_door || count_chests(&fy, &fx, TRUE)
|| count_chests(&fy, &fx, FALSE) || (player_has(PF_TRAP)
&& exist_floor)
|| (player_has(PF_STEAL) && exist_monster && (!SCHANGE))) {
comm[poss] = '+';
comm_code[poss] = CMD_ALTER;
comm_descr[poss++] = "Alter";
}
/* Dig a tunnel */
if (exist_door || exist_rock) {
comm[poss] = 'T';
comm_code[poss] = CMD_TUNNEL;
comm_descr[poss++] = "Tunnel";
}
/* Begin Running -- Arg is Max Distance */
{
comm[poss] = '.';
comm_code[poss] = CMD_RUN;
comm_descr[poss++] = "Run";
}
/* Hold still for a turn. Pickup objects if auto-pickup is true. */
{
comm[poss] = ',';
comm_code[poss] = CMD_HOLD;
comm_descr[poss++] = "Stand still";
}
/* Pick up objects. */
if (cave_o_idx[p_ptr->py][p_ptr->px]) {
comm[poss] = 'g';
comm_code[poss] = CMD_PICKUP;
comm_descr[poss++] = "Pick up";
}
/* Rest -- Arg is time */
{
comm[poss] = 'R';
comm_code[poss] = CMD_REST;
comm_descr[poss++] = "Rest";
}
/* Search for traps/doors */
{
comm[poss] = 's';
comm_code[poss] = CMD_SEARCH;
comm_descr[poss++] = "Search";
}
/* Look around */
{
comm[poss] = 'l';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Look";
}
/* Scroll the map */
{
comm[poss] = 'L';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Scroll map";
}
/* Show the map */
{
comm[poss] = 'M';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Level map";
}
/* Knowledge */
{
comm[poss] = '~';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Knowledge";
}
/* Options */
{
comm[poss] = '=';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Options";
}
/* Toggle search mode */
{
comm[poss] = 'S';
comm_code[poss] = CMD_TOGGLE_SEARCH;
comm_descr[poss++] = "Toggle searching";
}
/* Go up staircase */
if ((adj_grid[8] == FEAT_LESS)
|| (tf_has(f_ptr->flags, TF_PATH) &&
tf_has(f_ptr->flags, TF_UPSTAIR)))
{
comm[poss] = '<';
comm_code[poss] = CMD_GO_UP;
comm_descr[poss++] = "Take stair/path";
}
/* Go down staircase */
if ((adj_grid[8] == FEAT_MORE)
|| (tf_has(f_ptr->flags, TF_PATH) &&
tf_has(f_ptr->flags, TF_DOWNSTAIR)))
{
comm[poss] = '>';
comm_code[poss] = CMD_GO_DOWN;
comm_descr[poss++] = "Take stair/path";
}
/* Open a door or chest */
if (exist_door || count_chests(&fy, &fx, TRUE)
|| count_chests(&fy, &fx, FALSE)) {
comm[poss] = 'o';
comm_code[poss] = CMD_OPEN;
comm_descr[poss++] = "Open";
}
/* Close a door */
if (exist_open_door) {
comm[poss] = 'c';
comm_code[poss] = CMD_CLOSE;
comm_descr[poss++] = "Close";
}
/* Jam a door with spikes */
if (exist_door) {
comm[poss] = 'j';
comm_code[poss] = CMD_JAM;
comm_descr[poss++] = "Jam";
}
/* Bash a door */
if (exist_door) {
comm[poss] = 'B';
comm_code[poss] = CMD_BASH;
comm_descr[poss++] = "Bash";
}
/* Disarm a trap or chest */
if (count_chests(&fy, &fx, TRUE) || exist_trap || exist_mtrap) {
comm[poss] = 'D';
comm_code[poss] = CMD_DISARM;
comm_descr[poss++] = "Disarm";
}
/* Shapechange */
if ((SCHANGE) || (player_has(PF_BEARSKIN))) {
comm[poss] = ']';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Shapechange";
}
/* Save screen */
screen_save();
/* Prompt */
put_str("Choose a command, or ESC:", 0, 0);
/* Hack - delete exact graphics rows */
if (tile_height > 1) {
j = poss + 1;
while ((j % tile_height) && (j <= SCREEN_ROWS))
prt("", ++j, 0);
}
/* Get a choice */
(void) show_cmd_menu(FALSE);
/* Load screen */
screen_load();
}
void
handle_loopback (struct deviceinfo *unit, struct digi_node *node, struct digi_chan *chan, int port)
{
char full_line[81];
int i = 0, option = EOF;
struct termios sv_tios;
char test_data[TBUFSIZ + 1];
char read_data[TBUFSIZ + 1];
char string[200], ttyname[200];
int r = 3;
int rwfd;
WINDOW *lbwin = GetWin(LBWin);
#define TITLE_LINE 1
#define DESC_LINE 2
#define DESC2_LINE 3
#define SEP_LINE 4
#define FIRST_DATA 5
#define SEP2_LINE 15
#define RESULT_LINE 16
show_panel (GetPan(LBWin));
update_panels ();
doupdate ();
next_result = 0;
test_cases = 0;
test_passes = 0;
if (DPAGetPortName(unit, node, chan, port, ttyname) == NULL) {
ttyname[0] ='\0';
}
while (option == EOF)
{
erase_win (LBWin);
wattrset (lbwin, make_attr (A_BOLD, WHITE, BLUE));
mvwprintw (lbwin, TITLE_LINE, 1, "%-*.*s", 76, 76, " ");
mvwprintw (lbwin, RESULT_LINE, 1, "%-*.*s", 76, 76, " ");
mvwprintw (lbwin, TITLE_LINE, 32, " Loop Back Test ");
sprintf (full_line, "Tests Executed: %-12d Passed: %-12d Failed: %d",
test_cases, test_passes, test_cases - test_passes);
mvwprintw (lbwin, RESULT_LINE,
center(LBWin, strlen(full_line)), full_line);
sprintf (clbuf, "Unit IP Address: %s Port #: %d Name: %s",
unit->host, port + 1, ttyname);
i = strlen (clbuf);
mvwprintw (GetWin(LBWin), DESC_LINE, 1, "%*s",
GetWidth(LBWin) - 2, " ");
mvwprintw (GetWin(LBWin), DESC2_LINE, 1, "%*s",
GetWidth(LBWin) - 2, " ");
mvwprintw (lbwin, DESC2_LINE, 2, clbuf);
mvwprintw (lbwin, DESC_LINE, 2, "Device Description: %-*.*s",
GetWidth(LBWin) - 2 - 2 - 2 - 20,
GetWidth(LBWin) - 2 - 2 - 2 - 20,
node->nd_ps_desc);
if (!vanilla)
wattrset (lbwin, make_attr (A_ALTCHARSET, CYAN, BLACK));
else
wattrset (lbwin, make_attr (A_NORMAL, CYAN, BLACK));
wmove (lbwin, SEP_LINE, 1);
for (i = 0; i < 77; i++)
waddch (lbwin, mapchar(ACS_HLINE));
mvwaddch (lbwin, SEP_LINE, 0, mapchar(ACS_LTEE));
mvwaddch (lbwin, SEP_LINE, 77, mapchar(ACS_RTEE));
wmove (lbwin, SEP2_LINE, 1);
for (i = 0; i < 77; i++)
waddch (lbwin, mapchar(ACS_HLINE));
mvwaddch (lbwin, SEP2_LINE, 0, mapchar(ACS_LTEE));
mvwaddch (lbwin, SEP2_LINE, 77, mapchar(ACS_RTEE));
wattrset (lbwin, make_attr (A_NORMAL, WHITE, BLACK));
wrefresh (lbwin);
wattrset (GetWin(MainWin), make_attr (A_NORMAL, WHITE, BLUE));
commandline (clbuf, "Press ANY key to Halt the test", NULL);
mvwprintw (GetWin(MainWin), KEY_LINE, 0, clbuf);
wattroff (GetWin(MainWin), make_attr (A_NORMAL, WHITE, BLUE));
wrefresh (GetWin(MainWin));
change_term (0, 10);
option = EOF;
r = 5;
if (chan->ch_open) {
mvwprintw (lbwin, r++, 2, "***** Port is Busy.");
wrefresh(lbwin);
test_cases++;
sleep(1);
goto user_input;
}
for (i = 0; i < 256; i++) {
test_data[i] = (char) i;
}
test_data[TBUFSIZ]='\0';
/* Get port name. Can't run the test without it. */
if (DPAGetPortName(unit, node, chan, port, ttyname) == NULL) {
mvwprintw (lbwin, r++, 2,
"***** Loop Back Test Failure. Port has no known tty name");
test_cases++;
wrefresh (lbwin);
sleep(1);
goto user_input;
}
sprintf(string, "/dev/%s", ttyname);
if( (rwfd = tty_open(string, &sv_tios )) < 0 ) {
test_cases++;
goto user_input;
}
tcflush(rwfd, TCIOFLUSH);
if ((i = test_send (test_data, TBUFSIZ, rwfd)) != 0)
{
mvwprintw (lbwin, r++, 2,
"***** Loop Back Test Failure=%d, Sending %d Bytes", i, TBUFSIZ);
wrefresh (lbwin);
tty_close (rwfd, &sv_tios);
test_cases++;
goto user_input;
}
mvwprintw (lbwin, r++, 2, "Loop Back: %d Bytes Sent.", TBUFSIZ);
wrefresh (lbwin);
mvwprintw (lbwin, r++, 2, "Loop Back: Receiving %d Bytes.", TBUFSIZ);
wrefresh (lbwin);
if ((i = test_recv (read_data, TBUFSIZ, 5, rwfd)) != TBUFSIZ)
{
mvwprintw (lbwin, r++, 2,
"***** Loop Back Failure=%d Receiving %d bytes.", i, TBUFSIZ);
wrefresh (lbwin);
tty_close (rwfd, &sv_tios);
test_cases++;
goto user_input;
}
/* Reset termios as before and close channel */
tty_close (rwfd, &sv_tios);
mvwprintw (lbwin, r++, 2, "Loop Back: Verifying %d bytes.", TBUFSIZ);
wrefresh (lbwin);
if (memcmp (test_data, read_data, TBUFSIZ))
{
mvwprintw (lbwin, r++, 2,
"***** Loop Back Failure Verifying %d Bytes.", TBUFSIZ);
mvwprintw (lbwin, r++, 2, "***** Data Incorrectly Transferred.");
wrefresh (lbwin);
test_cases++;
goto user_input;
}
else
{
mvwprintw (lbwin, r++, 2, "Loop Back: Test Passed.");
wrefresh (lbwin);
test_cases++;
test_passes++;
}
user_input:
option = getch();
/*
* If the user hasn't selected anything, loop.
* Otherwise, break.
*/
switch (option)
{
case EOF:
break;
case ' ':
refresh_screen ();
option = EOF;
break;
#ifdef KEY_PRINT
case KEY_PRINT:
#endif
case '':
screen_save (LBWin, logfile);
touchwin (lbwin);
wrefresh (lbwin);
update_panels ();
doupdate ();
option = EOF;
break;
default:
break;
} /* End Case */
} /* End While */
hide_panel (GetPan(LBWin));
update_panels ();
doupdate ();
return;
}
/**
* Bring up objects to act on
*/
void do_cmd_show_obj(void)
{
const char *q, *s;
int j;
object_type *o_ptr;
char o_name[120];
byte out_color;
bool accepted = FALSE;
/* No restrictions */
item_tester_tval = 0;
item_tester_hook = NULL;
/* See what's available */
q = "Pick an item to use:";
s = "You have no items to hand.";
if (!get_item(&item, q, s, CMD_NULL, (USE_INVEN | USE_EQUIP | USE_FLOOR)))
return;
/* Got it */
if (item >= 0) {
o_ptr = &p_ptr->inventory[item];
}
/* Get the item (on the floor) */
else {
o_ptr = &o_list[0 - item];
}
/* Is it really an item? */
if (!o_ptr->k_idx)
return;
/* No commands yet */
poss = 0;
/* Describe the object */
object_desc(o_name, sizeof(o_name), o_ptr, ODESC_FULL);
/* Hack -- enforce max length */
o_name[Term->wid - 3] = '\0';
/* Acquire inventory color. Apply spellbook hack. */
out_color = proc_list_color_hack(o_ptr);
/* Wear/wield */
if ((wield_slot(o_ptr) >= INVEN_WIELD) && (!SCHANGE)
&& (item < INVEN_WIELD)) {
comm[poss] = 'w';
comm_code[poss] = CMD_WIELD;
comm_descr[poss++] = "Wield";
}
/* Take off equipment */
if ((item >= INVEN_WIELD) && (item < INVEN_TOTAL) && (!SCHANGE)) {
comm[poss] = 't';
comm_code[poss] = CMD_TAKEOFF;
comm_descr[poss++] = "Take off";
}
/* Drop an item */
if ((item >= 0) && ((item < INVEN_WIELD) || (!SCHANGE))) {
comm[poss] = 'd';
comm_code[poss] = CMD_DROP;
comm_descr[poss++] = "Drop";
}
/* Destroy an item */
if (item < INVEN_WIELD) {
comm[poss] = 'k';
comm_code[poss] = CMD_DESTROY;
comm_descr[poss++] = "Destroy";
}
/* Identify an object */
comm[poss] = 'I';
comm_code[poss] = CMD_NULL;
comm_descr[poss++] = "Inspect";
/* Pick up an object */
if ((item < 0) && inven_carry_okay(o_ptr)) {
comm[poss] = 'g';
comm_code[poss] = CMD_PICKUP;
comm_descr[poss++] = "Pick up";
}
/* Book learnin' */
if (mp_ptr->spell_book == o_ptr->tval) {
if (p_ptr->new_spells) {
comm[poss] = 'G';
comm_code[poss] = CMD_STUDY_SPELL;
comm_descr[poss++] = "Gain a spell";
}
comm[poss] = 'b';
comm_code[poss] = CMD_BROWSE_SPELL;
comm_descr[poss++] = "Browse";
comm[poss] = 'm';
comm_code[poss] = CMD_CAST;
comm_descr[poss++] = "Cast a spell";
}
/* Inscribe an object */
comm[poss] = '{';
comm_code[poss] = CMD_INSCRIBE;
comm_descr[poss++] = "Inscribe";
/* Uninscribe an object */
if (o_ptr->note) {
comm[poss] = '}';
comm_code[poss] = CMD_UNINSCRIBE;
comm_descr[poss++] = "Uninscribe";
}
/* Activate equipment */
if ((o_ptr->effect) && (item >= INVEN_WIELD)) {
comm[poss] = 'A';
comm_code[poss] = CMD_ACTIVATE;
comm_descr[poss++] = "Activate";
}
/* Eat some food */
if (o_ptr->tval == TV_FOOD) {
comm[poss] = 'E';
comm_code[poss] = CMD_EAT;
comm_descr[poss++] = "Eat";
}
if ((item < INVEN_WIELD)
&& ((o_ptr->tval == TV_LIGHT) || (o_ptr->tval == TV_FLASK))) {
object_type *o1_ptr = &p_ptr->inventory[INVEN_LIGHT];
if (((o1_ptr->sval == SV_LIGHT_LANTERN)
&& ((o_ptr->tval == TV_FLASK)
|| ((o_ptr->tval == TV_LIGHT)
&& (o_ptr->sval == SV_LIGHT_LANTERN))))
|| ((o1_ptr->sval == SV_LIGHT_TORCH) && (o_ptr->tval == TV_LIGHT)
&& (o_ptr->sval == SV_LIGHT_TORCH)))
{
comm[poss] = 'F';
comm_code[poss] = CMD_REFILL;
comm_descr[poss++] = "Refuel";
}
}
/* Fire an item */
if (p_ptr->state.ammo_tval == o_ptr->tval) {
comm[poss] = 'f';
comm_code[poss] = CMD_FIRE;
comm_descr[poss++] = "Fire";
}
/* Throw an item */
if ((item < INVEN_WIELD) || (!SCHANGE)) {
comm[poss] = 'v';
comm_code[poss] = CMD_THROW;
comm_descr[poss++] = "Throw";
}
/* Aim a wand */
if (o_ptr->tval == TV_WAND) {
comm[poss] = 'a';
comm_code[poss] = CMD_USE_WAND;
comm_descr[poss++] = "Aim";
}
/* Zap a rod */
if (o_ptr->tval == TV_ROD) {
comm[poss] = 'z';
comm_code[poss] = CMD_USE_ROD;
comm_descr[poss++] = "Zap";
}
/* Quaff a potion */
if (o_ptr->tval == TV_POTION) {
comm[poss] = 'q';
comm_code[poss] = CMD_QUAFF;
comm_descr[poss++] = "Quaff";
}
/* Read a scroll */
if (o_ptr->tval == TV_SCROLL) {
comm[poss] = 'r';
comm_code[poss] = CMD_READ_SCROLL;
comm_descr[poss++] = "Read";
}
/* Use a staff */
if (o_ptr->tval == TV_STAFF) {
comm[poss] = 'u';
comm_code[poss] = CMD_USE_STAFF;
comm_descr[poss++] = "Use";
}
/* Set up the screen */
screen_save();
/* Prompt */
put_str("Choose a command, or ESC:", 0, 0);
/* Clear the line */
prt("", 1, 0);
/* Display the item */
c_put_str(out_color, o_name, 1, 0);
/* Hack - delete exact graphics rows */
if (tile_height > 1) {
j = poss + 2;
while ((j % tile_height) && (j <= SCREEN_ROWS))
prt("", ++j, 0);
}
/* Get a choice */
accepted = show_cmd_menu(TRUE);
/* Load de screen */
screen_load();
/* Now set the item if valid */
if (accepted)
cmd_set_arg_item(cmd_get_top(), 0, item);
}
/**
* Menu command: view character dump and inventory.
*/
static void death_info(const char *title, int row)
{
struct store *home = &stores[STORE_HOME];
screen_save();
/* Display player */
display_player(0);
/* Prompt for inventory */
prt("Hit any key to see more information: ", 0, 0);
/* Allow abort at this point */
(void)anykey();
/* Show equipment and inventory */
/* Equipment -- if any */
if (player->upkeep->equip_cnt) {
Term_clear();
show_equip(OLIST_WEIGHT | OLIST_SEMPTY | OLIST_DEATH, NULL);
prt("You are using: -more-", 0, 0);
(void)anykey();
}
/* Inventory -- if any */
if (player->upkeep->inven_cnt) {
Term_clear();
show_inven(OLIST_WEIGHT | OLIST_DEATH, NULL);
prt("You are carrying: -more-", 0, 0);
(void)anykey();
}
/* Quiver -- if any */
if (player->upkeep->quiver_cnt) {
Term_clear();
show_quiver(OLIST_WEIGHT | OLIST_DEATH, NULL);
prt("Your quiver holds: -more-", 0, 0);
(void)anykey();
}
/* Home -- if anything there */
if (home->stock) {
int page;
struct object *obj = home->stock;
/* Display contents of the home */
for (page = 1; obj; page++) {
int line;
/* Clear screen */
Term_clear();
/* Show 12 items */
for (line = 0; obj && line < 12; obj = obj->next, line++) {
byte attr;
char o_name[80];
char tmp_val[80];
/* Print header, clear line */
strnfmt(tmp_val, sizeof(tmp_val), "%c) ", I2A(line));
prt(tmp_val, line + 2, 4);
/* Get the object description */
object_desc(o_name, sizeof(o_name), obj,
ODESC_PREFIX | ODESC_FULL);
/* Get the inventory color */
attr = obj->kind->base->attr;
/* Display the object */
c_put_str(attr, o_name, line + 2, 7);
}
/* Caption */
prt(format("Your home contains (page %d): -more-", page), 0, 0);
/* Wait for it */
(void)anykey();
}
}
screen_load();
}
/*
* Ask for and parse a "debug command"
*
* The "p_ptr->command_arg" may have been set.
*/
void do_cmd_debug(void)
{
int py = p_ptr->py;
int px = p_ptr->px;
char cmd;
/* Get a "debug command" */
if (!get_com("Debug Command: ", &cmd)) return;
/* Analyze the command */
switch (cmd)
{
/* Ignore */
case ESCAPE:
case ' ':
case '\n':
case '\r':
{
break;
}
#ifdef ALLOW_SPOILERS
/* Hack -- Generate Spoilers */
case '"':
{
do_cmd_spoilers();
break;
}
#endif
/* Hack -- Help */
case '?':
{
do_cmd_wiz_help();
break;
}
/* Cure all maladies */
case 'a':
{
do_cmd_wiz_cure_all();
break;
}
/* Teleport to target */
case 'b':
{
do_cmd_wiz_bamf();
break;
}
/* Create any object */
case 'c':
{
wiz_create_item();
break;
}
/* Create an artifact */
case 'C':
{
if (p_ptr->command_arg > 0)
{
wiz_create_artifact(p_ptr->command_arg);
}
else
{
char name[80] = "";
int a_idx = -1;
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Create which artifact? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if an a_idx was entered */
a_idx = get_idx_from_name(name);
/* If not, find the artifact with that name */
if (a_idx < 1)
a_idx = lookup_artifact_name(name);
/* Did we find a valid artifact? */
if (a_idx != -1)
wiz_create_artifact(a_idx);
}
/* Reload the screen */
screen_load();
}
break;
}
/* Detect everything */
case 'd':
{
detect_all(TRUE);
break;
}
/* Edit character */
case 'e':
{
do_cmd_wiz_change();
break;
}
case 'f':
{
stats_collect();
break;
}
/* Good Objects */
case 'g':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->depth, p_ptr->command_arg, FALSE);
break;
}
/* Hitpoint rerating */
case 'h':
{
do_cmd_rerate();
break;
}
/* Identify */
case 'i':
{
(void)ident_spell();
break;
}
/* Go up or down in the dungeon */
case 'j':
{
do_cmd_wiz_jump();
break;
}
/* Learn about objects */
case 'l':
{
do_cmd_wiz_learn();
break;
}
/* Magic Mapping */
case 'm':
{
map_area();
break;
}
/* Summon Named Monster */
case 'n':
{
if (p_ptr->command_arg > 0)
{
do_cmd_wiz_named(p_ptr->command_arg, TRUE);
}
else
{
char name[80] = "";
s16b r_idx;
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Summon which monster? ", 0, 0);
/* Get the name */
if (askfor_aux(name, sizeof(name), NULL))
{
/* See if a r_idx was entered */
r_idx = get_idx_from_name(name);
/* If not, find the monster with that name */
if (r_idx < 1)
r_idx = lookup_monster(name);
/* Did we find a valid monster? */
if (r_idx != -1)
do_cmd_wiz_named(r_idx, TRUE);
}
p_ptr->redraw |= (PR_MAP | PR_MONLIST);
/* Reload the screen */
screen_load();
}
break;
}
/* Object playing routines */
case 'o':
{
do_cmd_wiz_play();
break;
}
/* Phase Door */
case 'p':
{
teleport_player(10);
break;
}
/* Query the dungeon */
case 'q':
{
do_cmd_wiz_query();
break;
}
/* Summon Random Monster(s) */
case 's':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
do_cmd_wiz_summon(p_ptr->command_arg);
break;
}
/* Teleport */
case 't':
{
teleport_player(100);
break;
}
/* Create a trap */
case 'T':
{
cave_set_feat(p_ptr->py, p_ptr->px, FEAT_INVIS);
break;
}
/* Un-hide all monsters */
case 'u':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 255;
do_cmd_wiz_unhide(p_ptr->command_arg);
break;
}
/* Very Good Objects */
case 'v':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = 1;
acquirement(py, px, p_ptr->depth, p_ptr->command_arg, TRUE);
break;
}
case 'V':
{
wiz_test_kind(p_ptr->command_arg);
break;
}
/* Wizard Light the Level */
case 'w':
{
wiz_light();
break;
}
/* Increase Experience */
case 'x':
{
if (p_ptr->command_arg)
{
gain_exp(p_ptr->command_arg);
}
else
{
gain_exp(p_ptr->exp + 1);
}
break;
}
/* Zap Monsters (Banishment) */
case 'z':
{
if (p_ptr->command_arg <= 0) p_ptr->command_arg = MAX_SIGHT;
do_cmd_wiz_zap(p_ptr->command_arg);
break;
}
/* Hack */
case '_':
{
do_cmd_wiz_hack_ben();
break;
}
/* Oops */
default:
{
msg_print("That is not a valid debug command.");
break;
}
}
}
/**
* Menu command: see top twenty scores.
*/
static void death_scores(const char *title, int row)
{
screen_save();
show_scores();
screen_load();
}
/*
* Allow user to choose a power (racial / mutation) to activate
*/
void do_cmd_racial_power(void)
{
power_desc_type power_desc[36];
int num, ask, i = 0;
bool flag, redraw;
char choice;
char out_val[160];
const mutation_type *mut_ptr;
/* Wipe desc */
for (num = 0; num < 36; num++)
{
strcpy(power_desc[num].name, "");
power_desc[num].number = 0;
}
/* Reset num */
num = 0;
/* Not when we're confused */
if (p_ptr->confused)
{
msg_print("You are too confused to use any powers!");
p_ptr->energy_use = 0;
return;
}
/* Look for racial powers */
for (i = 0; i < MAX_RACE_POWERS; i++)
{
mut_ptr = &race_powers[i];
if (mut_ptr->which == p_ptr->prace)
{
strcpy(power_desc[num].name, mut_ptr->name);
power_desc[num].level = mut_ptr->level;
power_desc[num].cost = mut_ptr->cost;
power_desc[num].fail = 100 -
racial_chance(mut_ptr->level, mut_ptr->stat, mut_ptr->diff);
power_desc[num].number = -1;
power_desc[num++].power = mut_ptr;
}
}
/* Not if we don't have any */
if (num == 0 && !p_ptr->muta1)
{
msg_print("You have no powers to activate.");
p_ptr->energy_use = 0;
return;
}
/* Look for appropriate mutations */
if (p_ptr->muta1)
{
for (i = 0; i < MUT_PER_SET; i++)
{
mut_ptr = &mutations[i];
if (p_ptr->muta1 & mut_ptr->which)
{
strcpy(power_desc[num].name, mut_ptr->name);
power_desc[num].level = mut_ptr->level;
power_desc[num].cost = mut_ptr->cost;
power_desc[num].fail = 100 -
racial_chance(mut_ptr->level, mut_ptr->stat, mut_ptr->diff);
power_desc[num].number = mut_ptr->which;
power_desc[num++].power = mut_ptr;
}
}
}
/* Nothing chosen yet */
flag = FALSE;
/* No redraw yet */
redraw = FALSE;
/* Build a prompt */
(void)strnfmt(out_val, 78, "(Powers %c-%c, *=List, ESC=exit) Use which power? ",
I2A(0), (num <= 26) ? I2A(num - 1) : '0' + num - 27);
if (!repeat_pull(&i) || i<0 || i>=num)
{
/* Get a spell from the user */
while (!flag && get_com(out_val, &choice))
{
/* Request redraw */
if ((choice == ' ') || (choice == '*') || (choice == '?'))
{
/* Show the list */
if (!redraw)
{
byte y = 1, x = 0;
int ctr = 0;
char dummy[80];
char letter;
int x1, y1;
strcpy(dummy, "");
/* Show list */
redraw = TRUE;
/* Save the screen */
screen_save();
/* Print header(s) */
if (num < 17)
prt(" Lv Cost Fail", y++, x);
else
prt(" Lv Cost Fail Lv Cost Fail", y++, x);
/* Print list */
while (ctr < num)
{
/* letter/number for power selection */
if (ctr < 26)
letter = I2A(ctr);
else
letter = '0' + ctr - 26;
x1 = ((ctr < 17) ? x : x + 40);
y1 = ((ctr < 17) ? y + ctr : y + ctr - 17);
sprintf(dummy, " %c) %-23.23s %2d %4d %3d%%",
letter,
power_desc[ctr].name,
power_desc[ctr].level,
power_desc[ctr].cost,
power_desc[ctr].fail);
prt(dummy, y1, x1);
ctr++;
}
}
/* Hide the list */
else
{
/* Hide list */
redraw = FALSE;
/* Restore the screen */
screen_load();
}
/* Redo asking */
continue;
}
if (choice == '\r' && num == 1)
{
choice = 'a';
}
if (isalpha(choice))
{
/* Note verify */
ask = (isupper(choice));
/* Lowercase */
if (ask) choice = tolower(choice);
/* Extract request */
i = (islower(choice) ? A2I(choice) : -1);
}
else
{
ask = FALSE; /* Can't uppercase digits */
i = choice - '0' + 26;
}
/* Totally Illegal */
if ((i < 0) || (i >= num))
{
bell();
continue;
}
/* Verify it */
if (ask)
{
char tmp_val[160];
/* Prompt */
(void)strnfmt(tmp_val, 78, "Use %s? ", power_desc[i].name);
/* Belay that order */
if (!get_check(tmp_val)) continue;
}
/* Stop the loop */
flag = TRUE;
}
/* Restore the screen */
if (redraw) screen_load();
/* Abort if needed */
if (!flag)
{
p_ptr->energy_use = 0;
return;
}
repeat_push(i);
}
if (power_desc[i].number == -1)
{
cmd_racial_power_aux(power_desc[i].power);
}
else
{
mutation_power_aux(power_desc[i].power);
}
/* Success */
return;
}