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