[code-submit] Named gods

From: George (greerga@dragon.ham.muohio.edu)
Date: 12/12/96


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