/*
* Parse a sub-file of the "extra info" (format shown below)
*
* Each "action" line has an "action symbol" in the first column,
* followed by a colon, followed by some command specific info,
* usually in the form of "tokens" separated by colons or slashes.
*
* Blank lines, lines starting with white space, and lines starting
* with pound signs ("#") are ignored (as comments).
*
* Note the use of "tokenize()" to allow the use of both colons and
* slashes as delimeters, while still allowing final tokens which
* may contain any characters including "delimiters".
*
* Note the use of "strtol()" to allow all "integers" to be encoded
* in decimal, hexidecimal, or octal form.
*
* Note that "monster zero" is used for the "player" attr/char, "object
* zero" will be used for the "stack" attr/char, and "feature zero" is
* used for the "nothing" attr/char.
*
* Specify the attr/char values for "monsters" by race index.
* R:<num>:<a>/<c>
*
* Specify the attr/char values for "objects" by kind index.
* K:<num>:<a>/<c>
*
* Specify the attr/char values for "features" by feature index.
* F:<num>:<a>/<c>
*
* Specify the attr/char values for "special" things.
* S:<num>:<a>/<c>
*
* Specify the attribute values for inventory "objects" by kind tval.
* E:<tv>:<a>
*
* Define a macro action, given an encoded macro action.
* A:<str>
*
* Create a macro, given an encoded macro trigger.
* P:<str>
*
* Create a keymap, given an encoded keymap trigger.
* C:<num>:<str>
*
* Turn an option off, given its name.
* X:<str>
*
* Turn an option on, given its name.
* Y:<str>
*
* Turn a window flag on or off, given a window, flag, and value.
* W:<win>:<flag>:<value>
*
* Specify visual information, given an index, and some data.
* V:<num>:<kv>:<rv>:<gv>:<bv>
*
* Specify colors for message-types.
* M:<type>:<attr>
*
* Specify the attr/char values for "flavors" by flavors index.
* L:<num>:<a>/<c>
*/
errr process_pref_file_command(char *buf)
{
long i;
char *zz[16];
/* Skip "empty" lines */
if (!buf[0]) return (0);
/* Skip "blank" lines */
if (isspace((unsigned char)buf[0])) return (0);
/* Skip comments */
if (buf[0] == '#') return (0);
/* Paranoia */
/* if (strlen(buf) >= 1024) return (1); */
/* Require "?:*" format */
if (buf[1] != ':') return (1);
/*
* Hookifying this.
* Designate certain types of preference lines that are called out
* to the user.
*
*/
#ifndef AVT_HOOKIFY_PREFS
/* Process "R:<num>:<a>/<c>" -- attr/char for monster races */
if (buf[0] == 'R')
{
if (tokenize(buf+2, 3, zz) == 3)
{
monster_race *r_ptr;
i = strtol(zz[0], NULL, 0);
n1 = strtol(zz[1], NULL, 0);
n2 = strtol(zz[2], NULL, 0);
if ((i < 0) || (i >= (long)z_info->r_max)) return (1);
r_ptr = &r_info[i];
if (n1) r_ptr->x_attr = (byte)n1;
if (n2) r_ptr->x_char = (char)n2;
return (0);
}
}
/* Process "K:<num>:<a>/<c>" -- attr/char for object kinds */
else if (buf[0] == 'K')
{
if (tokenize(buf+2, 3, zz) == 3)
{
object_kind *k_ptr;
i = strtol(zz[0], NULL, 0);
n1 = strtol(zz[1], NULL, 0);
n2 = strtol(zz[2], NULL, 0);
if ((i < 0) || (i >= (long)z_info->k_max)) return (1);
k_ptr = &k_info[i];
if (n1) k_ptr->x_attr = (byte)n1;
if (n2) k_ptr->x_char = (char)n2;
return (0);
}
}
/* Process "F:<num>:<a>/<c>" -- attr/char for terrain features */
else if (buf[0] == 'F')
{
if (tokenize(buf+2, 3, zz) == 3)
{
feature_type *f_ptr;
i = strtol(zz[0], NULL, 0);
n1 = strtol(zz[1], NULL, 0);
n2 = strtol(zz[2], NULL, 0);
if ((i < 0) || (i >= (long)z_info->f_max)) return (1);
f_ptr = &f_info[i];
if (n1) f_ptr->x_attr = (byte)n1;
if (n2) f_ptr->x_char = (char)n2;
return (0);
}
}
/* Process "L:<num>:<a>/<c>" -- attr/char for flavors */
else if (buf[0] == 'L')
{
if (tokenize(buf+2, 3, zz) == 3)
{
flavor_type *flavor_ptr;
i = strtol(zz[0], NULL, 0);
n1 = strtol(zz[1], NULL, 0);
n2 = strtol(zz[2], NULL, 0);
if ((i < 0) || (i >= (long)z_info->flavor_max)) return (1);
flavor_ptr = &flavor_info[i];
if (n1) flavor_ptr->x_attr = (byte)n1;
if (n2) flavor_ptr->x_char = (char)n2;
return (0);
}
}
/* Process "S:<num>:<a>/<c>" -- attr/char for special things */
else if (buf[0] == 'S')
{
if (tokenize(buf+2, 3, zz) == 3)
{
i = strtol(zz[0], NULL, 0);
n1 = strtol(zz[1], NULL, 0);
n2 = strtol(zz[2], NULL, 0);
if ((i < 0) || (i >= (long)N_ELEMENTS(misc_to_attr))) return (1);
misc_to_attr[i] = (byte)n1;
misc_to_char[i] = (char)n2;
return (0);
}
}
/* Process "E:<tv>:<a>" -- attribute for inventory objects */
else if (buf[0] == 'E')
{
if (tokenize(buf+2, 2, zz) == 2)
{
i = strtol(zz[0], NULL, 0) % 128;
n1 = strtol(zz[1], NULL, 0);
if ((i < 0) || (i >= (long)N_ELEMENTS(tval_to_attr))) return (1);
if (n1) tval_to_attr[i] = (byte)n1;
return (0);
}
}
else
#endif /* AVT_HOOKIFY_PREFS */
/* Process "A:<str>" -- save an "action" for later */
if (buf[0] == 'A')
{
text_to_ascii(macro_buffer, sizeof(macro_buffer), buf+2);
return (0);
}
/* Process "P:<str>" -- create macro */
#ifdef AVT_USE_MACROS
else if (buf[0] == 'P')
{
char tmp[1024];
text_to_ascii(tmp, sizeof(tmp), buf+2);
macro_add(tmp, macro_buffer);
return (0);
}
else
#endif
/* Process "C:<num>:<str>" -- create keymap */
if (buf[0] == 'C')
{
long mode;
char tmp[1024];
if (tokenize(buf+2, 2, zz) != 2) return (1);
mode = strtol(zz[0], NULL, 0);
if ((mode < 0) || (mode >= KEYMAP_MODES)) return (1);
text_to_ascii(tmp, sizeof(tmp), zz[1]);
if (!tmp[0] || tmp[1]) return (1);
i = (long)tmp[0];
string_free(keymap_act[mode][i]);
keymap_act[mode][i] = string_make(macro_buffer);
return (0);
}
/* Process "V:<num>:<kv>:<rv>:<gv>:<bv>" -- visual info */
else if (buf[0] == 'V')
{
if (tokenize(buf+2, 5, zz) == 5)
{
i = strtol(zz[0], NULL, 0);
if ((i < 0) || (i >= 256)) return (1);
angband_color_table[i][0] = (byte)strtol(zz[1], NULL, 0);
angband_color_table[i][1] = (byte)strtol(zz[2], NULL, 0);
angband_color_table[i][2] = (byte)strtol(zz[3], NULL, 0);
angband_color_table[i][3] = (byte)strtol(zz[4], NULL, 0);
return (0);
}
}
/* Process "X:<str>" -- turn option off */
else if (buf[0] == 'X')
{
/* Check non-adult options */
for (i = 0; i < OPT_ADULT; i++)
{
#ifndef AVT_HOOKIFY_OPTIONS
if (option_text[i] && streq(option_text[i], buf + 2))
{
op_ptr->opt[i] = FALSE;
return (0);
}
#endif
}
}
/* Process "Y:<str>" -- turn option on */
else if (buf[0] == 'Y')
{
/* Check non-adult options */
for (i = 0; i < OPT_ADULT; i++)
{
#ifndef AVT_HOOKIFY_OPTIONS
if (option_text[i] && streq(option_text[i], buf + 2))
{
op_ptr->opt[i] = TRUE;
return (0);
}
#endif
}
}
/* Process "W:<win>:<flag>:<value>" -- window flags */
else if (buf[0] == 'W')
{
long win, flag, value;
if (tokenize(buf + 2, 3, zz) == 3)
{
win = strtol(zz[0], NULL, 0);
flag = strtol(zz[1], NULL, 0);
value = strtol(zz[2], NULL, 0);
/* Ignore illegal windows */
/* Hack -- Ignore the main window */
if ((win <= 0) || (win >= ANGBAND_TERM_MAX)) return (1);
/* Ignore illegal flags */
if ((flag < 0) || (flag >= 32)) return (1);
#ifndef AVT_HOOKIFY_WINDOW_FLAGS
/* Require a real flag */
if (window_flag_desc[flag])
{
if (value)
{
/* Turn flag on */
op_ptr->window_flag[win] |= (1L << flag);
}
else
{
/* Turn flag off */
op_ptr->window_flag[win] &= ~(1L << flag);
}
}
#endif
/* Success */
return (0);
}
}
/* Process "M:<type>:<attr>" -- colors for message-types */
else if (buf[0] == 'M')
{
if (tokenize(buf+2, 2, zz) == 2)
{
long type = strtol(zz[0], NULL, 0);
int color = color_char_to_attr(zz[1][0]);
/* Ignore illegal color */
if (color < 0) return (1);
/* Store the color */
return (message_color_define((u16b)type, (byte)color));
}
}
#ifdef AVT_HOOKIFY_PREFS
else {
/* Handle any hooked prefs. Warn on anything that we can't handle.
*/
return 0;
}
#endif
/* Failure */
return (1);
}
/*
* 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--;
}
