Modified some things, like 10 immort levels, but I modified the
structure back to 4 levels. Should work right...can't remember
all I've changed :) (Just noticed BCYN and BRED, just use other
colors)
ACMD(do_who)
const char *god_names[LVL_IMPL - LVL_IMMORT + 1][3] = {
/* Male name Female Color */
{" Diety "," Diety ", KGRN},
{" God "," Goddess ", KCYN},
{"Greater God"," G Goddess ", BCYN}, <- erm, Bold Cyan
{" * Imp * "," * Imp * ", BRED} <- Bold red, you don't have those
fix to something else
};
[snip]
(Short listing)
> if (GET_LEVEL(tch) >= LVL_IMMORT) {
> strcpy(buf1, (int) GET_SEX(tch) != SEX_NEUTRAL ?
> god_names[GET_LEVEL(tch) - LVL_IMMORT][(int) GET_SEX(tch) -1] :
> god_names[GET_LEVEL(tch) - LVL_IMMORT][SEX_MALE - 1]);
> sprintf(buf, "%s[%11s] %-12.12s%s%s\r\n",
> CC(ch, C_SPR, god_names[GET_LEVEL(tch) - LVL_IMMORT][2]),
> buf1, GET_NAME(tch), CCNRM(ch, C_SPR),
> ((!(++num_can_see % 4)) ? "\r\n" : ""));
> } else
sprintf(buf, "[ %2s %-2s %3d ] %-12.12s%s\r\n",
RACE_ABBR(tch), CLASS_ABBR(tch), GET_LEVEL(tch), GET_NAME(tch),
((!(++num_can_see % 4)) ? "\r\n" : ""));
send_to_char(buf, ch);
else { /******* Normal (not -s) who listing *************/
num_can_see++;
> if (GET_LEVEL(tch) >= LVL_IMMORT) {
> strcpy(buf1, (int) GET_SEX(tch) != SEX_NEUTRAL ?
> god_names[GET_LEVEL(tch) - LVL_IMMORT][(int) GET_SEX(tch) -1] :
> god_names[GET_LEVEL(tch) - LVL_IMMORT][SEX_MALE - 1]);
> sprintf(buf, "%s[%11s] %s%s%s",
> CC(ch, C_SPR, god_names[GET_LEVEL(tch) - LVL_IMMORT][2]),
> buf1, GET_NAME(tch), !strn_cmp(GET_TITLE(tch), ",", 1) ? "": " ",
> GET_TITLE(tch));
> } else
sprintf(buf, "[ %2s %2s %3d ] %s%s%s", RACE_ABBR(tch),
CLASS_ABBR(tch), GET_LEVEL(tch), GET_NAME(tch),
!strn_cmp(GET_TITLE(tch), ",", 1) ? "" : " ", GET_TITLE(tch));
--
George Greer greerga@muohio.edu | Genius may have its limitations, but
http://www.ham.muohio.edu/~greerga | stupidity is not thus handicapped.
Dragon.ham.muohio.edu Co-Admin | -- Elbert Hubbard
+-----------------------------------------------------------+
| Ensure that you have read the CircleMUD Mailing List FAQ: |
| http://cspo.queensu.ca/~fletcher/Circle/list_faq.html |
+-----------------------------------------------------------+
This archive was generated by hypermail 2b30 : 12/18/00 PST