/*************************************************************************** * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * * * Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * * * In order to use any part of this Merc Diku Mud, you must comply with * * both the original Diku license in 'license.doc' as well the Merc * * license in 'license.txt'. In particular, you may not remove either of * * these copyright notices. * * * * Much time and thought has gone into this software and you are * * benefitting. We hope that you share your changes too. What goes * * around, comes around. * ***************************************************************************/ /*************************************************************************** * ROM 2.4 is copyright 1993-1998 Russ Taylor * * ROM has been brought to you by the ROM consortium * * Russ Taylor (rtaylor@hypercube.org) * * Gabrielle Taylor (gtaylor@hypercube.org) * * Brian Moore (zump@rom.org) * * By using this code, you have agreed to follow the terms of the * * ROM license, in the file Rom24/doc/rom.license * ***************************************************************************/ #include <sys/types.h> #if !defined(WIN32) #include <sys/time.h> #endif #include <stdio.h> #include <string.h> #include <stdlib.h> #include "merc.h" #include "interp.h" #include "magic.h" #include "recycle.h" /* used to get new skills */ CH_CMD ( do_gain ) { char buf[MAX_STRING_LENGTH]; char arg[MAX_INPUT_LENGTH]; CHAR_DATA *trainer; int gn = 0, sn = 0; if ( IS_NPC ( ch ) ) return; /* find a trainer */ for ( trainer = ch->in_room->people; trainer != NULL; trainer = trainer->next_in_room ) if ( IS_NPC ( trainer ) && IS_SET ( trainer->act, ACT_GAIN ) ) break; if ( trainer == NULL || !can_see ( ch, trainer ) ) { chsend ( "You can't do that here.\n\r", ch ); return; } one_argument ( argument, arg ); if ( arg[0] == '\0' ) { do_function ( trainer, &do_say, "Pardon me?" ); return; } if ( !str_prefix ( arg, "list" ) ) { int col; col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s\n\r", "group", "cost", "group", "cost", "group", "cost" ); chsend ( buf, ch ); for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; if ( !ch->pcdata->group_known[gn] && group_table[gn].rating[ch->Class] > 0 ) { sprintf ( buf, "%-18s %-5d ", group_table[gn].name, group_table[gn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); chsend ( "\n\r", ch ); col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s\n\r", "skill", "cost", "skill", "cost", "skill", "cost" ); chsend ( buf, ch ); for ( sn = 0; sn < MAX_SKILL; sn++ ) { if ( skill_table[sn].name == NULL ) break; if ( !ch->pcdata->learned[sn] && skill_table[sn].rating[ch->Class] > 0 && skill_table[sn].spell_fun == spell_null ) { sprintf ( buf, "%-18s %-5d ", skill_table[sn].name, skill_table[sn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); return; } if ( !str_prefix ( arg, "convert" ) ) { if ( ch->practice < 10 ) { act ( "$N tells you 'You are not yet ready.'", ch, NULL, trainer, TO_CHAR ); return; } act ( "$N helps you apply your practice to training", ch, NULL, trainer, TO_CHAR ); ch->practice -= 10; ch->train += 1; return; } if ( !str_prefix ( arg, "points" ) ) { if ( ch->train < 2 ) { act ( "$N tells you 'You are not yet ready.'", ch, NULL, trainer, TO_CHAR ); return; } if ( ch->pcdata->points <= 40 ) { act ( "$N tells you 'There would be no point in that.'", ch, NULL, trainer, TO_CHAR ); return; } act ( "$N trains you, and you feel more at ease with your skills.", ch, NULL, trainer, TO_CHAR ); ch->train -= 2; ch->pcdata->points -= 1; ch->exp = exp_per_level ( ch, ch->pcdata->points ) * ch->level; return; } /* else add a group/skill */ gn = group_lookup ( argument ); if ( gn > 0 ) { if ( ch->pcdata->group_known[gn] ) { act ( "$N tells you 'You already know that group!'", ch, NULL, trainer, TO_CHAR ); return; } if ( group_table[gn].rating[ch->Class] <= 0 ) { act ( "$N tells you 'That group is beyond your powers.'", ch, NULL, trainer, TO_CHAR ); return; } if ( ch->train < group_table[gn].rating[ch->Class] ) { act ( "$N tells you 'You are not yet ready for that group.'", ch, NULL, trainer, TO_CHAR ); return; } /* add the group */ gn_add ( ch, gn ); act ( "$N trains you in the art of $t", ch, group_table[gn].name, trainer, TO_CHAR ); ch->train -= group_table[gn].rating[ch->Class]; return; } sn = skill_lookup ( argument ); if ( sn > -1 ) { if ( skill_table[sn].spell_fun != spell_null ) { act ( "$N tells you 'You must learn the full group.'", ch, NULL, trainer, TO_CHAR ); return; } if ( ch->pcdata->learned[sn] ) { act ( "$N tells you 'You already know that skill!'", ch, NULL, trainer, TO_CHAR ); return; } if ( skill_table[sn].rating[ch->Class] <= 0 ) { act ( "$N tells you 'That skill is beyond your powers.'", ch, NULL, trainer, TO_CHAR ); return; } if ( ch->train < skill_table[sn].rating[ch->Class] ) { act ( "$N tells you 'You are not yet ready for that skill.'", ch, NULL, trainer, TO_CHAR ); return; } /* add the skill */ ch->pcdata->learned[sn] = 1; act ( "$N trains you in the art of $t", ch, skill_table[sn].name, trainer, TO_CHAR ); ch->train -= skill_table[sn].rating[ch->Class]; return; } act ( "$N tells you 'I do not understand...'", ch, NULL, trainer, TO_CHAR ); } /* RT spells and skills show the players spells (or skills) */ CH_CMD ( do_spells ) { BUFFER *buffer; char arg[MAX_INPUT_LENGTH]; char spell_list[LEVEL_HERO + 1][MAX_STRING_LENGTH]; char spell_columns[LEVEL_HERO + 1]; int sn, level, min_lev = 1, max_lev = LEVEL_HERO, mana; bool fAll = FALSE, found = FALSE; char buf[MAX_STRING_LENGTH]; if ( IS_NPC ( ch ) ) return; if ( argument[0] != '\0' ) { fAll = TRUE; if ( str_prefix ( argument, "all" ) ) { argument = one_argument ( argument, arg ); if ( !is_number ( arg ) ) { chsend ( "Arguments must be numerical or all.\n\r", ch ); return; } max_lev = atoi ( arg ); if ( max_lev < 1 || max_lev > LEVEL_HERO ) { sprintf ( buf, "Levels must be between 1 and %d.\n\r", LEVEL_HERO ); chsend ( buf, ch ); return; } if ( argument[0] != '\0' ) { argument = one_argument ( argument, arg ); if ( !is_number ( arg ) ) { chsend ( "Arguments must be numerical or all.\n\r", ch ); return; } min_lev = max_lev; max_lev = atoi ( arg ); if ( max_lev < 1 || max_lev > LEVEL_HERO ) { sprintf ( buf, "Levels must be between 1 and %d.\n\r", LEVEL_HERO ); chsend ( buf, ch ); return; } if ( min_lev > max_lev ) { chsend ( "That would be silly.\n\r", ch ); return; } } } } /* initialize data */ for ( level = 0; level < LEVEL_HERO + 1; level++ ) { spell_columns[level] = 0; spell_list[level][0] = '\0'; } for ( sn = 0; sn < MAX_SKILL; sn++ ) { if ( skill_table[sn].name == NULL ) break; if ( ( level = skill_table[sn].skill_level[ch->Class] ) < LEVEL_HERO + 1 && ( fAll || level <= ch->level ) && level >= min_lev && level <= max_lev && skill_table[sn].spell_fun != spell_null && ch->pcdata->learned[sn] > 0 ) { found = TRUE; level = skill_table[sn].skill_level[ch->Class]; if ( ch->level < level ) sprintf ( buf, "%-18s n/a ", skill_table[sn].name ); else { mana = UMAX ( skill_table[sn].min_mana, 100 / ( 2 + ch->level - level ) ); sprintf ( buf, "%-18s %3d mana ", skill_table[sn].name, mana ); } if ( spell_list[level][0] == '\0' ) sprintf ( spell_list[level], "\n\rLevel %2d: %s", level, buf ); else /* append */ { if ( ++spell_columns[level] % 2 == 0 ) strcat ( spell_list[level], "\n\r " ); strcat ( spell_list[level], buf ); } } } /* return results */ if ( !found ) { chsend ( "No spells found.\n\r", ch ); return; } buffer = new_buf ( ); for ( level = 0; level < LEVEL_HERO + 1; level++ ) if ( spell_list[level][0] != '\0' ) add_buf ( buffer, spell_list[level] ); add_buf ( buffer, "\n\r" ); page_to_char ( buf_string ( buffer ), ch ); free_buf ( buffer ); } CH_CMD ( do_skills ) { BUFFER *buffer; char arg[MAX_INPUT_LENGTH]; char skill_list[LEVEL_HERO + 1][MAX_STRING_LENGTH]; char skill_columns[LEVEL_HERO + 1]; int sn, level, min_lev = 1, max_lev = LEVEL_HERO; bool fAll = FALSE, found = FALSE; char buf[MAX_STRING_LENGTH]; if ( IS_NPC ( ch ) ) return; if ( argument[0] != '\0' ) { fAll = TRUE; if ( str_prefix ( argument, "all" ) ) { argument = one_argument ( argument, arg ); if ( !is_number ( arg ) ) { chsend ( "Arguments must be numerical or all.\n\r", ch ); return; } max_lev = atoi ( arg ); if ( max_lev < 1 || max_lev > LEVEL_HERO ) { sprintf ( buf, "Levels must be between 1 and %d.\n\r", LEVEL_HERO ); chsend ( buf, ch ); return; } if ( argument[0] != '\0' ) { argument = one_argument ( argument, arg ); if ( !is_number ( arg ) ) { chsend ( "Arguments must be numerical or all.\n\r", ch ); return; } min_lev = max_lev; max_lev = atoi ( arg ); if ( max_lev < 1 || max_lev > LEVEL_HERO ) { sprintf ( buf, "Levels must be between 1 and %d.\n\r", LEVEL_HERO ); chsend ( buf, ch ); return; } if ( min_lev > max_lev ) { chsend ( "That would be silly.\n\r", ch ); return; } } } } /* initialize data */ for ( level = 0; level < LEVEL_HERO + 1; level++ ) { skill_columns[level] = 0; skill_list[level][0] = '\0'; } for ( sn = 0; sn < MAX_SKILL; sn++ ) { if ( skill_table[sn].name == NULL ) break; if ( ( level = skill_table[sn].skill_level[ch->Class] ) < LEVEL_HERO + 1 && ( fAll || level <= ch->level ) && level >= min_lev && level <= max_lev && skill_table[sn].spell_fun == spell_null && ch->pcdata->learned[sn] > 0 ) { found = TRUE; level = skill_table[sn].skill_level[ch->Class]; if ( ch->level < level ) sprintf ( buf, "%-18s n/a ", skill_table[sn].name ); else sprintf ( buf, "%-18s %3d%% ", skill_table[sn].name, ch->pcdata->learned[sn] ); if ( skill_list[level][0] == '\0' ) sprintf ( skill_list[level], "\n\rLevel %2d: %s", level, buf ); else /* append */ { if ( ++skill_columns[level] % 2 == 0 ) strcat ( skill_list[level], "\n\r " ); strcat ( skill_list[level], buf ); } } } /* return results */ if ( !found ) { chsend ( "No skills found.\n\r", ch ); return; } buffer = new_buf ( ); for ( level = 0; level < LEVEL_HERO + 1; level++ ) if ( skill_list[level][0] != '\0' ) add_buf ( buffer, skill_list[level] ); add_buf ( buffer, "\n\r" ); page_to_char ( buf_string ( buffer ), ch ); free_buf ( buffer ); } /* shows skills, groups and costs (only if not bought) */ void list_group_costs ( CHAR_DATA * ch ) { char buf[100]; int gn, sn, col; if ( IS_NPC ( ch ) ) return; col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s\n\r", "group", "cp", "group", "cp", "group", "cp" ); chsend ( buf, ch ); for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; if ( !ch->gen_data->group_chosen[gn] && !ch->pcdata->group_known[gn] && group_table[gn].rating[ch->Class] > 0 ) { sprintf ( buf, "%-18s %-5d ", group_table[gn].name, group_table[gn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); chsend ( "\n\r", ch ); col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s\n\r", "skill", "cp", "skill", "cp", "skill", "cp" ); chsend ( buf, ch ); for ( sn = 0; sn < MAX_SKILL; sn++ ) { if ( skill_table[sn].name == NULL ) break; if ( !ch->gen_data->skill_chosen[sn] && ch->pcdata->learned[sn] == 0 && skill_table[sn].spell_fun == spell_null && skill_table[sn].rating[ch->Class] > 0 ) { sprintf ( buf, "%-18s %-5d ", skill_table[sn].name, skill_table[sn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); chsend ( "\n\r", ch ); sprintf ( buf, "Creation points: %d\n\r", ch->pcdata->points ); chsend ( buf, ch ); sprintf ( buf, "Experience per level: %d\n\r", exp_per_level ( ch, ch->gen_data->points_chosen ) ); chsend ( buf, ch ); return; } void list_group_chosen ( CHAR_DATA * ch ); void list_group_chosen ( CHAR_DATA * ch ) { char buf[100]; int gn, sn, col; if ( IS_NPC ( ch ) ) return; col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s", "group", "cp", "group", "cp", "group", "cp\n\r" ); chsend ( buf, ch ); for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; if ( ch->gen_data->group_chosen[gn] && group_table[gn].rating[ch->Class] > 0 ) { sprintf ( buf, "%-18s %-5d ", group_table[gn].name, group_table[gn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); chsend ( "\n\r", ch ); col = 0; sprintf ( buf, "%-18s %-5s %-18s %-5s %-18s %-5s", "skill", "cp", "skill", "cp", "skill", "cp\n\r" ); chsend ( buf, ch ); for ( sn = 0; sn < MAX_SKILL; sn++ ) { if ( skill_table[sn].name == NULL ) break; if ( ch->gen_data->skill_chosen[sn] && skill_table[sn].rating[ch->Class] > 0 ) { sprintf ( buf, "%-18s %-5d ", skill_table[sn].name, skill_table[sn].rating[ch->Class] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); chsend ( "\n\r", ch ); sprintf ( buf, "Creation points: %d\n\r", ch->gen_data->points_chosen ); chsend ( buf, ch ); sprintf ( buf, "Experience per level: %d\n\r", exp_per_level ( ch, ch->gen_data->points_chosen ) ); chsend ( buf, ch ); return; } int exp_per_level ( CHAR_DATA * ch, int points ) { int expl, inc; if ( IS_NPC ( ch ) ) return 1000; expl = 1000; inc = 500; if ( points < 40 ) return 1000 * ( pc_race_table[ch->race]. class_mult[ch->Class] ? pc_race_table[ch->race].class_mult[ch-> Class] / 100 : 1 ); /* processing */ points -= 40; while ( points > 9 ) { expl += inc; points -= 10; if ( points > 9 ) { expl += inc; inc *= 2; points -= 10; } } expl += points * inc / 10; return expl * pc_race_table[ch->race].class_mult[ch->Class] / 100; } /* this procedure handles the input parsing for the skill generator */ bool parse_gen_groups ( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char buf[100]; int gn, sn, i; if ( argument[0] == '\0' ) return FALSE; argument = one_argument ( argument, arg ); if ( !str_prefix ( arg, "help" ) ) { if ( argument[0] == '\0' ) { do_function ( ch, &do_help, "group help" ); return TRUE; } do_function ( ch, &do_help, argument ); return TRUE; } if ( !str_prefix ( arg, "add" ) ) { if ( argument[0] == '\0' ) { chsend ( "You must provide a skill name.\n\r", ch ); return TRUE; } gn = group_lookup ( argument ); if ( gn != -1 ) { if ( ch->gen_data->group_chosen[gn] || ch->pcdata->group_known[gn] ) { chsend ( "You already know that group!\n\r", ch ); return TRUE; } if ( group_table[gn].rating[ch->Class] < 1 ) { chsend ( "That group is not available.\n\r", ch ); return TRUE; } /* Close security hole */ if ( ch->gen_data->points_chosen + group_table[gn].rating[ch->Class] > 300 ) { chsend ( "You cannot take more than 300 creation points.\n\r", ch ); return TRUE; } sprintf ( buf, "%s group added\n\r", group_table[gn].name ); chsend ( buf, ch ); ch->gen_data->group_chosen[gn] = TRUE; ch->gen_data->points_chosen += group_table[gn].rating[ch->Class]; gn_add ( ch, gn ); ch->pcdata->points += group_table[gn].rating[ch->Class]; return TRUE; } sn = skill_lookup ( argument ); if ( sn != -1 ) { if ( ch->gen_data->skill_chosen[sn] || ch->pcdata->learned[sn] > 0 ) { chsend ( "You already know that skill!\n\r", ch ); return TRUE; } if ( skill_table[sn].rating[ch->Class] < 1 || skill_table[sn].spell_fun != spell_null ) { chsend ( "That skill is not available.\n\r", ch ); return TRUE; } /* Close security hole */ if ( ch->gen_data->points_chosen + skill_table[sn].rating[ch->Class] > 300 ) { chsend ( "You cannot take more than 300 creation points.\n\r", ch ); return TRUE; } sprintf ( buf, "%s skill added\n\r", skill_table[sn].name ); chsend ( buf, ch ); ch->gen_data->skill_chosen[sn] = TRUE; ch->gen_data->points_chosen += skill_table[sn].rating[ch->Class]; ch->pcdata->learned[sn] = 1; ch->pcdata->points += skill_table[sn].rating[ch->Class]; return TRUE; } chsend ( "No skills or groups by that name...\n\r", ch ); return TRUE; } if ( !strcmp ( arg, "drop" ) ) { if ( argument[0] == '\0' ) { chsend ( "You must provide a skill to drop.\n\r", ch ); return TRUE; } gn = group_lookup ( argument ); if ( gn != -1 && ch->gen_data->group_chosen[gn] ) { chsend ( "Group dropped.\n\r", ch ); ch->gen_data->group_chosen[gn] = FALSE; ch->gen_data->points_chosen -= group_table[gn].rating[ch->Class]; gn_remove ( ch, gn ); for ( i = 0; i < MAX_GROUP; i++ ) { if ( ch->gen_data->group_chosen[gn] ) gn_add ( ch, gn ); } ch->pcdata->points -= group_table[gn].rating[ch->Class]; return TRUE; } sn = skill_lookup ( argument ); if ( sn != -1 && ch->gen_data->skill_chosen[sn] ) { chsend ( "Skill dropped.\n\r", ch ); ch->gen_data->skill_chosen[sn] = FALSE; ch->gen_data->points_chosen -= skill_table[sn].rating[ch->Class]; ch->pcdata->learned[sn] = 0; ch->pcdata->points -= skill_table[sn].rating[ch->Class]; return TRUE; } chsend ( "You haven't bought any such skill or group.\n\r", ch ); return TRUE; } if ( !str_prefix ( arg, "premise" ) ) { do_function ( ch, &do_help, "premise" ); return TRUE; } if ( !str_prefix ( arg, "list" ) ) { list_group_costs ( ch ); return TRUE; } if ( !str_prefix ( arg, "learned" ) ) { list_group_chosen ( ch ); return TRUE; } if ( !str_prefix ( arg, "info" ) ) { do_function ( ch, &do_groups, argument ); return TRUE; } return FALSE; } /* shows all groups, or the sub-members of a group */ CH_CMD ( do_groups ) { char buf[100]; int gn, sn, col; if ( IS_NPC ( ch ) ) return; col = 0; if ( argument[0] == '\0' ) { /* show all groups */ for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; if ( ch->pcdata->group_known[gn] ) { sprintf ( buf, "%-20s ", group_table[gn].name ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); sprintf ( buf, "Creation points: %d\n\r", ch->pcdata->points ); chsend ( buf, ch ); return; } if ( !str_cmp ( argument, "all" ) ) /* show all groups */ { for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; sprintf ( buf, "%-20s ", group_table[gn].name ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); return; } /* show the sub-members of a group */ gn = group_lookup ( argument ); if ( gn == -1 ) { chsend ( "No group of that name exist.\n\r", ch ); chsend ( "Type 'groups all' or 'info all' for a full listing.\n\r", ch ); return; } for ( sn = 0; sn < MAX_IN_GROUP; sn++ ) { if ( group_table[gn].spells[sn] == NULL ) break; sprintf ( buf, "%-20s ", group_table[gn].spells[sn] ); chsend ( buf, ch ); if ( ++col % 3 == 0 ) chsend ( "\n\r", ch ); } if ( col % 3 != 0 ) chsend ( "\n\r", ch ); } /* checks for skill improvement */ void check_improve ( CHAR_DATA * ch, int sn, bool success, int multiplier ) { int chance; char buf[100]; if ( IS_NPC ( ch ) ) return; if ( ch->level < skill_table[sn].skill_level[ch->Class] || skill_table[sn].rating[ch->Class] == 0 || ch->pcdata->learned[sn] == 0 || ch->pcdata->learned[sn] == 100 ) return; /* skill is not known */ /* check to see if the character has a chance to learn */ chance = 10 * int_app[get_curr_stat ( ch, STAT_INT )].learn; chance /= ( multiplier * skill_table[sn].rating[ch->Class] * 4 ); chance += ch->level; if ( number_range ( 1, 1000 ) > chance ) return; /* now that the character has a CHANCE to learn, see if they really have */ if ( success ) { chance = URANGE ( 5, 100 - ch->pcdata->learned[sn], 95 ); if ( number_percent ( ) < chance ) { sprintf ( buf, "You have become better at %s!\n\r", skill_table[sn].name ); chsend ( buf, ch ); ch->pcdata->learned[sn]++; gain_exp ( ch, 2 * skill_table[sn].rating[ch->Class] ); } } else { chance = URANGE ( 5, ch->pcdata->learned[sn] / 2, 30 ); if ( number_percent ( ) < chance ) { sprintf ( buf, "You learn from your mistakes, and your %s skill improves.\n\r", skill_table[sn].name ); chsend ( buf, ch ); ch->pcdata->learned[sn] += number_range ( 1, 3 ); ch->pcdata->learned[sn] = UMIN ( ch->pcdata->learned[sn], 100 ); gain_exp ( ch, 2 * skill_table[sn].rating[ch->Class] ); } } } /* returns a group index number given the name */ int group_lookup ( const char *name ) { int gn; for ( gn = 0; gn < MAX_GROUP; gn++ ) { if ( group_table[gn].name == NULL ) break; if ( LOWER ( name[0] ) == LOWER ( group_table[gn].name[0] ) && !str_prefix ( name, group_table[gn].name ) ) return gn; } return -1; } /* recursively adds a group given its number -- uses group_add */ void gn_add ( CHAR_DATA * ch, int gn ) { int i; ch->pcdata->group_known[gn] = TRUE; for ( i = 0; i < MAX_IN_GROUP; i++ ) { if ( group_table[gn].spells[i] == NULL ) break; group_add ( ch, group_table[gn].spells[i], FALSE ); } } /* recusively removes a group given its number -- uses group_remove */ void gn_remove ( CHAR_DATA * ch, int gn ) { int i; ch->pcdata->group_known[gn] = FALSE; for ( i = 0; i < MAX_IN_GROUP; i++ ) { if ( group_table[gn].spells[i] == NULL ) break; group_remove ( ch, group_table[gn].spells[i] ); } } /* use for processing a skill or group for addition */ void group_add ( CHAR_DATA * ch, const char *name, bool deduct ) { int sn, gn; if ( IS_NPC ( ch ) ) /* NPCs do not have skills */ return; sn = skill_lookup ( name ); if ( sn != -1 ) { if ( ch->pcdata->learned[sn] == 0 ) /* i.e. not known */ { ch->pcdata->learned[sn] = 1; if ( deduct ) ch->pcdata->points += skill_table[sn].rating[ch->Class]; } return; } /* now check groups */ gn = group_lookup ( name ); if ( gn != -1 ) { if ( ch->pcdata->group_known[gn] == FALSE ) { ch->pcdata->group_known[gn] = TRUE; if ( deduct ) ch->pcdata->points += group_table[gn].rating[ch->Class]; } gn_add ( ch, gn ); /* make sure all skills in the group are known */ } } /* used for processing a skill or group for deletion -- no points back! */ void group_remove ( CHAR_DATA * ch, const char *name ) { int sn, gn; sn = skill_lookup ( name ); if ( sn != -1 ) { ch->pcdata->learned[sn] = 0; return; } /* now check groups */ gn = group_lookup ( name ); if ( gn != -1 && ch->pcdata->group_known[gn] == TRUE ) { ch->pcdata->group_known[gn] = FALSE; gn_remove ( ch, gn ); /* be sure to call gn_add on all remaining groups */ } }