/*
* Dump the skill tree
*/
void dump_skills(PHYSFS_file *fff)
{
s32b i, j, max = 0;
s32b **table;
char buf[80];
C_MAKE(table, max_s_idx, s32b*);
for (i = 0; i < max_s_idx; i++) C_MAKE(table[i], 2, s32b);
init_table(table, &max, TRUE);
fprintf(fff, "\nSkills (points left: %d)", p_ptr->skill_points);
for (j = 0; j < max; j++)
{
s32b z;
i = table[j][0];
if (get_skill(i) == 0)
{
if (s_info[i].mod == 0) continue;
}
sprintf(buf, "\n");
for (z = 0; z < table[j][1]; z++) strcat(buf, " ");
if (!has_child(i))
{
strcat(buf, format(" . %s", s_info[i].name));
}
else
{
strcat(buf, format(" - %s", s_info[i].name));
}
fprintf(fff, "%-50s%c%02ld.%03ld [%01d.%03d]", buf, (get_skill_raw(i) < 0) ? '-' : ' ',
abs(get_skill_raw(i)) / SKILL_STEP, abs(get_skill_raw(i)) % SKILL_STEP,
s_info[i].mod / 1000, s_info[i].mod % 1000);
}
fprintf(fff, "\n");
for (i = 0; i < max_s_idx; i++) C_FREE(table[i], 2, s32b);
C_FREE(table, max_s_idx, s32b*);
}
/* Initialize the screen font */
static void initfont(void)
{
gzFile fontfile;
void *temp;
long junk;
if (!(fontfile = gzopen("/usr/lib/kbd/consolefonts/lat1-12.psf.gz", "r")))
{
/* Try uncompressed */
if (!(fontfile = gzopen("/usr/lib/kbd/consolefonts/lat1-12.psf", "r")))
{
printf ("Error: could not open font file. Aborting....\n");
exit(1);
}
}
/* Junk the 4-byte header */
gzread(fontfile, &junk, 4);
/* Initialize font */
/*
* Read in 13 bytes per character, and there are 256 characters
* in the font. This means we need to load 13x256 = 3328 bytes.
*/
C_MAKE(temp, 256 * 13, byte);
gzread(fontfile, temp, 256 * 13);
/*
* I don't understand this code - SF
* (Is it converting from 8x13 -> 8x12?)
*
* I assume 15 is a colour...
*/
font = malloc(256 * 8 * 12 * BYTESPERPIXEL);
gl_expandfont(8, 12, 15, temp, font);
gl_setfont(8, 12, font);
/* Cleanup */
C_FREE(temp, 256 * 13, byte);
gzclose(fontfile);
}
static power_type* select_power(s32b *x_idx)
{
s32b which;
s32b max = 0, i, start = 0;
power_type* ret;
bool mode = easy_inven;
s32b *p;
C_MAKE(p, power_max, s32b);
/* Count the max */
for (i = 0; i < power_max; i++)
{
if (flag_get(&p_ptr->powers, i))
{
p[max++] = i;
}
}
/* Exit if there aren't powers */
if (max == 0)
{
*x_idx = -1;
ret = NULL;
msg_print("You don't have any special powers.");
}
else
{
character_icky++;
Term_save();
while (1)
{
print_power_batch(p, start, max, mode);
which = inkey();
if (which == ESCAPE)
{
*x_idx = -1;
ret = NULL;
break;
}
else if (which == '*' || which == '?' || which == ' ')
{
mode = (mode) ? FALSE : TRUE;
Term_load();
character_icky--;
}
else if (which == '+')
{
start += 20;
if (start >= max) start -= 20;
Term_load();
character_icky--;
}
else if (which == '-')
{
start -= 20;
if (start < 0) start += 20;
Term_load();
character_icky--;
}
else
{
which = tolower(which);
if (start + A2I(which) >= max)
{
bell();
continue;
}
if (start + A2I(which) < 0)
{
bell();
continue;
}
*x_idx = p[start + A2I(which)];
ret = &powers_type[p[start + A2I(which)]];
break;
}
}
Term_load();
character_icky--;
}
C_FREE(p, power_max, s32b);
return ret;
}
int do_cmd_activate_skill_aux()
{
char which;
int max = 0, i, start = 0;
int ret;
bool mode = FALSE;
int *p;
cptr *p_desc;
C_MAKE(p, max_s_idx + max_ab_idx, int);
C_MAKE(p_desc, max_s_idx + max_ab_idx, cptr);
/* Count the max */
/* More than 1 melee skill ? */
if (get_melee_skills() > 1)
{
p_desc[max] = "Change melee mode";
p[max++] = 0;
}
for (i = 1; i < max_s_idx; i++)
{
if (s_info[i].action_mkey && s_info[i].value && ((!s_info[i].hidden) || (i == SKILL_LEARN)))
{
int j;
bool next = FALSE;
/* Already got it ? */
for (j = 0; j < max; j++)
{
if (s_info[i].action_mkey == p[j])
{
next = TRUE;
break;
}
}
if (next) continue;
p_desc[max] = s_text + s_info[i].action_desc;
p[max++] = s_info[i].action_mkey;
}
}
for (i = 0; i < max_ab_idx; i++)
{
if (ab_info[i].action_mkey && ab_info[i].acquired)
{
int j;
bool next = FALSE;
/* Already got it ? */
for (j = 0; j < max; j++)
{
if (ab_info[i].action_mkey == p[j])
{
next = TRUE;
break;
}
}
if (next) continue;
p_desc[max] = ab_text + ab_info[i].action_desc;
p[max++] = ab_info[i].action_mkey;
}
}
if (!max)
{
msg_print("You don't have any activable skills or abilities.");
return -1;
}
character_icky = TRUE;
Term_save();
while (1)
{
print_skill_batch(p, p_desc, start, max, mode);
which = inkey();
if (which == ESCAPE)
{
ret = -1;
break;
}
else if (which == '*' || which == '?' || which == ' ')
{
mode = (mode) ? FALSE : TRUE;
Term_load();
character_icky = FALSE;
}
else if (which == '+')
{
start += 20;
if (start >= max) start -= 20;
Term_load();
character_icky = FALSE;
}
else if (which == '-')
{
start -= 20;
if (start < 0) start += 20;
Term_load();
character_icky = FALSE;
}
else if (which == '@')
{
char buf[80];
strcpy(buf, "Cast a spell");
if (!get_string("Skill action? ", buf, 79))
return FALSE;
/* Find the skill it is related to */
for (i = 0; i < max; i++)
{
if (!strcmp(buf, p_desc[i]))
break;
}
if ((i < max))
{
ret = p[i];
break;
}
}
else
{
which = tolower(which);
if (start + A2I(which) >= max)
{
bell();
continue;
}
if (start + A2I(which) < 0)
{
bell();
continue;
}
ret = p[start + A2I(which)];
break;
}
}
Term_load();
character_icky = FALSE;
C_FREE(p, max_s_idx + max_ab_idx, int);
C_FREE(p_desc, max_s_idx + max_ab_idx, cptr);
return ret;
}
/*
* 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);
}
void do_get_new_skill()
{
char *items[4];
s32b skl[4];
s32b val[4], mod[4];
bool *used;
s32b *available_skills;
s32b max = 0, max_a = 0, res, i;
C_MAKE(used, max_s_idx, bool);
C_MAKE(available_skills, max_s_idx, s32b);
/* Check if some skills didn't influence other stuff */
recalc_skills(TRUE);
/* Grab the ones we can gain */
max = 0;
for (i = 0; i < max_s_idx; i++)
{
if (has_flag(&s_info[i], FLAG_RANDOM_GAIN))
available_skills[max++] = i;
}
available_skills[max++] = -1;
/* Init */
for (max = 0; max < max_s_idx; max++)
{
used[max] = FALSE;
}
/* Count the number of available skills */
while (available_skills[max_a] != -1) max_a++;
/* Get 4 skills */
for (max = 0; max < 4; max++)
{
s32b i;
skill_type *s_ptr;
/* Get an non used skill */
do
{
i = rand_int(max_a);
/* Does it pass the check? */
if (!magik(get_flag(&s_info[i], FLAG_RANDOM_GAIN)))
continue;
}
while (used[available_skills[i]]);
s_ptr = &s_info[available_skills[i]];
used[available_skills[i]] = TRUE;
if (s_ptr->mod)
{
if (s_ptr->mod < 500)
{
val[max] = s_ptr->mod * 1;
mod[max] = 100;
if (mod[max] + s_ptr->mod > 500)
mod[max] = 500 - s_ptr->mod;
}
else
{
val[max] = s_ptr->mod * 3;
mod[max] = 0;
}
}
else
{
mod[max] = 300;
val[max] = 1000;
}
if (s_ptr->value + val[max] > SKILL_MAX) val[max] = SKILL_MAX - s_ptr->value;
skl[max] = available_skills[i];
items[max] = (char *)string_make(format("%-40s: +%02ld.%03ld value, +%01d.%03d modifier", s_ptr->name, val[max] / SKILL_STEP, val[max] % SKILL_STEP, mod[max] / SKILL_STEP, mod[max] % SKILL_STEP));
}
while (TRUE)
{
res = ask_menu("Choose a skill to learn(a-d to choose, ESC to cancel)?", (char **)items, 4);
/* Ok ? lets learn ! */
if (res > -1)
{
skill_type *s_ptr;
bool oppose = FALSE;
s32b oppose_skill = -1;
/* Check we don't oppose an existing skill */
for (i = 0; i < max_s_idx; i++)
{
if ((flag_get(&s_info[i].action, skl[res]) == SKILL_EXCLUSIVE) &&
(s_info[i].value != 0))
{
oppose = TRUE;
oppose_skill = i;
break;
}
}
/* Ok we oppose, so be sure */
if (oppose)
{
cptr msg;
/*
* Because this is SO critical a question, we must flush
* input to prevent killing character off -- pelpel
*/
flush();
/* Prepare prompt */
msg = format("This skill is mutually exclusive with "
"at least %s, continue?",
s_info[oppose_skill].name);
/* The player rejected the choice */
if (!get_check(msg)) continue;
}
s_ptr = &s_info[skl[res]];
s_ptr->value += val[res];
s_ptr->mod += mod[res];
if (mod[res])
{
msg_format("You can now learn the %s skill.",
s_ptr->name);
}
else
{
msg_format("Your knowledge of the %s skill increases.",
s_ptr->name);
}
break;
}
}
/* Free them ! */
for (max = 0; max < 4; max++)
{
string_free(items[max]);
}
/* Check if some skills didn't influence other stuff */
recalc_skills(FALSE);
C_FREE(used, max_s_idx, bool);
C_FREE(available_skills, max_s_idx, s32b);
}
s32b do_cmd_activate_skill_aux(s32b type)
{
s32b which;
s32b max = 0, i, start = 0;
s32b ret = 0, x_idx;
bool mode = easy_inven;
s32b *p;
cptr *p_desc;
C_MAKE(p, max_s_idx + max_ab_idx, s32b);
C_MAKE(p_desc, max_s_idx + max_ab_idx, cptr);
/* Count the max */
/* More than 1 combat skill ? */
if (get_combat_num() > 1)
{
p_desc[max] = "Change combat mode";
p[max++] = 0;
}
for (i = 1; i < max_s_idx; i++)
{
x_idx = s_info[i].action_mkey[type];
if (x_idx && get_skill(i) && (!s_info[i].hidden))
{
s32b j;
bool next = FALSE;
/* Already got it ? */
for (j = 0; j < max; j++)
{
if (x_idx == p[j])
{
next = TRUE;
break;
}
}
if (next) continue;
if(process_hooks(HOOK_MKEY_HIDE, "(d,d)", x_idx, type))
continue;
p_desc[max] = s_info[i].action_desc[type];
p[max++] = x_idx;
}
}
for (i = 0; i < max_ab_idx; i++)
{
x_idx = ab_info[i].action_mkey[type];
if (x_idx && ab_info[i].acquired)
{
s32b j;
bool next = FALSE;
/* Already got it ? */
for (j = 0; j < max; j++)
{
if (x_idx == p[j])
{
next = TRUE;
break;
}
}
if (next) continue;
if(process_hooks(HOOK_MKEY_HIDE, "(d,d)", x_idx, type))
continue;
p_desc[max] = ab_info[i].action_desc[type];
p[max++] = x_idx;
}
}
if (!max)
{
msg_print("You don't have any activable skills or abilities.");
return -1;
}
character_icky++;
Term_save();
while (1)
{
print_skill_batch(p, p_desc, start, max, mode);
which = inkey();
if (which == ESCAPE)
{
ret = -1;
break;
}
else if (which == '*' || which == '?' || which == ' ')
{
mode = (mode) ? FALSE : TRUE;
Term_load();
Term_save();
}
else if (which == '+')
{
start += 20;
if (start >= max) start -= 20;
Term_load();
Term_save();
}
else if (which == '-')
{
start -= 20;
if (start < 0) start += 20;
Term_load();
Term_save();
}
else if (which == '@')
{
char buf[80];
strcpy(buf, "Cast a spell");
if (!get_string("Skill action? ", buf, 79))
break;
/* Find the skill it is related to */
for (i = 0; i < max; i++)
{
if (!strcmp(buf, p_desc[i]))
break;
}
if ((i < max))
{
ret = p[i];
break;
}
}
else
{
which = tolower(which);
if (start + A2I(which) >= max)
{
bell();
continue;
}
if (start + A2I(which) < 0)
{
bell();
continue;
}
ret = p[start + A2I(which)];
break;
}
}
Term_load();
character_icky--;
C_FREE(p, max_s_idx + max_ab_idx, s32b);
C_FREE(p_desc, max_s_idx + max_ab_idx, cptr);
return ret;
}
/*
* Interreact with skills
*/
void do_cmd_skill()
{
s32b sel = 0, start = 0, max, max_ab = 0;
s32b c;
s32b **table, *table_ab;
s32b i;
s32b wid, hgt;
s16b skill_points_save;
s32b *skill_values_save;
s32b *skill_mods_save;
s16b *skill_rates_save;
s16b *skill_invest;
s32b *skill_bonus;
bool *ab_learned;
recalc_skills(TRUE);
/* Save the screen */
screen_save();
/* Allocate arrays to save skill values */
C_MAKE(table, max_s_idx, s32b*);
for (i = 0; i < max_s_idx; i++) C_MAKE(table[i], 2, s32b);
C_MAKE(skill_values_save, max_s_idx, s32b);
C_MAKE(skill_mods_save, max_s_idx, s32b);
C_MAKE(skill_rates_save, max_s_idx, s16b);
C_MAKE(skill_invest, max_s_idx, s16b);
C_MAKE(skill_bonus, max_s_idx, s32b);
/* Initialise the abilities list */
C_MAKE(ab_learned, max_ab_idx, s32b);
C_MAKE(table_ab, max_ab_idx, s32b);
for (i = 0; i < max_ab_idx; i++)
{
ab_learned[i] = ab_info[i].acquired;
if (ab_info[i].name &&
(wizard || (!ab_info[i].hidden && show_ability(i))))
add_sorted_ability(table_ab, &max_ab, i);
}
/* 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);
if (max) max++;
if (max_ab) max_ab++;
if (max > 1) sel = 1;
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_all(table, max, table_ab, max_ab, sel, start);
/* Wait for user input */
c = inkey();
/* Leave the skill screen */
if (c == ESCAPE) break;
/* Expand / collapse list of skills */
else if ((sel < max) && (sel != 0) && (c == '\r'))
{
if (s_info[table[sel-1][0]].dev) s_info[table[sel-1][0]].dev = FALSE;
else s_info[table[sel-1][0]].dev = TRUE;
init_table(table, &max, FALSE);
max++;
}
/* Next page */
else if (c == 'n')
{
sel += (hgt - 7);
if (sel >= max + max_ab) sel = max + max_ab - 1;
}
/* Previous page */
else if (c == 'p')
{
sel -= (hgt - 7);
if (sel < 0) sel = 0;
}
/* Select / increase a skill */
else
{
s32b 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--;
if (sel == 0 || sel == max)
{
// Nothing
}
else if (sel < max)
{
/* Increase the current skill */
if (dir == 6) increase_skill(table[sel-1][0], skill_invest);
/* Decrease the current skill */
if (dir == 4) decrease_skill(table[sel-1][0], skill_invest);
/* XXX XXX XXX Wizard mode commands outside of wizard2.c */
/* Increase the skill */
if (wizard && (c == '+')) skill_bonus[table[sel-1][0]] += SKILL_STEP;
/* Decrease the skill */
if (wizard && (c == '-')) skill_bonus[table[sel-1][0]] -= SKILL_STEP;
/* Contextual help */
if (c == '?') exec_lua(format("ingame_help('select_context', 'skill', '%s')", s_info[table[sel-1][0]].name));
}
else
{
/* Gain ability */
if (dir == 6) gain_ability(table_ab[sel-1 - max]);
if (dir == 4) ungain_ability(table_ab[sel-1 - max], ab_learned[table_ab[sel-1 - max]]);
/* XXX XXX XXX Wizard mode commands outside of wizard2.c */
if (wizard && (c == '+')) ab_info[table_ab[sel-1 - max]].acquired = TRUE;
if (wizard && (c == '-')) ab_info[table_ab[sel-1 - max]].acquired = FALSE;
/* Contextual help */
if (c == '?') exec_lua(format("ingame_help('select_context', 'ability', '%s')", ab_info[table_ab[sel-1 - max]].name));
}
/* Handle boundaries and scrolling */
if (sel < 0) sel = max + max_ab - 1;
/* Just in case the skill and ability list is empty */
if (sel < 0) sel = 0;
if (sel >= max + max_ab) 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)", (s32b)(hgt / 2), (s32b)(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];
}
/* Restore abilities */
for (i = 0; i < max_ab_idx; i++)
{
ab_info[i].acquired = ab_learned[i];
}
}
}
/* Free arrays to save skill values */
C_FREE(skill_values_save, max_s_idx, s32b);
C_FREE(skill_mods_save, max_s_idx, s32b);
C_FREE(skill_rates_save, max_s_idx, s16b);
C_FREE(skill_invest, max_s_idx, s16b);
C_FREE(skill_bonus, max_s_idx, s32b);
for (i = 0; i < max_s_idx; i++) C_FREE(table[i], 2, s32b);
C_FREE(table, max_s_idx, s32b*);
C_FREE(ab_learned, max_ab_idx, s32b);
C_FREE(table_ab, max_ab_idx, s32b);
/* Load the screen */
screen_load();
recalc_skills(FALSE);
}
/*
* Interreact with abilitiess
*/
void do_cmd_ability()
{
s32b sel = 0, start = 0, max = 0;
s32b c;
s32b *table;
s32b i;
s32b wid, hgt;
if(!&ab_info[0])
{
msg_print("There are no abilities for you to learn!");
return;
}
C_MAKE(table, max_ab_idx, s32b);
/* Initialise the abilities list */
for (i = 0; i < max_ab_idx; i++)
{
if (ab_info[i].name &&
(wizard || (!ab_info[i].hidden && show_ability(i))))
add_sorted_ability(table, &max, i);
}
if (max == 0)
{
C_FREE(table, max_ab_idx, s32b);
msg_print("There are no abilities for you to learn!");
return;
}
/* Save the screen */
screen_save();
/* Clear the screen */
Term_clear();
while (TRUE)
{
Term_get_size(&wid, &hgt);
/* Display list of skills */
print_abilities(table, max, sel, start);
/* Wait for user input */
c = inkey();
/* Leave the skill screen */
if (c == ESCAPE) break;
/* 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
{
s32b 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--;
/* gain ability */
if (dir == 6) gain_ability(table[sel]);
/* XXX XXX XXX Wizard mode commands outside of wizard2.c */
if (wizard && (c == '+')) ab_info[table[sel]].acquired = TRUE;
if (wizard && (c == '-')) ab_info[table[sel]].acquired = FALSE;
/* Contextual help */
if (c == '?') exec_lua(format("ingame_help('select_context', 'ability', '%s')", ab_info[table[sel]].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;
}
}
/* Load the screen */
screen_load();
C_FREE(table, max_ab_idx, s32b);
/* Update stuffs */
p_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS | PU_POWERS |
PU_SANITY | PU_BODY);
/* Redraw various info */
flag_bool(&p_ptr->redraw, FLAG_PR_WIPE);
flag_bool(&p_ptr->redraw, FLAG_PR_BASIC);
flag_bool(&p_ptr->redraw, FLAG_PR_EXTRA);
flag_bool(&p_ptr->redraw, FLAG_PR_MAP);
}
