From: John Evans <evansj@texas.net>
Subject: Skillstat Command for Immorts

I found that sometimes I wanted to give a character a 10% boost (or
penalty) to a particular skill or spell for a finished quest, or as
punishment or for whatever reason.

I then discovered that there was NO way to tell what a person's current
skill levels are at! I mean, I could have snooped them and forced them to
type "prac", but that wasn't what I wanted. I wanted to know the EXACT
percentage they their skill was at.

This bit of code does that. It will show the skills and spells that they
currently have, and how learned they are in the skill. The code is a bit
messy because it is the first immort command that I have ever coded.

If you find any problems with the command or that is wasteful is
allocating memory, let me know along with some advice on how to make the
function better.

Enjoy!

----- interpreter.c -----

Search for:
ACMD(do_skillset)

Add:
ACMD(do_skillstat)

Search for:
  { "skillset" , POS_SLEEPING, do_skillset , LVL_GRGOD, 0 },

Add:
  { "skillstat", POS_SLEEPING, do_skillstat, LVL_GRGOD, 0 },


----- act.wizard.c -----

Just add the following to the bottom of the file:

int spell_sort_info[MAX_SKILLS+1];
extern char *spells[];

void sort_for_skillstat(void)
{
  int a, b, tmp;

  /* initialize array */
  for (a = 1; a < MAX_SKILLS; a++)
    spell_sort_info[a] = a;

  /* Sort.  'a' starts at 1, not 0, to remove 'RESERVED' */
  for (a = 1; a < MAX_SKILLS - 1; a++)
    for (b = a + 1; b < MAX_SKILLS; b++)
      if (strcmp(spells[spell_sort_info[a]], spells[spell_sort_info[b]]) > 0) {
        tmp = spell_sort_info[a];
        spell_sort_info[a] = spell_sort_info[b];
        spell_sort_info[b] = tmp;
      }
}

char *show_skill_quality(int percent)
{
  static char buf[256];

  if (percent == 0)
    strcpy(buf, " (not learned)");
  else if (percent <= 10)
    strcpy(buf, " (awful)");
  else if (percent <= 20)
    strcpy(buf, " (bad)");
  else if (percent <= 40)
    strcpy(buf, " (poor)");
  else if (percent <= 55)
    strcpy(buf, " (average)");
  else if (percent <= 70)
    strcpy(buf, " (fair)");
  else if (percent <= 80)
    strcpy(buf, " (good)");
  else if (percent <= 85)
    strcpy(buf, " (very good)");
  else
    strcpy(buf, " (superb)");

  return (buf);
}

ACMD(do_skillstat)
{
  extern char *spells[];
  extern struct spell_info_type spell_info[];
  int i, sortpos = 0;
  struct char_data *vict = 0;

  argument = one_argument(argument, arg);

  if (!*arg) {
    send_to_char("Stats on who's skills?\r\n", ch);
    return;
  }

  if ((vict = get_char_vis(ch, arg))) {
    sprintf(buf, "%s's knows the following skills/spells:\r\n",
                  GET_NAME(vict));
    strcpy(buf2, buf);

    for (sortpos = 1; sortpos < MAX_SKILLS; sortpos++) {
      i = spell_sort_info[sortpos];
      if (strlen(buf2) >= MAX_STRING_LENGTH - 32) {
        strcat(buf2, "**OVERFLOW**\r\n");
        break;
      }
      if (GET_LEVEL(vict) >= spell_info[i].min_level[(int) GET_CLASS(vict)]) {
        sprintf(buf, "%-20s (%-3d) %s\r\n", spells[i],
              GET_SKILL(vict, i), show_skill_quality(GET_SKILL(vict, i)));
        strcat(buf2, buf);
      }
    }
  }
  else
    strcpy(buf2, "No such player around.\r\n");

  page_string(ch->desc, buf2, 1);
}


That should do it for you. If you find anyway to improve upon this, please
let me know at evansj@texas.net.

(BTW - This is nothing more than a hack of the "guild" spec proc.)

John Evans