/*
* Get a string from the user
*
* The "prompt" should take the form "Prompt: "
*
* Note that the initial contents of the string is used as
* the default response, so be sure to "clear" it if needed.
*
* We clear the input, and return FALSE, on "ESCAPE".
*/
bool get_string(char *buf, int len, cptr str, ...)
{
bool res;
va_list vp;
char prompt[1024];
/* Begin the Varargs Stuff */
va_start(vp, str);
/* Format the args, save the length */
(void)vstrnfmt(prompt, 1024, str, &vp);
/* End the Varargs Stuff */
va_end(vp);
/* Paranoia XXX XXX XXX */
message_flush();
/* Display prompt */
prtf(0, 0, prompt);
/* Ask the user for a string */
res = askfor_aux(buf, len);
/* Clear prompt */
clear_msg();
/* Result */
return (res);
}
/**
* Ask for a "user pref file" and process it.
*
* This function should only be used by standard interaction commands,
* in which a standard "Command:" prompt is present on the given row.
*
* Allow absolute file names? XXX XXX XXX
*/
static void do_cmd_pref_file_hack(long row)
{
char ftmp[80];
screen_save();
/* Prompt */
prt("Command: Load a user pref file", row, 0);
/* Prompt */
prt("File: ", row + 2, 0);
/* Get the filesystem-safe name and append .prf */
player_safe_name(ftmp, sizeof(ftmp), player->full_name, true);
my_strcat(ftmp, ".prf", sizeof(ftmp));
/* Ask for a file (or cancel) */
if (askfor_aux(ftmp, sizeof ftmp, NULL)) {
/* Process the given filename */
if (process_pref_file(ftmp, false, true) == false) {
/* Mention failure */
prt("", 0, 0);
msg("Failed to load '%s'!", ftmp);
} else {
/* Mention success */
prt("", 0, 0);
msg("Loaded '%s'.", ftmp);
}
}
screen_load();
}
/**
* Set hitpoint warning level
*/
static void do_cmd_hp_warn(const char *name, int row)
{
bool res;
char tmp[4] = "";
byte warn;
strnfmt(tmp, sizeof(tmp), "%i", op_ptr->hitpoint_warn);
screen_save();
/* Prompt */
prt("Command: Hitpoint Warning", 20, 0);
prt(format("Current hitpoint warning: %d (%d%%)",
op_ptr->hitpoint_warn, op_ptr->hitpoint_warn * 10), 22, 0);
prt("New hitpoint warning (0-9): ", 21, 0);
/* Ask the user for a string */
res = askfor_aux(tmp, sizeof(tmp), askfor_aux_numbers);
/* Process input */
if (res) {
warn = (byte) strtoul(tmp, NULL, 0);
/* Reset nonsensical warnings */
if (warn > 9)
warn = 0;
op_ptr->hitpoint_warn = warn;
}
screen_load();
}
bool cmsg_input_num(byte color, cptr prompt, int *num, int min, int max)
{
bool result = FALSE;
char buf[10];
msg_boundary();
auto_more_state = AUTO_MORE_PROMPT;
cmsg_print(color, prompt);
result = askfor_aux(buf, 10, FALSE);
if (result)
{
if (isalpha(buf[0]))
*num = max;
else
*num = atoi(buf);
if (*num > max) *num = max;
if (*num < min) *num = min;
msg_format("%d", *num);
}
else
cmsg_print(TERM_L_RED, "Cancelled");
msg_line_clear();
return result;
}
/**
* Prompt the user for a filename to save the pref file to.
*/
static bool get_pref_path(const char *what, int row, char *buf, size_t max)
{
char ftmp[80];
bool ok;
screen_save();
/* Prompt */
prt(format("%s to a pref file", what), row, 0);
prt("File: ", row + 2, 0);
/* Get the filesystem-safe name and append .prf */
player_safe_name(ftmp, sizeof(ftmp), player->full_name, true);
my_strcat(ftmp, ".prf", sizeof(ftmp));
/* Get a filename */
ok = askfor_aux(ftmp, sizeof ftmp, NULL);
screen_load();
/* Build the filename */
if (ok)
path_build(buf, max, ANGBAND_DIR_USER, ftmp);
return ok;
}
/**
* Gets a name for the character, reacting to name changes.
*
* If sf is true, we change the savefile name depending on the character name.
*/
bool get_character_name(char *buf, size_t buflen)
{
bool res;
/* Paranoia */
event_signal(EVENT_MESSAGE_FLUSH);
/* Display prompt */
prt("Enter a name for your character (* for a random name): ", 0, 0);
/* Save the player name */
my_strcpy(buf, op_ptr->full_name, buflen);
/* Ask the user for a string */
res = askfor_aux(buf, buflen, get_name_keypress);
/* Clear prompt */
prt("", 0, 0);
/* Revert to the old name if the player doesn't pick a new one. */
if (!res)
my_strcpy(buf, op_ptr->full_name, buflen);
return res;
}
/**
* Set "lazy-movement" delay
*/
static void do_cmd_lazymove_delay(const char *name, int row)
{
bool res;
char tmp[4] = "";
strnfmt(tmp, sizeof(tmp), "%i", op_ptr->lazymove_delay);
screen_save();
/* Prompt */
prt("Command: Movement Delay Factor", 20, 0);
prt(format("Current movement delay: %d (%d msec)",
op_ptr->lazymove_delay, op_ptr->lazymove_delay * 10), 22, 0);
prt("New movement delay: ", 21, 0);
/* Ask the user for a string */
res = askfor_aux(tmp, sizeof(tmp), askfor_aux_numbers);
/* Process input */
if (res)
op_ptr->lazymove_delay = (u16b) strtoul(tmp, NULL, 0);
screen_load();
}
/**
* Ask for a "user pref file" and process it.
*
* This function should only be used by standard interaction commands,
* in which a standard "Command:" prompt is present on the given row.
*
* Allow absolute file names? XXX XXX XXX
*/
static void do_cmd_pref_file_hack(long row)
{
char ftmp[80];
screen_save();
/* Prompt */
prt("Command: Load a user pref file", row, 0);
/* Prompt */
prt("File: ", row + 2, 0);
/* Default filename */
strnfmt(ftmp, sizeof ftmp, "%s.prf", player_safe_name(player, true));
/* Ask for a file (or cancel) */
if (askfor_aux(ftmp, sizeof ftmp, NULL)) {
/* Process the given filename */
if (process_pref_file(ftmp, false, true) == false) {
/* Mention failure */
prt("", 0, 0);
msg("Failed to load '%s'!", ftmp);
} else {
/* Mention success */
prt("", 0, 0);
msg("Loaded '%s'.", ftmp);
}
}
screen_load();
}
/*
* Gets a name for the character, reacting to name changes.
*
* If sf is TRUE, we change the savefile name depending on the character name.
*
* What a horrible name for a global function. XXX XXX XXX
*/
bool get_name(char *buf, size_t buflen)
{
bool res;
/* Paranoia XXX XXX XXX */
message_flush();
/* Display prompt */
prt("Enter a name for your character (* for a random name): ", 0, 0);
/* Save the player name */
my_strcpy(buf, op_ptr->full_name, buflen);
/* Ask the user for a string */
res = askfor_aux(buf, buflen, get_name_keypress);
/* Clear prompt */
prt("", 0, 0);
/* Revert to the old name if the player doesn't pick a new one. */
if (!res)
{
my_strcpy(buf, op_ptr->full_name, buflen);
}
return res;
}
static void dump_pref_file(void (*dump)(ang_file *), const char *title, int row)
{
char ftmp[80];
char buf[1024];
screen_save();
/* Prompt */
prt(format("%s to a pref file", title), row, 0);
/* Prompt */
prt("File: ", row + 2, 0);
/* Default filename */
strnfmt(ftmp, sizeof ftmp, "%s.prf", op_ptr.base_name);
/* Get a filename */
if (askfor_aux(ftmp, sizeof ftmp, null))
{
/* Build the filename */
path_build(buf, sizeof(buf), ANGBAND_DIR_USER, ftmp);
prt("", 0, 0);
if (prefs_save(buf, dump, title))
msg("Dumped %s", strstr(title, " ") + 1);
else
msg("Failed");
}
screen_load();
return;
}
/*
* Special key actions for object inscription.
*/
static void o_xtra_act(struct keypress ch, int oid)
{
object_kind *k_ptr = &k_info[oid];
s16b idx = get_autoinscription_index(oid);
/* Forget it if we've never seen the thing */
if (!k_ptr->everseen)
return;
/* Uninscribe */
if (ch.code == '}') {
if (idx != -1)
remove_autoinscription(oid);
return;
}
/* Inscribe */
else if (ch.code == '{') {
char note_text[80] = "";
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Inscribe with: ", 0, 0);
/* Default note */
if (idx != -1)
strnfmt(note_text, sizeof(note_text), "%s",
get_autoinscription(oid));
/* Get an inscription */
if (askfor_aux(note_text, sizeof(note_text), NULL)) {
/* Remove old inscription if existent */
if (idx != -1)
remove_autoinscription(oid);
/* Add the autoinscription */
add_autoinscription(oid, note_text);
/* Notice stuff (later) */
p_ptr->notice |= (PN_AUTOINSCRIBE);
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
/* Reload the screen */
screen_load();
}
}
/**
* Prompt for a string from the user.
*
* The "prompt" should take the form "Prompt: ".
*
* See "askfor_aux" for some notes about "buf" and "len", and about
* the return value of this function.
*/
bool textui_get_string(const char *prompt, char *buf, size_t len)
{
bool res;
/* Paranoia */
event_signal(EVENT_MESSAGE_FLUSH);
/* Display prompt */
prt(prompt, 0, 0);
/* Ask the user for a string */
res = askfor_aux(buf, len, NULL);
/* Clear prompt */
prt("", 0, 0);
/* Result */
return (res);
}
/*
* Prompt for a string from the user.
*
* The "prompt" should take the form "Prompt: ".
*
* See "askfor_aux" for some notes about "buf" and "len", and about
* the return value of this function.
*/
bool get_string(const char *prompt, char *buf, size_t len)
{
bool res;
/* Paranoia XXX XXX XXX */
message_flush();
/* Display prompt */
prt(prompt, 0, 0);
/* Ask the user for a string */
res = askfor_aux(buf, len, NULL);
/* Clear prompt */
prt("", 0, 0);
/* Result */
return (res);
}
/*
* Prompt for a string from the user.
*
* The "prompt" should take the form "Prompt: ".
*
* See "askfor_aux" for some notes about "buf" and "len", and about
* the return value of this function.
*/
bool get_string(const char *prompt, char *buf, size_t len)
{
bool res;
/* Paranoia XXX XXX XXX */
message_flush();
/* Display prompt */
prt(prompt, 0, 0);
/* Ask the user for a string */
res = askfor_aux(buf, len, NULL);
/* Translate it to 8-bit (Latin-1) */
xstr_trans(buf, LATIN1);
/* Clear prompt */
prt("", 0, 0);
/* Result */
return (res);
}
/**
* Set base delay factor
*/
static void do_cmd_delay(const char *name, int row)
{
char tmp[4] = "";
int msec = op_ptr->delay_factor;
strnfmt(tmp, sizeof(tmp), "%i", op_ptr->delay_factor);
screen_save();
/* Prompt */
prt("Command: Base Delay Factor", 20, 0);
prt(format("Current base delay factor: %d msec",
op_ptr->delay_factor, msec), 22, 0);
prt("New base delay factor (0-255): ", 21, 0);
/* Ask for a numeric value */
if (askfor_aux(tmp, sizeof(tmp), askfor_aux_numbers)) {
u16b val = (u16b) strtoul(tmp, NULL, 0);
op_ptr->delay_factor = MIN(val, 255);
}
screen_load();
}
/**
* Prompt the user for a filename to save the pref file to.
*/
static bool get_pref_path(const char *what, int row, char *buf, size_t max)
{
char ftmp[80];
bool ok;
screen_save();
/* Prompt */
prt(format("%s to a pref file", what), row, 0);
prt("File: ", row + 2, 0);
/* Default filename */
strnfmt(ftmp, sizeof ftmp, "%s.prf", player_safe_name(player, true));
/* Get a filename */
ok = askfor_aux(ftmp, sizeof ftmp, NULL);
screen_load();
/* Build the filename */
if (ok)
path_build(buf, max, ANGBAND_DIR_USER, ftmp);
return ok;
}
/*
* Show previous messages to the user -BEN-
*
* The screen format uses line 0 and 23 for headers and prompts,
* skips line 1 and 22, and uses line 2 thru 21 for old messages.
*
* This command shows you which commands you are viewing, and allows
* you to "search" for strings in the recall.
*
* Note that messages may be longer than 80 characters, but they are
* displayed using "infinite" length, with a special sub-command to
* "slide" the virtual display to the left or right.
*
* Attempt to only hilite the matching portions of the string.
*/
void do_cmd_messages(void)
{
int i, j, k, n, q;
char shower[80] = "";
char finder[80] = "";
/* Total messages */
n = message_num();
/* Start on first message */
i = 0;
/* Start at leftmost edge */
q = 0;
/* Enter "icky" mode */
screen_icky = topline_icky = TRUE;
/* Save the screen */
Term_save();
/* Process requests until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Dump up to 20 lines of messages */
for (j = 0; (j < 20) && (i + j < n); j++)
{
byte a = TERM_WHITE;
cptr str = message_str(i+j);
/* Determine color */
message_color(str, &a);
/* Apply horizontal scroll */
str = (strlen(str) >= q) ? (str + q) : "";
/* Handle "shower" */
if (shower[0] && strstr(str, shower)) a = TERM_YELLOW;
/* Dump the messages, bottom to top */
Term_putstr(0, 21-j, -1, a, str);
}
/* Display header XXX XXX XXX */
prt(format("Message Recall (%d-%d of %d), Offset %d",
i, i+j-1, n, q), 0, 0);
/* Display prompt (not very informative) */
prt("[Press 'p' for older, 'n' for newer, ..., or ESCAPE]", 23, 0);
/* Get a command */
k = inkey();
/* Exit on Escape */
if (k == ESCAPE) break;
/* Hack -- Save the old index */
j = i;
/* Horizontal scroll */
if (k == '4')
{
/* Scroll left */
q = (q >= 40) ? (q - 40) : 0;
/* Success */
continue;
}
/* Horizontal scroll */
if (k == '6')
{
/* Scroll right */
q = q + 40;
/* Success */
continue;
}
/* Hack -- handle show */
if (k == '=')
{
/* Prompt */
prt("Show: ", 23, 0);
/* Get a "shower" string, or continue */
if (!askfor_aux(shower, 80, 0)) continue;
/* Okay */
continue;
}
/* Hack -- handle find */
if (k == '/')
{
int z;
/* Prompt */
prt("Find: ", 23, 0);
/* Get a "finder" string, or continue */
if (!askfor_aux(finder, 80, 0)) continue;
/* Scan messages */
for (z = i + 1; z < n; z++)
{
cptr str = message_str(z);
/* Handle "shower" */
if (strstr(str, finder))
{
/* New location */
i = z;
/* Done */
break;
}
}
}
/* Recall 1 older message */
if ((k == '8') || (k == '\n') || (k == '\r'))
{
/* Go newer if legal */
if (i + 1 < n) i += 1;
}
/* Recall 10 older messages */
if (k == '+')
{
/* Go older if legal */
if (i + 10 < n) i += 10;
}
/* Recall 20 older messages */
if ((k == 'p') || (k == KTRL('P')) || (k == ' '))
{
/* Go older if legal */
if (i + 20 < n) i += 20;
}
/* Recall 20 newer messages */
if ((k == 'n') || (k == KTRL('N')))
{
/* Go newer (if able) */
i = (i >= 20) ? (i - 20) : 0;
}
/* Recall 10 newer messages */
if (k == '-')
{
/* Go newer (if able) */
i = (i >= 10) ? (i - 10) : 0;
}
/* Recall 1 newer messages */
if (k == '2')
{
/* Go newer (if able) */
i = (i >= 1) ? (i - 1) : 0;
}
/* Hack -- Error of some kind */
if (i == j) bell();
}
/* Restore the screen */
Term_load();
/* Leave "icky" mode */
screen_icky = topline_icky = FALSE;
/* Flush any queued events */
Flush_queue();
}
/*
* Interact with "macros"
*
* Note that the macro "action" must be defined before the trigger.
*
* Could use some helpful instructions on this page. XXX XXX XXX
*/
void do_cmd_macros(void)
{
s32b i;
char tmp[1024];
char buf[1024];
s32b mode;
/* Roguelike */
if (rogue_like_commands)
{
mode = KEYMAP_MODE_ROGUE;
}
/* Original */
else
{
mode = KEYMAP_MODE_ORIG;
}
/* Enter "icky" mode */
character_icky++;
/* Save screen */
Term_save();
/* Process requests until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Describe */
prt("Interact with Macros", 2, 0);
/* Describe that action */
prt("Current action (if any) shown below:", 20, 0);
/* Analyze the current action */
ascii_to_text(buf, macro__buf);
/* Display the current action */
prt(buf, 22, 0);
/* Selections */
prt("(1) Load a user pref file", 4, 5);
#ifdef ALLOW_MACROS
prt("(2) Append macros to a file", 5, 5);
prt("(3) Query a macro", 6, 5);
prt("(4) Create a macro", 7, 5);
prt("(5) Remove a macro", 8, 5);
prt("(6) Append keymaps to a file", 9, 5);
prt("(7) Query a keymap", 10, 5);
prt("(8) Create a keymap", 11, 5);
prt("(9) Remove a keymap", 12, 5);
prt("(0) Enter a new action", 13, 5);
#endif /* ALLOW_MACROS */
/* Prompt */
prt("Command: ", 16, 0);
/* Get a command */
i = inkey();
/* Leave */
if (i == ESCAPE) break;
/* Load a 'macro' file */
else if (i == '1')
{
/* Prompt */
prt("Command: Load a user pref file", 16, 0);
/* Prompt */
prt("File: ", 18, 0);
/* Default filename */
strnfmt(tmp, 1024, "%s.prf", player_name);
/* Ask for a file */
if (!askfor_aux(tmp, 80)) continue;
/* Process the given filename */
if (0 != process_pref_file(tmp))
{
/* Prompt */
msg_print("Could not load file!");
}
}
#ifdef ALLOW_MACROS
/* Save macros */
else if (i == '2')
{
/* Prompt */
prt("Command: Append macros to a file", 16, 0);
/* Prompt */
prt("File: ", 18, 0);
/* Default filename */
strnfmt(tmp, 1024, "%s.prf", player_name);
/* Ask for a file */
if (!askfor_aux(tmp, 80)) continue;
/* Dump the macros */
(void)macro_dump(tmp);
/* Prompt */
msg_print("Appended macros.");
}
/* Query a macro */
else if (i == '3')
{
s32b k;
/* Prompt */
prt("Command: Query a macro", 16, 0);
/* Prompt */
prt("Trigger: ", 18, 0);
/* Get a macro trigger */
do_cmd_macro_aux(buf, TRUE);
/* Acquire action */
k = macro_find_exact(buf);
/* Nothing found */
if (k < 0)
{
/* Prompt */
msg_print("Found no macro.");
}
/* Found one */
else
{
/* Obtain the action */
strcpy(macro__buf, macro__act[k]);
/* Analyze the current action */
ascii_to_text(buf, macro__buf);
/* Display the current action */
prt(buf, 22, 0);
/* Prompt */
msg_print("Found a macro.");
}
}
/* Create a macro */
else if (i == '4')
{
/* Prompt */
prt("Command: Create a macro", 16, 0);
/* Prompt */
prt("Trigger: ", 18, 0);
/* Get a macro trigger */
do_cmd_macro_aux(buf, TRUE);
/* Clear */
clear_from(20);
/* Prompt */
prt("Action: ", 20, 0);
/* Convert to text */
ascii_to_text(tmp, macro__buf);
/* Get an encoded action */
if (askfor_aux(tmp, 80))
{
/* Convert to ascii */
text_to_ascii(macro__buf, tmp);
/* Link the macro */
macro_add(buf, macro__buf);
/* Prompt */
msg_print("Added a macro.");
}
}
/* Remove a macro */
else if (i == '5')
{
/* Prompt */
prt("Command: Remove a macro", 16, 0);
/* Prompt */
prt("Trigger: ", 18, 0);
/* Get a macro trigger */
do_cmd_macro_aux(buf, TRUE);
/* Link the macro */
macro_add(buf, buf);
/* Prompt */
msg_print("Removed a macro.");
}
/* Save keymaps */
else if (i == '6')
{
/* Prompt */
prt("Command: Append keymaps to a file", 16, 0);
/* Prompt */
prt("File: ", 18, 0);
/* Default filename */
strnfmt(tmp, 1024, "%s.prf", player_name);
/* Ask for a file */
if (!askfor_aux(tmp, 80)) continue;
/* Dump the macros */
(void)keymap_dump(tmp);
/* Prompt */
msg_print("Appended keymaps.");
}
/* Query a keymap */
else if (i == '7')
{
cptr act;
/* Prompt */
prt("Command: Query a keymap", 16, 0);
/* Prompt */
prt("Keypress: ", 18, 0);
/* Get a keymap trigger */
do_cmd_macro_aux_keymap(buf);
/* Look up the keymap */
act = keymap_act[mode][(byte)(buf[0])];
/* Nothing found */
if (!act)
{
/* Prompt */
msg_print("Found no keymap.");
}
/* Found one */
else
{
/* Obtain the action */
strcpy(macro__buf, act);
/* Analyze the current action */
ascii_to_text(buf, macro__buf);
/* Display the current action */
prt(buf, 22, 0);
/* Prompt */
msg_print("Found a keymap.");
}
}
/* Create a keymap */
else if (i == '8')
{
/* Prompt */
prt("Command: Create a keymap", 16, 0);
/* Prompt */
prt("Keypress: ", 18, 0);
/* Get a keymap trigger */
do_cmd_macro_aux_keymap(buf);
/* Clear */
clear_from(20);
/* Prompt */
prt("Action: ", 20, 0);
/* Convert to text */
ascii_to_text(tmp, macro__buf);
/* Get an encoded action */
if (askfor_aux(tmp, 80))
{
/* Convert to ascii */
text_to_ascii(macro__buf, tmp);
/* Free old keymap */
string_free(keymap_act[mode][(byte)(buf[0])]);
/* Make new keymap */
keymap_act[mode][(byte)(buf[0])] = string_make(macro__buf);
/* Prompt */
msg_print("Added a keymap.");
}
}
/* Remove a keymap */
else if (i == '9')
{
/* Prompt */
prt("Command: Remove a keymap", 16, 0);
/* Prompt */
prt("Keypress: ", 18, 0);
/* Get a keymap trigger */
do_cmd_macro_aux_keymap(buf);
/* Free old keymap */
string_free(keymap_act[mode][(byte)(buf[0])]);
/* Make new keymap */
keymap_act[mode][(byte)(buf[0])] = NULL;
/* Prompt */
msg_print("Removed a keymap.");
}
/* Enter a new action */
else if (i == '0')
{
/* Prompt */
prt("Command: Enter a new action", 16, 0);
/* Go to the correct location */
Term_gotoxy(0, 22);
/* Hack -- limit the value */
tmp[80] = '\0';
/* Get an encoded action */
if (!askfor_aux(buf, 80)) continue;
/* Extract an action */
text_to_ascii(macro__buf, buf);
}
#endif /* ALLOW_MACROS */
/* Oops */
else
{
/* Oops */
bell();
}
/* Flush messages */
msg_print(NULL);
}
/* Load screen */
Term_load();
/* Leave "icky" mode */
character_icky--;
}
/**
* Show previous messages to the user
*
* The screen format uses line 0 and 23 for headers and prompts,
* skips line 1 and 22, and uses line 2 thru 21 for old messages.
*
* This command shows you which commands you are viewing, and allows
* you to "search" for strings in the recall.
*
* Note that messages may be longer than 80 characters, but they are
* displayed using "infinite" length, with a special sub-command to
* "slide" the virtual display to the left or right.
*
* Attempt to only hilight the matching portions of the string.
*/
void do_cmd_messages(void)
{
ui_event ke;
int i, j, n, q;
int wid, hgt;
char shower[80];
char finder[80];
char p[80];
/* Wipe finder */
my_strcpy(finder, "", sizeof(shower));
/* Wipe shower */
my_strcpy(shower, "", sizeof(finder));
/* Total messages */
n = messages_num();
/* Start on first message */
i = 0;
/* Start at leftmost edge */
q = 0;
/* Get size */
Term_get_size(&wid, &hgt);
/* Prompt */
strncpy(p, "[Press 'p' for older, 'n' for newer, ..., or ESCAPE]", 80);
/* Save screen */
screen_save();
/* Adjust the buttons */
button_backup_all();
button_kill_all();
button_add("ESC", ESCAPE);
button_add("-", '-');
button_add("=", '=');
button_add("/", '/');
button_add("p", 'p');
button_add("n", 'n');
button_add("+", '+');
button_add("->", '6');
button_add("<-", '4');
p_ptr->redraw |= (PR_BUTTONS);
/* Process requests until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Dump messages */
for (j = 0; (j < hgt - 4) && (i + j < n); j++)
{
const char *msg = message_str((s16b)(i+j));
byte attr = message_color((s16b)(i+j));
/* Apply horizontal scroll */
msg = ((int)strlen(msg) >= q) ? (msg + q) : "";
/* Dump the messages, bottom to top */
Term_putstr(0, hgt - 3 - j, -1, attr, msg);
/* Hilight "shower" */
if (shower[0])
{
const char *str = msg;
/* Display matches */
while ((str = strstr(str, shower)) != NULL)
{
int len = strlen(shower);
/* Display the match */
Term_putstr(str-msg, hgt - 3 - j, len, TERM_YELLOW, shower);
/* Advance */
str += len;
}
}
}
/* Display header XXX XXX XXX */
prt(format("Message Recall (%d-%d of %d), Offset %d",
i, i + j - 1, n, q), 0, 0);
/* Display prompt (not very informative) */
prt(p, hgt - 1, 0);
redraw_stuff(p_ptr);
/* Get a command */
ke = inkey_ex();
/* Exit on Escape */
if (ke.key.code == ESCAPE) break;
/* Hack -- Save the old index */
j = i;
/* Horizontal scroll */
if (ke.key.code == '4')
{
/* Scroll left */
q = (q >= wid / 2) ? (q - wid / 2) : 0;
/* Success */
continue;
}
/* Horizontal scroll */
if (ke.key.code == '6')
{
/* Scroll right */
q = q + wid / 2;
/* Success */
continue;
}
/* Hack -- handle show */
if (ke.key.code == '=')
{
/* Prompt */
prt("Show: ", hgt - 1, 0);
/* Get a "shower" string, or continue */
if (!askfor_aux(shower, sizeof shower, NULL)) continue;
/* Okay */
continue;
}
/* Hack -- handle find */
if (ke.key.code == '/')
{
s16b z;
/* Prompt */
prt("Find: ", hgt - 1, 0);
/* Get a "finder" string, or continue */
if (!askfor_aux(finder, sizeof finder, NULL)) continue;
/* Show it */
my_strcpy(shower, finder, sizeof(shower));
/* Scan messages */
for (z = i + 1; z < n; z++)
{
const char *msg = message_str(z);
/* Search for it */
if (strstr(msg, finder))
{
/* New location */
i = z;
/* Done */
break;
}
}
}
/* Recall 20 older messages */
if ((ke.key.code == 'p') || (ke.key.code == KTRL('P')) || (ke.key.code == ' '))
{
/* Go older if legal */
if (i + 20 < n) i += 20;
}
/* Recall 10 older messages */
if (ke.key.code == '+')
{
/* Go older if legal */
if (i + 10 < n) i += 10;
}
/* Recall 1 older message */
if ((ke.key.code == '8') || (ke.key.code == '\n') || (ke.key.code == '\r'))
{
/* Go older if legal */
if (i + 1 < n) i += 1;
}
/* Recall 20 newer messages */
if ((ke.key.code == 'n') || (ke.key.code == KTRL('N')))
{
/* Go newer (if able) */
i = (i >= 20) ? (i - 20) : 0;
}
/* Recall 10 newer messages */
if (ke.key.code == '-')
{
/* Go newer (if able) */
i = (i >= 10) ? (i - 10) : 0;
}
/* Recall 1 newer messages */
if (ke.key.code == '2')
{
/* Go newer (if able) */
i = (i >= 1) ? (i - 1) : 0;
}
/* Scroll forwards or backwards using mouse clicks */
if (ke.mouse.button)
{
if (ke.mouse.y <= hgt / 2)
{
/* Go older if legal */
if (i + 20 < n) i += 20;
}
else
{
/* Go newer (if able) */
i = (i >= 20) ? (i - 20) : 0;
}
}
/* Hack -- Error of some kind */
if (i == j) bell(NULL);
}
/* Adjust the buttons */
button_restore();
/* Load screen */
screen_load();
}
/*
* Recursive file perusal.
*
* Return FALSE on "ESCAPE", otherwise TRUE.
*
* Process various special text in the input file, including the "menu"
* structures used by the "help file" system.
*
* This function could be made much more efficient with the use of "seek"
* functionality, especially when moving backwards through a file, or
* forwards through a file by less than a page at a time. XXX XXX XXX
*
* Consider using a temporary file, in which special lines do not appear,
* and which could be pre-padded to 80 characters per line, to allow the
* use of perfect seeking. XXX XXX XXX
*
* Allow the user to "save" the current file. XXX XXX XXX
*/
bool show_file(cptr name, cptr what, int line, int mode)
{
int i, k, n;
char ch;
/* Number of "real" lines passed by */
int next = 0;
/* Number of "real" lines in the file */
int size;
/* Backup value for "line" */
int back = 0;
/* This screen has sub-screens */
bool menu = FALSE;
/* Case sensitive search */
bool case_sensitive = FALSE;
/* Current help file */
FILE *fff = NULL;
/* Find this string (if any) */
char *find = NULL;
/* Jump to this tag */
cptr tag = NULL;
/* Hold a string to find */
char finder[80];
/* Hold a string to show */
char shower[80];
/* Filename */
char filename[1024];
/* Describe this thing */
char caption[128];
/* Path buffer */
char path[1024];
/* General buffer */
char buf[1024];
/* Lower case version of the buffer, for searching */
char lc_buf[1024];
/* Sub-menu information */
char hook[10][32];
int wid, hgt;
/* Wipe finder */
strcpy(finder, "");
/* Wipe shower */
strcpy(shower, "");
/* Wipe caption */
strcpy(caption, "");
/* Wipe the hooks */
for (i = 0; i < 10; i++) hook[i][0] = '\0';
/* Get size */
Term_get_size(&wid, &hgt);
/* Copy the filename */
my_strcpy(filename, name, sizeof(filename));
n = strlen(filename);
/* Extract the tag from the filename */
for (i = 0; i < n; i++)
{
if (filename[i] == '#')
{
filename[i] = '\0';
tag = filename + i + 1;
break;
}
}
/* Redirect the name */
name = filename;
/* Hack XXX XXX XXX */
if (what)
{
/* Caption */
my_strcpy(caption, what, sizeof(caption));
/* Get the filename */
my_strcpy(path, name, sizeof(path));
/* Open */
fff = my_fopen(path, "r");
}
/* Look in "help" */
if (!fff)
{
/* Caption */
strnfmt(caption, sizeof(caption), "Help file '%s'", name);
/* Build the filename */
path_build(path, sizeof(path), ANGBAND_DIR_HELP, name);
/* Open the file */
fff = my_fopen(path, "r");
}
/* Look in "info" */
if (!fff)
{
/* Caption */
strnfmt(caption, sizeof(caption), "Info file '%s'", name);
/* Build the filename */
path_build(path, sizeof(path), ANGBAND_DIR_INFO, name);
/* Open the file */
fff = my_fopen(path, "r");
}
/* Oops */
if (!fff)
{
/* Message */
msg_format("Cannot open '%s'.", name);
message_flush();
/* Oops */
return (TRUE);
}
/* Pre-Parse the file */
while (TRUE)
{
/* Read a line or stop */
if (my_fgets(fff, buf, sizeof(buf))) break;
/* XXX Parse "menu" items */
if (prefix(buf, "***** "))
{
char b1 = '[', b2 = ']';
/* Notice "menu" requests */
if ((buf[6] == b1) && isdigit((unsigned char)buf[7]) &&
(buf[8] == b2) && (buf[9] == ' '))
{
/* This is a menu file */
menu = TRUE;
/* Extract the menu item */
k = D2I(buf[7]);
/* Extract the menu item */
my_strcpy(hook[k], buf + 10, sizeof(hook[0]));
}
/* Notice "tag" requests */
else if (buf[6] == '<')
{
if (tag)
{
/* Remove the closing '>' of the tag */
buf[strlen(buf) - 1] = '\0';
/* Compare with the requested tag */
if (streq(buf + 7, tag))
{
/* Remember the tagged line */
line = next;
}
}
}
/* Skip this */
continue;
}
/* Count the "real" lines */
next++;
}
/* Save the number of "real" lines */
size = next;
/* Display the file */
while (TRUE)
{
/* Clear screen */
Term_clear();
/* Restart when necessary */
if (line >= size) line = 0;
/* Re-open the file if needed */
if (next > line)
{
/* Close it */
my_fclose(fff);
/* Hack -- Re-Open the file */
fff = my_fopen(path, "r");
/* Oops */
if (!fff) return (TRUE);
/* File has been restarted */
next = 0;
}
/* Goto the selected line */
while (next < line)
{
/* Get a line */
if (my_fgets(fff, buf, sizeof(buf))) break;
/* Skip tags/links */
if (prefix(buf, "***** ")) continue;
/* Count the lines */
next++;
}
/* Dump the next lines of the file */
for (i = 0; i < hgt - 4; )
{
/* Hack -- track the "first" line */
if (!i) line = next;
/* Get a line of the file or stop */
if (my_fgets(fff, buf, sizeof(buf))) break;
/* Hack -- skip "special" lines */
if (prefix(buf, "***** ")) continue;
/* Count the "real" lines */
next++;
/* Make a copy of the current line for searching */
my_strcpy(lc_buf, buf, sizeof(lc_buf));
/* Make the line lower case */
if (!case_sensitive) string_lower(lc_buf);
/* Hack -- keep searching */
if (find && !i && !strstr(lc_buf, find)) continue;
/* Hack -- stop searching */
find = NULL;
/* Dump the line */
Term_putstr(0, i+2, -1, TERM_WHITE, buf);
/* Hilite "shower" */
if (shower[0])
{
cptr str = lc_buf;
/* Display matches */
while ((str = strstr(str, shower)) != NULL)
{
int len = strlen(shower);
/* Display the match */
Term_putstr(str-lc_buf, i+2, len, TERM_YELLOW, &buf[str-lc_buf]);
/* Advance */
str += len;
}
}
/* Count the printed lines */
i++;
}
/* Hack -- failed search */
if (find)
{
bell("Search string not found!");
line = back;
find = NULL;
continue;
}
/* Show a general "title" */
prt(format("[%s %s, %s, Line %d/%d]", VERSION_NAME,
VERSION_STRING, caption, line, size), 0, 0);
/* Prompt -- menu screen */
if (menu)
{
/* Wait for it */
prt("[Press a Number, or ESC to exit.]", hgt - 1, 0);
}
/* Prompt -- small files */
else if (size <= hgt - 4)
{
/* Wait for it */
prt("[Press ESC to exit.]", hgt - 1, 0);
}
/* Prompt -- large files */
else
{
/* Wait for it */
prt("[Press Space to advance, or ESC to exit.]", hgt - 1, 0);
}
/* Get a keypress */
ch = inkey();
/* Return to last screen */
if (ch == '?') break;
/* Toggle case sensitive on/off */
if (ch == '!')
{
case_sensitive = !case_sensitive;
}
/* Try showing */
if (ch == '&')
{
/* Get "shower" */
prt("Show: ", hgt - 1, 0);
(void)askfor_aux(shower, sizeof(shower));
/* Make the "shower" lowercase */
if (!case_sensitive) string_lower(shower);
}
/* Try finding */
if (ch == '/')
{
/* Get "finder" */
prt("Find: ", hgt - 1, 0);
if (askfor_aux(finder, sizeof(finder)))
{
/* Find it */
find = finder;
back = line;
line = line + 1;
/* Make the "finder" lowercase */
if (!case_sensitive) string_lower(finder);
/* Show it */
my_strcpy(shower, finder, sizeof(shower));
}
}
/* Go to a specific line */
if (ch == '#')
{
char tmp[80];
prt("Goto Line: ", hgt - 1, 0);
strcpy(tmp, "0");
if (askfor_aux(tmp, sizeof(tmp)))
{
line = atoi(tmp);
}
}
/* Go to a specific file */
if (ch == '%')
{
char ftmp[80];
prt("Goto File: ", hgt - 1, 0);
strcpy(ftmp, "help.hlp");
if (askfor_aux(ftmp, sizeof(ftmp)))
{
if (!show_file(ftmp, NULL, 0, mode)) ch = ESCAPE;
}
}
/* Back up one line */
if (ch == '=')
{
line = line - 1;
if (line < 0) line = 0;
}
/* Back up one half page */
if (ch == '_')
{
line = line - ((hgt - 4) / 2);
if (line < 0) line = 0;
}
/* Back up one full page */
if (ch == '-')
{
line = line - (hgt - 4);
if (line < 0) line = 0;
}
/* Advance one line */
if ((ch == '\n') || (ch == '\r'))
{
line = line + 1;
}
/* Advance one half page */
if (ch == '+')
{
line = line + ((hgt - 4) / 2);
if (line < 0) line = 0;
}
/* Advance one full page */
if (ch == ' ')
{
line = line + (hgt - 4);
}
/* Recurse on numbers */
if (menu && isdigit((unsigned char)ch) && hook[D2I(ch)][0])
{
/* Recurse on that file */
if (!show_file(hook[D2I(ch)], NULL, 0, mode)) ch = ESCAPE;
}
/* Exit on escape */
if (ch == ESCAPE) break;
}
/* Close the file */
my_fclose(fff);
/* Done */
return (ch != ESCAPE);
}
/*
* 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;
}
}
}
/**
* Gets a personalized string for ghosts. Code originally from get_name. -LM-
*/
static char *get_personalized_string(byte choice)
{
static char tmp[80], info[80];
byte n, i;
/* Clear last line */
clear_from(15);
/* Prompt and ask */
if (choice == 1) {
prt("Enter a message for your character's ghost", 15, 0);
prt("above, or hit ESCAPE.", 16, 0);
} else if (choice == 2) {
prt("Enter an addition to your character ghost's", 15, 0);
prt("description above, or hit ESCAPE.", 16, 0);
} else
return NULL;
sprintf(info, "(%d characters maximum. Entry will be used as", 79);
prt(info, 17, 0);
prt("(a) sentence(s).)", 18, 0);
/* Ask until happy */
while (1) {
/* Start at beginning of field. */
Term_gotoxy(0, 14);
/* Get an input */
(void) askfor_aux(tmp, 79, NULL);
/* All done */
break;
}
/* Pad the string (to clear junk and allow room for a ending) */
sprintf(tmp, "%-79.79s", tmp);
/* Ensure that strings end like a sentence, and neatly clip the string. */
for (n = 79;; n--) {
if ((tmp[n] == ' ') || (tmp[n] == '\0'))
continue;
else {
if ((tmp[n] == '!') || (tmp[n] == '.') || (tmp[n] == '?')) {
tmp[n + 1] = '\0';
for (i = n + 2; i < 80; i++)
tmp[i] = '\0';
break;
} else {
tmp[n + 1] = '.';
tmp[n + 2] = '\0';
for (i = n + 3; i < 80; i++)
tmp[i] = '\0';
break;
}
}
}
/* Start the sentence with a capital letter. */
if (islower(tmp[0]))
tmp[0] = toupper(tmp[0]);
/* Return the string */
return tmp;
}
/*
* Show previous messages to the user
*
* The screen format uses line 0 and 23 for headers and prompts,
* skips line 1 and 22, and uses line 2 thru 21 for old messages.
*
* This command shows you which commands you are viewing, and allows
* you to "search" for strings in the recall.
*
* Note that messages may be longer than 80 characters, but they are
* displayed using "infinite" length, with a special sub-command to
* "slide" the virtual display to the left or right.
*
* Attempt to only highlight the matching portions of the string.
*/
void do_cmd_messages(void)
{
ui_event ke;
bool more = TRUE;
int i, j, n, q;
int wid, hgt;
char shower[80] = "";
/* Total messages */
n = messages_num();
/* Start on first message */
i = 0;
/* Start at leftmost edge */
q = 0;
/* Get size */
Term_get_size(&wid, &hgt);
/* Save screen */
screen_save();
/* Process requests until done */
while (more)
{
/* Clear screen */
Term_clear();
/* Dump messages */
for (j = 0; (j < hgt - 4) && (i + j < n); j++)
{
const char *msg;
const char *str = message_str(i + j);
byte attr = message_color(i + j);
u16b count = message_count(i + j);
if (count == 1)
msg = str;
else
msg = format("%s <%dx>", str, count);
/* Apply horizontal scroll */
msg = ((int)strlen(msg) >= q) ? (msg + q) : "";
/* Dump the messages, bottom to top */
Term_putstr(0, hgt - 3 - j, -1, attr, msg);
/* Highlight "shower" */
if (shower[0])
{
str = msg;
/* Display matches */
while ((str = my_stristr(str, shower)) != NULL)
{
int len = strlen(shower);
/* Display the match */
Term_putstr(str-msg, hgt - 3 - j, len, TERM_YELLOW, str);
/* Advance */
str += len;
}
}
}
/* Display header */
prt(format("Message recall (%d-%d of %d), offset %d", i, i + j - 1, n, q), 0, 0);
/* Display prompt (not very informative) */
if (shower[0])
prt("[Movement keys to navigate, '-' for next, '=' to find]", hgt - 1, 0);
else
prt("[Movement keys to navigate, '=' to find, or ESCAPE to exit]", hgt - 1, 0);
/* Get a command */
ke = inkey_ex();
/* Scroll forwards or backwards using mouse clicks */
if (ke.type == EVT_MOUSE) {
if (ke.mouse.y <= hgt / 2) {
/* Go older if legal */
if (i + 20 < n)
i += 20;
} else {
/* Go newer */
i = (i >= 20) ? (i - 20) : 0;
}
} else if (ke.type == EVT_KBRD) {
switch (ke.key.code) {
case ESCAPE: {
more = FALSE;
break;
}
case '=': {
/* Get the string to find */
prt("Find: ", hgt - 1, 0);
if (!askfor_aux(shower, sizeof shower, NULL)) continue;
/* Set to find */
ke.key.code = '-';
break;
}
case ARROW_LEFT:
case '4':
q = (q >= wid / 2) ? (q - wid / 2) : 0;
break;
case ARROW_RIGHT:
case '6':
q = q + wid / 2;
break;
case ARROW_UP:
case '8':
if (i + 1 < n) i += 1;
break;
case ARROW_DOWN:
case '2':
case '\r':
case '\n':
i = (i >= 1) ? (i - 1) : 0;
break;
case KC_PGUP:
case 'p':
case ' ':
if (i + 20 < n) i += 20;
break;
case KC_PGDOWN:
case 'n':
i = (i >= 20) ? (i - 20) : 0;
break;
}
}
/* Find the next item */
if (ke.key.code == '-' && shower[0])
{
s16b z;
/* Scan messages */
for (z = i + 1; z < n; z++)
{
/* Search for it */
if (my_stristr(message_str(z), shower))
{
/* New location */
i = z;
/* Done */
break;
}
}
}
}
/* Load screen */
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;
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;
}
}
}
/*
* Special key actions for object inscription.
*/
static void o_xtra_act(struct keypress ch, int oid)
{
object_kind *k = objkind_byid(oid);
/* Toggle squelch */
if (squelch_tval(k->tval) && (ch.code == 's' || ch.code == 'S'))
{
if (k->aware)
{
if (kind_is_squelched_aware(k))
kind_squelch_clear(k);
else
kind_squelch_when_aware(k);
}
else
{
if (kind_is_squelched_unaware(k))
kind_squelch_clear(k);
else
kind_squelch_when_unaware(k);
}
return;
}
/* Forget it if we've never seen the thing */
if (k->flavor && !k->aware)
return;
/* Uninscribe */
if (ch.code == '}') {
if (k->note)
remove_autoinscription(oid);
} else if (ch.code == '{') {
/* Inscribe */
char note_text[80] = "";
/* Avoid the prompt getting in the way */
screen_save();
/* Prompt */
prt("Inscribe with: ", 0, 0);
/* Default note */
if (k->note)
strnfmt(note_text, sizeof(note_text), "%s", get_autoinscription(k));
/* Get an inscription */
if (askfor_aux(note_text, sizeof(note_text), NULL))
{
/* Remove old inscription if existent */
if (k->note)
remove_autoinscription(oid);
/* Add the autoinscription */
add_autoinscription(oid, note_text);
/* Notice stuff (later) */
p_ptr->notice |= (PN_AUTOINSCRIBE);
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
/* Reload the screen */
screen_load();
}
}
/*
* Recursive file perusal.
*
* Return FALSE on "?", otherwise TRUE.
*
* This function could be made much more efficient with the use of "seek"
* functionality, especially when moving backwards through a file, or
* forwards through a file by less than a page at a time. XXX XXX XXX
*/
bool show_file(const char *name, const char *what, int line, int mode)
{
int i, k, n;
struct keypress ch;
/* Number of "real" lines passed by */
int next = 0;
/* Number of "real" lines in the file */
int size;
/* Backup value for "line" */
int back = 0;
/* This screen has sub-screens */
bool menu = FALSE;
/* Case sensitive search */
bool case_sensitive = FALSE;
/* Current help file */
ang_file *fff = NULL;
/* Find this string (if any) */
char *find = NULL;
/* Jump to this tag */
const char *tag = NULL;
/* Hold a string to find */
char finder[80] = "";
/* Hold a string to show */
char shower[80] = "";
/* Filename */
char filename[1024];
/* Describe this thing */
char caption[128] = "";
/* Path buffer */
char path[1024];
/* General buffer */
char buf[1024];
/* Lower case version of the buffer, for searching */
char lc_buf[1024];
/* Sub-menu information */
char hook[26][32];
int wid, hgt;
/* TRUE if we are inside a RST block that should be skipped */
bool skip_lines = FALSE;
/* Wipe the hooks */
for (i = 0; i < 26; i++) hook[i][0] = '\0';
/* Get size */
Term_get_size(&wid, &hgt);
/* Copy the filename */
my_strcpy(filename, name, sizeof(filename));
n = strlen(filename);
/* Extract the tag from the filename */
for (i = 0; i < n; i++)
{
if (filename[i] == '#')
{
filename[i] = '\0';
tag = filename + i + 1;
break;
}
}
/* Redirect the name */
name = filename;
/* Hack XXX XXX XXX */
if (what)
{
my_strcpy(caption, what, sizeof(caption));
my_strcpy(path, name, sizeof(path));
fff = file_open(path, MODE_READ, FTYPE_TEXT);
}
/* Look in "help" */
if (!fff)
{
strnfmt(caption, sizeof(caption), "Help file '%s'", name);
path_build(path, sizeof(path), ANGBAND_DIR_HELP, name);
fff = file_open(path, MODE_READ, FTYPE_TEXT);
}
/* Look in "info" */
if (!fff)
{
strnfmt(caption, sizeof(caption), "Info file '%s'", name);
path_build(path, sizeof(path), ANGBAND_DIR_INFO, name);
fff = file_open(path, MODE_READ, FTYPE_TEXT);
}
/* Oops */
if (!fff)
{
/* Message */
msg("Cannot open '%s'.", name);
event_signal(EVENT_MESSAGE_FLUSH);
/* Oops */
return (TRUE);
}
/* Pre-Parse the file */
while (TRUE)
{
/* Read a line or stop */
if (!file_getl(fff, buf, sizeof(buf))) break;
/* Skip lines if we are inside a RST directive*/
if(skip_lines){
if(contains_only_spaces(buf))
skip_lines=FALSE;
continue;
}
/* Parse a very small subset of RST */
/* TODO: should be more flexible */
if (prefix(buf, ".. "))
{
/* parse ".. menu:: [x] filename.txt" (with exact spacing)*/
if(prefix(buf+strlen(".. "), "menu:: [") &&
buf[strlen(".. menu:: [x")]==']')
{
/* This is a menu file */
menu = TRUE;
/* Extract the menu item */
k = A2I(buf[strlen(".. menu:: [")]);
/* Store the menu item (if valid) */
if ((k >= 0) && (k < 26))
my_strcpy(hook[k], buf + strlen(".. menu:: [x] "), sizeof(hook[0]));
}
/* parse ".. _some_hyperlink_target:" */
else if (buf[strlen(".. ")] == '_')
{
if (tag)
{
/* Remove the closing '>' of the tag */
buf[strlen(buf) - 1] = '\0';
/* Compare with the requested tag */
if (streq(buf + strlen(".. _"), tag))
{
/* Remember the tagged line */
line = next;
}
}
}
/* Skip this and enter skip mode*/
skip_lines = TRUE;
continue;
}
/* Count the "real" lines */
next++;
}
/* Save the number of "real" lines */
size = next;
/* Display the file */
while (TRUE)
{
/* Clear screen */
Term_clear();
/* Restrict the visible range */
if (line > (size - (hgt - 4))) line = size - (hgt - 4);
if (line < 0) line = 0;
skip_lines = FALSE;
/* Re-open the file if needed */
if (next > line)
{
/* Close it */
file_close(fff);
/* Hack -- Re-Open the file */
fff = file_open(path, MODE_READ, FTYPE_TEXT);
if (!fff) return (TRUE);
/* File has been restarted */
next = 0;
}
/* Goto the selected line */
while (next < line)
{
/* Get a line */
if (!file_getl(fff, buf, sizeof(buf))) break;
/* Skip lines if we are inside a RST directive*/
if(skip_lines){
if(contains_only_spaces(buf))
skip_lines=FALSE;
continue;
}
/* Skip RST directives */
if (prefix(buf, ".. "))
{
skip_lines=TRUE;
continue;
}
/* Count the lines */
next++;
}
/* Dump the next lines of the file */
for (i = 0; i < hgt - 4; )
{
/* Hack -- track the "first" line */
if (!i) line = next;
/* Get a line of the file or stop */
if (!file_getl(fff, buf, sizeof(buf))) break;
/* Skip lines if we are inside a RST directive*/
if(skip_lines){
if(contains_only_spaces(buf))
skip_lines=FALSE;
continue;
}
/* Skip RST directives */
if (prefix(buf, ".. "))
{
skip_lines=TRUE;
continue;
}
/* skip | characters */
strskip(buf,'|');
/* escape backslashes */
strescape(buf,'\\');
/* Count the "real" lines */
next++;
/* Make a copy of the current line for searching */
my_strcpy(lc_buf, buf, sizeof(lc_buf));
/* Make the line lower case */
if (!case_sensitive) string_lower(lc_buf);
/* Hack -- keep searching */
if (find && !i && !strstr(lc_buf, find)) continue;
/* Hack -- stop searching */
find = NULL;
/* Dump the line */
Term_putstr(0, i+2, -1, COLOUR_WHITE, buf);
/* Highlight "shower" */
if (shower[0])
{
const char *str = lc_buf;
/* Display matches */
while ((str = strstr(str, shower)) != NULL)
{
int len = strlen(shower);
/* Display the match */
Term_putstr(str-lc_buf, i+2, len, COLOUR_YELLOW,
&buf[str-lc_buf]);
/* Advance */
str += len;
}
}
/* Count the printed lines */
i++;
}
/* Hack -- failed search */
if (find)
{
bell("Search string not found!");
line = back;
find = NULL;
continue;
}
/* Show a general "title" */
prt(format("[%s, %s, Line %d-%d/%d]", buildid,
caption, line, line + hgt - 4, size), 0, 0);
/* Prompt -- menu screen */
if (menu)
{
/* Wait for it */
prt("[Press a Letter, or ESC to exit.]", hgt - 1, 0);
}
/* Prompt -- small files */
else if (size <= hgt - 4)
{
/* Wait for it */
prt("[Press ESC to exit.]", hgt - 1, 0);
}
/* Prompt -- large files */
else
{
/* Wait for it */
prt("[Press Space to advance, or ESC to exit.]", hgt - 1, 0);
}
/* Get a keypress */
ch = inkey();
/* Exit the help */
if (ch.code == '?') break;
/* Toggle case sensitive on/off */
if (ch.code == '!')
{
case_sensitive = !case_sensitive;
}
/* Try showing */
if (ch.code == '&')
{
/* Get "shower" */
prt("Show: ", hgt - 1, 0);
(void)askfor_aux(shower, sizeof(shower), NULL);
/* Make the "shower" lowercase */
if (!case_sensitive) string_lower(shower);
}
/* Try finding */
if (ch.code == '/')
{
/* Get "finder" */
prt("Find: ", hgt - 1, 0);
if (askfor_aux(finder, sizeof(finder), NULL))
{
/* Find it */
find = finder;
back = line;
line = line + 1;
/* Make the "finder" lowercase */
if (!case_sensitive) string_lower(finder);
/* Show it */
my_strcpy(shower, finder, sizeof(shower));
}
}
/* Go to a specific line */
if (ch.code == '#')
{
char tmp[80] = "0";
prt("Goto Line: ", hgt - 1, 0);
if (askfor_aux(tmp, sizeof(tmp), NULL))
line = atoi(tmp);
}
/* Go to a specific file */
if (ch.code == '%')
{
char ftmp[80] = "help.hlp";
prt("Goto File: ", hgt - 1, 0);
if (askfor_aux(ftmp, sizeof(ftmp), NULL))
{
if (!show_file(ftmp, NULL, 0, mode))
ch.code = ESCAPE;
}
}
switch (ch.code) {
/* up a line */
case ARROW_UP:
case '8': line--; break;
/* up a page */
case KC_PGUP:
case '9':
case '-': line -= (hgt - 4); break;
/* home */
case KC_HOME:
case '7': line = 0; break;
/* down a line */
case ARROW_DOWN:
case '2':
case KC_ENTER: line++; break;
/* down a page */
case KC_PGDOWN:
case '3':
case ' ': line += hgt - 4; break;
/* end */
case KC_END:
case '1': line = size; break;
}
/* Recurse on letters */
if (menu && isalpha((unsigned char)ch.code))
{
/* Extract the requested menu item */
k = A2I(ch.code);
/* Verify the menu item */
if ((k >= 0) && (k <= 25) && hook[k][0])
{
/* Recurse on that file */
if (!show_file(hook[k], NULL, 0, mode)) ch.code = ESCAPE;
}
}
/* Exit on escape */
if (ch.code == ESCAPE) break;
}
/* Close the file */
file_close(fff);
/* Done */
return (ch.code != '?');
}
/*
* Show previous messages to the user -BEN-
*
* The screen format uses line 0 and (Term->hgt - 1) for headers and prompts,
* skips line 1 and (Term->hgt - 2), and uses line 2 thru (Term->hgt - 3) for
* old messages.
*
* This command shows you which commands you are viewing, and allows
* you to "search" for strings in the recall.
*
* Note that messages may be longer than 80 characters, but they are
* displayed using "infinite" length, with a special sub-command to
* "slide" the virtual display to the left or right.
*
* Attempt to only hilite the matching portions of the string.
*
* Now taking advantages of big-screen. -pav-
*/
void do_cmd_messages(void)
{
s32b i, j, k, n, q;
s32b wid, hgt;
char shower[80];
char finder[80];
/* Wipe finder */
strcpy(finder, "");
/* Wipe shower */
strcpy(shower, "");
/* Total messages */
n = message_num();
/* Start on first message */
i = 0;
/* Start at leftmost edge */
q = 0;
/* Enter "icky" mode */
character_icky++;
/* Save the screen */
Term_save();
/* Process requests until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Retrieve current screen size */
Term_get_size(&wid, &hgt);
/* Dump up to 20 (or more in bigscreen) lines of messages */
for (j = 0; (j < (hgt - 4)) && (i + j < n); j++)
{
cptr msg = message_str(i + j);
byte color = message_color(i + j);
/* Apply horizontal scroll */
msg = (strlen(msg) >= q) ? (msg + q) : "";
/* Dump the messages, bottom to top */
display_message(0, (hgt - 3) - j, strlen(msg), color, msg);
/* Hilite "shower" */
if (shower[0])
{
cptr str = msg;
/* Display matches */
while ((str = strstr(str, shower)) != NULL)
{
s32b len = strlen(shower);
/* Display the match */
Term_putstr(str - msg, (hgt - 3) - j, len, TERM_YELLOW, shower);
/* Advance */
str += len;
}
}
}
/* Display header XXX XXX XXX */
prt(format("Message Recall (%d-%d of %d), Offset %d",
i, i + j - 1, n, q), 0, 0);
/* Display prompt (not very informative) */
prt("[Press 'p' for older, 'n' for newer, ..., or ESCAPE]", hgt - 1, 0);
/* Get a command */
k = inkey();
/* Exit on Escape */
if (k == ESCAPE) break;
/* Hack -- Save the old index */
j = i;
/* Horizontal scroll */
if (k == '4')
{
/* Scroll left */
q = (q >= wid / 2) ? (q - wid / 2) : 0;
/* Success */
continue;
}
/* Horizontal scroll */
if (k == '6')
{
/* Scroll right */
q = q + wid / 2;
/* Success */
continue;
}
/* Hack -- handle show */
if (k == '=')
{
/* Prompt */
prt("Show: ", hgt - 1, 0);
/* Get a "shower" string, or continue */
if (!askfor_aux(shower, 80)) continue;
/* Okay */
continue;
}
/* Hack -- handle find */
if (k == '/')
{
s16b z;
/* Prompt */
prt("Find: ", hgt - 1, 0);
/* Get a "finder" string, or continue */
if (!askfor_aux(finder, 80)) continue;
/* Show it */
strcpy(shower, finder);
/* Scan messages */
for (z = i + 1; z < n; z++)
{
cptr msg = message_str(z);
/* Search for it */
if (strstr(msg, finder))
{
/* New location */
i = z;
/* Done */
break;
}
}
}
/* Recall 1 older message */
if ((k == '8') || (k == '\n') || (k == '\r'))
{
/* Go newer if legal */
if (i + 1 < n) i += 1;
}
/* Recall 10 older messages */
if (k == '+')
{
/* Go older if legal */
if (i + 10 < n) i += 10;
}
/* Recall one screen of older messages */
if ((k == 'p') || (k == KTRL('P')) || (k == ' '))
{
/* Go older if legal */
if (i + (hgt - 4) < n) i += (hgt - 4);
}
/* Recall one screen of newer messages */
if ((k == 'n') || (k == KTRL('N')))
{
/* Go newer (if able) */
i = (i >= (hgt - 4)) ? (i - (hgt - 4)) : 0;
}
/* Recall 10 newer messages */
if (k == '-')
{
/* Go newer (if able) */
i = (i >= 10) ? (i - 10) : 0;
}
/* Recall 1 newer messages */
if (k == '2')
{
/* Go newer (if able) */
i = (i >= 1) ? (i - 1) : 0;
}
/* Hack -- Error of some kind */
if (i == j) bell();
}
/* Restore the screen */
Term_load();
/* Leave "icky" mode */
character_icky--;
}
/*
* Interact with "colors"
*/
void do_cmd_colors(void)
{
s32b i;
PHYSFS_file *fff;
char tmp[160];
char buf[1024];
/* Enter "icky" mode */
character_icky++;
/* Save the screen */
Term_save();
/* Interact until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Ask for a choice */
prt("Interact with Colors", 2, 0);
/* Give some choices */
prt("(1) Load a user pref file", 4, 5);
#ifdef ALLOW_COLORS
prt("(2) Dump colors", 5, 5);
prt("(3) Modify colors", 6, 5);
# ifdef SUPPORT_GAMMA
prt("(4) Gamma correction", 7, 5);
# endif /* SUPPORT_GAMMA */
#endif
/* Prompt */
prt("Command: ", 8, 0);
/* Prompt */
i = inkey();
/* Done */
if (i == ESCAPE) break;
/* Load a 'pref' file */
if (i == '1')
{
/* Prompt */
prt("Command: Load a user pref file", 8, 0);
/* Prompt */
prt("File: ", 10, 0);
/* Default file */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Query */
if (!askfor_aux(tmp, 70)) continue;
/* Process the given filename */
(void)process_pref_file(tmp);
/* Mega-Hack -- react to changes */
Term_xtra(TERM_XTRA_REACT, 0);
/* Mega-Hack -- redraw */
Term_redraw();
}
#ifdef ALLOW_COLORS
/* Dump colors */
else if (i == '2')
{
/* Prompt */
prt("Command: Dump colors", 8, 0);
/* Prompt */
prt("File: ", 10, 0);
/* Default filename */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Get a filename */
if (!askfor_aux(tmp, 70)) continue;
/* Build the filename */
path_build(buf, 1024, TENGINE_DIR_USER, tmp);
/* Append to the file */
fff = my_fopen(buf, "a");
/* Failure */
if (!fff) continue;
/* Start dumping */
fprintf(fff, "\n\n");
fprintf(fff, "# Color redefinitions\n\n");
/* Dump colors */
for (i = 0; i < 256; i++)
{
s32b kv = angband_color_table[i][0];
s32b rv = angband_color_table[i][1];
s32b gv = angband_color_table[i][2];
s32b bv = angband_color_table[i][3];
cptr name = "unknown";
/* Skip non-entries */
if (!kv && !rv && !gv && !bv) continue;
/* Extract the color name */
name = color_names[i];
/* Dump a comment */
fprintf(fff, "# Color '%s'\n", name);
/* Dump the monster attr/char info */
fprintf(fff, "V:%d:0x%02X:0x%02X:0x%02X:0x%02X\n\n",
i, kv, rv, gv, bv);
}
/* All done */
fprintf(fff, "\n\n\n\n");
/* Close */
my_fclose(fff);
/* Message */
msg_print("Dumped color redefinitions.");
}
/* Edit colors */
else if (i == '3')
{
static byte a = 0;
/* Prompt */
prt("Command: Modify colors", 8, 0);
/* Hack -- query until done */
while (1)
{
cptr name;
/* Clear */
clear_from(10);
/* Exhibit the normal colors */
for (i = 0; i < 16; i++)
{
/* Exhibit this color */
Term_putstr(i*4, 20, -1, a, "###");
/* Exhibit all colors */
Term_putstr(i*4, 22, -1, i, format("%3d", i));
}
/* Describe the color */
name = ((color_names[a]) ? color_names[a] : "undefined");
/* Describe the color */
Term_putstr(5, 10, -1, TERM_WHITE,
format("Color = %d, Name = %s", a, name));
/* Label the Current values */
Term_putstr(5, 12, -1, TERM_WHITE,
format("K = 0x%02x / R,G,B = 0x%02x,0x%02x,0x%02x",
angband_color_table[a][0],
angband_color_table[a][1],
angband_color_table[a][2],
angband_color_table[a][3]));
/* Prompt */
Term_putstr(0, 14, -1, TERM_WHITE,
"Command (n/N/k/K/r/R/g/G/b/B): ");
/* Get a command */
i = inkey();
/* All done */
if (i == ESCAPE) break;
/* Analyze */
if (i == 'n') a = (byte)(a + 1);
if (i == 'N') a = (byte)(a - 1);
if (i == 'k') angband_color_table[a][0] = (byte)(angband_color_table[a][0] + 1);
if (i == 'K') angband_color_table[a][0] = (byte)(angband_color_table[a][0] - 1);
if (i == 'r') angband_color_table[a][1] = (byte)(angband_color_table[a][1] + 1);
if (i == 'R') angband_color_table[a][1] = (byte)(angband_color_table[a][1] - 1);
if (i == 'g') angband_color_table[a][2] = (byte)(angband_color_table[a][2] + 1);
if (i == 'G') angband_color_table[a][2] = (byte)(angband_color_table[a][2] - 1);
if (i == 'b') angband_color_table[a][3] = (byte)(angband_color_table[a][3] + 1);
if (i == 'B') angband_color_table[a][3] = (byte)(angband_color_table[a][3] - 1);
/* Hack -- react to changes */
Term_xtra(TERM_XTRA_REACT, 0);
/* Hack -- redraw */
Term_redraw();
}
}
# ifdef SUPPORT_GAMMA
/* Gamma correction */
else if (i == '4')
{
s32b gamma;
/* Prompt */
prt("Command: Gamma correction", 8, 0);
/* gamma_val isn't set - assume 1.0 */
if (gamma_val == 0) gamma = 10;
/* It's set - convert to usual notation (times 10) */
else gamma = 2560 / gamma_val;
/* Hack -- query until done */
while (1)
{
/* Clear */
clear_from(10);
/* Exhibit the normal colors */
for (i = 0; i < 16; i++)
{
/* Exhibit all colors */
Term_putstr(i*4, 22, -1, i, format("%3d", i));
}
/* Describe the gamma */
Term_putstr(5, 10, -1, TERM_WHITE,
format("Gamma = %d.%d", gamma / 10, gamma % 10));
/* Prompt */
Term_putstr(0, 12, -1, TERM_WHITE, "Command (g/G): ");
/* Get a command */
i = inkey();
/* All done */
if (i == ESCAPE) break;
/* Analyze */
if (i == 'g') gamma = (byte)(gamma + 1);
else if (i == 'G') gamma = (byte)(gamma - 1);
else continue;
/* Force limits ([1.0, 2.5]) */
if (gamma < 10) gamma = 10;
if (gamma > 25) gamma = 25;
/* Hack - 1.0 means no correction */
if (gamma == 10) gamma_val = 0;
/* otherwise, calculate gamma_val */
else gamma_val = 2560 / gamma;
/* Hack -- react to changes */
Term_xtra(TERM_XTRA_REACT, 0);
/* Hack -- redraw */
Term_redraw();
}
}
# endif /* SUPPORT_GAMMA */
#endif
/* Unknown option */
else
{
bell();
}
/* Flush messages */
msg_print(NULL);
}
/* Restore the screen */
Term_load();
/* Leave "icky" mode */
character_icky--;
}
/*
* Interact with "visuals"
*/
void do_cmd_visuals(void)
{
s32b i;
PHYSFS_file *fff;
char tmp[160];
char buf[1024];
/* Enter "icky" mode */
character_icky++;
/* Save the screen */
Term_save();
/* Interact until done */
while (1)
{
/* Clear screen */
Term_clear();
/* Ask for a choice */
prt("Interact with Visuals", 2, 0);
/* Give some choices */
prt("(1) Load a user pref file", 4, 5);
#ifdef ALLOW_VISUALS
prt("(2) Dump monster attr/chars", 5, 5);
prt("(3) Dump object attr/chars", 6, 5);
prt("(4) Dump feature attr/chars", 7, 5);
prt("(5) (unused)", 8, 5);
prt("(6) Change monster attr/chars", 9, 5);
prt("(7) Change object attr/chars", 10, 5);
prt("(8) Change feature attr/chars", 11, 5);
prt("(9) (unused)", 12, 5);
#endif
prt("(0) Reset visuals", 13, 5);
/* Prompt */
prt("Command: ", 15, 0);
/* Prompt */
i = inkey();
/* Done */
if (i == ESCAPE) break;
/* Load a 'pref' file */
else if (i == '1')
{
/* Prompt */
prt("Command: Load a user pref file", 15, 0);
/* Prompt */
prt("File: ", 17, 0);
/* Default filename */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Query */
if (!askfor_aux(tmp, 70)) continue;
/* Process the given filename */
(void)process_pref_file(tmp);
}
#ifdef ALLOW_VISUALS
/* Dump monster attr/chars */
else if (i == '2')
{
/* Prompt */
prt("Command: Dump monster attr/chars", 15, 0);
/* Prompt */
prt("File: ", 17, 0);
/* Default filename */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Get a filename */
if (!askfor_aux(tmp, 70)) continue;
/* Build the filename */
path_build(buf, 1024, TENGINE_DIR_USER, tmp);
/* Append to the file */
fff = my_fopen(buf, "a");
/* Failure */
if (!fff) continue;
/* Start dumping */
fprintf(fff, "\n\n");
fprintf(fff, "# Monster attr/char definitions\n\n");
/* Dump monsters */
for (i = 0; i < max_r_idx; i++)
{
monster_race *r_ptr = &r_info[i];
/* Skip non-entries */
if (!r_ptr->name) continue;
/* Dump a comment */
fprintf(fff, "# %s\n", (r_ptr->name));
/* Dump the monster attr/char info */
fprintf(fff, "R:%d:0x%02X:0x%02X\n\n", i,
(byte)(r_ptr->x_attr), (byte)(r_ptr->x_char));
}
/* All done */
fprintf(fff, "\n\n\n\n");
/* Close */
my_fclose(fff);
/* Message */
msg_print("Dumped monster attr/chars.");
}
/* Dump object attr/chars */
else if (i == '3')
{
/* Prompt */
prt("Command: Dump object attr/chars", 15, 0);
/* Prompt */
prt("File: ", 17, 0);
/* Default filename */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Get a filename */
if (!askfor_aux(tmp, 70)) continue;
/* Build the filename */
path_build(buf, 1024, TENGINE_DIR_USER, tmp);
/* Append to the file */
fff = my_fopen(buf, "a");
/* Failure */
if (!fff) continue;
/* Start dumping */
fprintf(fff, "\n\n");
fprintf(fff, "# Object attr/char definitions\n\n");
/* Dump objects */
for (i = 0; i < max_k_idx; i++)
{
object_kind *k_ptr = &k_info[i];
/* Skip non-entries */
if (!k_ptr->name) continue;
/* Dump a comment */
fprintf(fff, "# %s\n", (k_ptr->name));
/* Dump the object attr/char info */
fprintf(fff, "K:%d:0x%02X:0x%02X\n\n", i,
(byte)(k_ptr->x_attr), (byte)(k_ptr->x_char));
}
/* All done */
fprintf(fff, "\n\n\n\n");
/* Close */
my_fclose(fff);
/* Message */
msg_print("Dumped object attr/chars.");
}
/* Dump feature attr/chars */
else if (i == '4')
{
/* Prompt */
prt("Command: Dump feature attr/chars", 15, 0);
/* Prompt */
prt("File: ", 17, 0);
/* Default filename */
strnfmt(tmp, 160, "user-%s.prf", ANGBAND_SYS);
/* Get a filename */
if (!askfor_aux(tmp, 70)) continue;
/* Build the filename */
path_build(buf, 1024, TENGINE_DIR_USER, tmp);
/* Append to the file */
fff = my_fopen(buf, "a");
/* Failure */
if (!fff) continue;
/* Start dumping */
fprintf(fff, "\n\n");
fprintf(fff, "# Feature attr/char definitions\n\n");
/* Dump features */
for (i = 0; i < max_f_idx; i++)
{
feature_type *f_ptr = &f_info[i];
/* Skip non-entries */
if (!f_ptr->name) continue;
/* Dump a comment */
fprintf(fff, "# %s\n", (f_ptr->name));
/* Dump the feature attr/char info */
fprintf(fff, "F:%d:0x%02X:0x%02X\n\n", i,
(byte)(f_ptr->x_attr), (byte)(f_ptr->x_char));
}
/* All done */
fprintf(fff, "\n\n\n\n");
/* Close */
my_fclose(fff);
/* Message */
msg_print("Dumped feature attr/chars.");
}
/* Modify monster attr/chars */
else if (i == '6')
{
static s32b r = 0;
/* Prompt */
prt("Command: Change monster attr/chars", 15, 0);
/* Hack -- query until done */
while (1)
{
monster_race *r_ptr = &r_info[r];
byte da = (r_ptr->d_attr);
char dc = (r_ptr->d_char);
byte ca = (r_ptr->x_attr);
char cc = (r_ptr->x_char);
/* Label the object */
Term_putstr(5, 17, -1, TERM_WHITE,
format("Monster = %d, Name = %-40.40s",
r, (r_ptr->name)));
/* Label the Default values */
Term_putstr(10, 19, -1, TERM_WHITE,
format("Default attr/char = %3u / %3u", da, (dc & 0xFF)));
Term_putstr(40, 19, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 19, da, dc);
if (use_bigtile)
{
if (da & 0x80)
Term_putch(44, 19, 255, 127);
else
Term_putch(44, 19, 0, ' ');
}
/* Label the Current values */
Term_putstr(10, 20, -1, TERM_WHITE,
format("Current attr/char = %3u / %3u", ca, (cc & 0xFF)));
Term_putstr(40, 20, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 20, ca, cc);
if (use_bigtile)
{
if (ca & 0x80)
Term_putch(44, 20, 255, 127);
else
Term_putch(44, 20, 0, ' ');
}
/* Prompt */
Term_putstr(0, 22, -1, TERM_WHITE,
"Command (n/N/a/A/c/C): ");
/* Get a command */
i = inkey();
/* All done */
if (i == ESCAPE) break;
/* Analyze */
if (i == 'n') r = (r + max_r_idx + 1) % max_r_idx;
if (i == 'N') r = (r + max_r_idx - 1) % max_r_idx;
if (i == 'a') r_ptr->x_attr = (byte)(ca + 1);
if (i == 'A') r_ptr->x_attr = (byte)(ca - 1);
if (i == 'c') r_ptr->x_char = (byte)(cc + 1);
if (i == 'C') r_ptr->x_char = (byte)(cc - 1);
}
}
/* Modify object attr/chars */
else if (i == '7')
{
static s32b k = 0;
/* Prompt */
prt("Command: Change object attr/chars", 15, 0);
/* Hack -- query until done */
while (1)
{
object_kind *k_ptr = &k_info[k];
byte da = (byte)k_ptr->d_attr;
char dc = (byte)k_ptr->d_char;
byte ca = (byte)k_ptr->x_attr;
char cc = (byte)k_ptr->x_char;
/* Label the object */
Term_putstr(5, 17, -1, TERM_WHITE,
format("Object = %d, Name = %-40.40s",
k, (k_ptr->name)));
/* Label the Default values */
Term_putstr(10, 19, -1, TERM_WHITE,
format("Default attr/char = %3u / %3u", da, (dc & 0xFF)));
Term_putstr(40, 19, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 19, da, dc);
if (use_bigtile)
{
if (da & 0x80)
Term_putch(44, 19, 255, 127);
else
Term_putch(44, 19, 0, ' ');
}
/* Label the Current values */
Term_putstr(10, 20, -1, TERM_WHITE,
format("Current attr/char = %3u / %3u", ca, (cc & 0xFF)));
Term_putstr(40, 20, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 20, ca, cc);
if (use_bigtile)
{
if (ca & 0x80)
Term_putch(44, 20, 255, 127);
else
Term_putch(44, 20, 0, ' ');
}
/* Prompt */
Term_putstr(0, 22, -1, TERM_WHITE,
"Command (n/N/a/A/c/C): ");
/* Get a command */
i = inkey();
/* All done */
if (i == ESCAPE) break;
/* Analyze */
if (i == 'n') k = (k + max_k_idx + 1) % max_k_idx;
if (i == 'N') k = (k + max_k_idx - 1) % max_k_idx;
if (i == 'a') k_info[k].x_attr = (byte)(ca + 1);
if (i == 'A') k_info[k].x_attr = (byte)(ca - 1);
if (i == 'c') k_info[k].x_char = (byte)(cc + 1);
if (i == 'C') k_info[k].x_char = (byte)(cc - 1);
}
}
/* Modify feature attr/chars */
else if (i == '8')
{
static s32b f = 0;
/* Prompt */
prt("Command: Change feature attr/chars", 15, 0);
/* Hack -- query until done */
while (1)
{
feature_type *f_ptr = &f_info[f];
byte da = (byte)f_ptr->d_attr;
char dc = (byte)f_ptr->d_char;
byte ca = (byte)f_ptr->x_attr;
char cc = (byte)f_ptr->x_char;
/* Label the object */
Term_putstr(5, 17, -1, TERM_WHITE,
format("Terrain = %d, Name = %-40.40s",
f, (f_ptr->name)));
/* Label the Default values */
Term_putstr(10, 19, -1, TERM_WHITE,
format("Default attr/char = %3u / %3u", da, (dc & 0xFF)));
Term_putstr(40, 19, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 19, da, dc);
if (use_bigtile)
{
if (da & 0x80)
Term_putch(44, 19, 255, 127);
else
Term_putch(44, 19, 0, ' ');
}
/* Label the Current values */
Term_putstr(10, 20, -1, TERM_WHITE,
format("Current attr/char = %3u / %3u", ca, (cc & 0xFF)));
Term_putstr(40, 20, -1, TERM_WHITE, "<< ? >>");
Term_putch(43, 20, ca, cc);
if (use_bigtile)
{
if (ca & 0x80)
Term_putch(44, 20, 255, 127);
else
Term_putch(44, 20, 0, ' ');
}
/* Prompt */
Term_putstr(0, 22, -1, TERM_WHITE,
"Command (n/N/a/A/c/C/d): ");
/* Get a command */
i = inkey();
/* All done */
if (i == ESCAPE) break;
/* Analyze */
if (i == 'n') f = (f + max_f_idx + 1) % max_f_idx;
if (i == 'N') f = (f + max_f_idx - 1) % max_f_idx;
if (i == 'a') f_info[f].x_attr = (byte)(ca + 1);
if (i == 'A') f_info[f].x_attr = (byte)(ca - 1);
if (i == 'c') f_info[f].x_char = (byte)(cc + 1);
if (i == 'C') f_info[f].x_char = (byte)(cc - 1);
if (i == 'd')
{
f_info[f].x_char = f_ptr->d_char;
f_info[f].x_attr = f_ptr->d_attr;
}
}
}
#endif
/* Reset visuals */
else if (i == '0')
{
/* Reset */
reset_visuals();
/* Message */
msg_print("Visual attr/char tables reset.");
}
/* Unknown option */
else
{
bell();
}
/* Flush messages */
msg_print(NULL);
}
/* Restore the screen */
Term_load();
/* Leave "icky" mode */
character_icky--;
}
/*
* Get the racial history, and social class, using the "history charts".
*/
static bool get_history(void)
{
int i;
char line[70];
char query2;
int loopagain = TRUE;
// hack to see whether we are opening an old player file
bool roll_history = !(p_ptr->history[0]);
while (loopagain == TRUE)
{
if (roll_history)
{
/*get the random history, display for approval. */
get_history_aux();
}
else
{
roll_history = TRUE;
}
/* Display the player */
display_player(0);
// Highlight relevant info
display_player_xtra_info(2);
/* Prompt */
Term_putstr(QUESTION_COL, INSTRUCT_ROW + 1, -1, TERM_SLATE,
"Enter accept history");
Term_putstr(QUESTION_COL, INSTRUCT_ROW + 2, -1, TERM_SLATE,
"Space reroll history");
Term_putstr(QUESTION_COL, INSTRUCT_ROW + 3, -1, TERM_SLATE,
" m manually enter history");
/* Hack - highlight the key names */
Term_putstr(QUESTION_COL, INSTRUCT_ROW + 1, - 1, TERM_L_WHITE, "Enter");
Term_putstr(QUESTION_COL, INSTRUCT_ROW + 2, - 1, TERM_L_WHITE, "Space");
Term_putstr(QUESTION_COL + 4, INSTRUCT_ROW + 3, - 1, TERM_L_WHITE, "m");
/* Move the cursor */
Term_gotoxy(0, INSTRUCT_ROW + 1);
/* Query */
query2 = inkey();
if ((query2 == '\r') || (query2 == '\n'))
{
/* got a history*/
loopagain = FALSE;
p_ptr->redraw |= (PR_MISC);
}
else if ((query2 == 'm') || (query2 == 'M'))
{
/* don't want a random history */
/* Clear the previous history strings */
p_ptr->history[0] = '\0';
/* Display the player */
display_player(0);
for (i = 1; i <= 3; i++)
{
// clear line
line[0] = '\0';
Term_gotoxy(1, 15+i);
/* Prompt for a new history */
if (askfor_aux(line, sizeof(line)))
{
/* Get the textual history */
my_strcat(p_ptr->history, line, sizeof(p_ptr->history));
/* Add a space */
my_strcat(p_ptr->history, "\n", sizeof(p_ptr->history));
p_ptr->redraw |= (PR_MISC);
/* Display the player */
display_player(0);
}
else
{
return (FALSE);
}
}
// confirm the choices
if (!get_history()) return (FALSE);
loopagain = FALSE;
}
else if (query2 == ESCAPE) return (FALSE);
else if (((query2 == 'Q') || (query2 == 'q')) && (turn == 0)) quit (NULL);
}
return (TRUE);
}