|'|===========================================================
|:|  do_clanlist
|:|  Written by Jarett Langton (Feydkin) of
|:|  The Blades Edge Mud
|:|  telnet://windsofchange.xs4all.nl:9000
|:|  An E-mail would be nice but not required.
|-|===========================================================
|:|  Description:
|:|  
|:|  Clanlist shows a list of clans coded in. Technicaly
|:|  all players are 'guilded' but the proto guild
|:|  will show a blank line. An easy way around this
|:|  is to change the .who_name string from " " to
|:|  "Clanless" or "Unguilded", etc.
|:|  This should have been stock rom but perhaps a little
|:|  to simple for those Master Programmers at the
|:|  Rom office... 
|_|===========================================================

+++) Add the Following to Interp.c

     {"clanlist", do_clanlist, POS_DEAD, 0, LOG_NORMAL, 0},

+++) Add the Following to Interp.h -->

DECLARE_DO_FUN(do_clanlist );

+++) Add the Following to act_info.c


void do_clanlist (CHAR_DATA * ch, char *argument)
{
    char buf[MAX_STRING_LENGTH];
    int sn;

    if (IS_NPC (ch))
        return;
/*  (Credits) Feel Free to take this out */
    send_to_char ("\n\r\n\r{B({Y*{B){R Clan/Guild List Code Written by Feydkin of\n\r", ch);
    send_to_char ("{B({Y*{B){R The Blades Edge Mud{W windsofchange.xs4all.nl:9000\n\r\n\r", ch);
/*  (End Credits) */

    send_to_char ("{D===----------------------===\n\r", ch);
    send_to_char ("{D|{C:{D|{C Clans of Blades Edge {D|{C:{D|{x\n\r", ch);
    send_to_char ("{D===----------------------===\n\r{x", ch);

    if (argument[0] == '\0')
    {
        int col;

        col = 0;
        for (sn = 0; sn < MAX_CLAN; sn++)
        {
            if (clan_table[sn].name == NULL)
                break;

            sprintf (buf, "{D|{C:{D| {x%-24s {D|{C:{D|{x",
                     clan_table[sn].who_name);
            send_to_char (buf, ch);
            if (++col % 1 == 0)
                send_to_char ("\n\r", ch);
        }

        if (col % 1 != 0)
            send_to_char ("\n\r", ch);

    }
    send_to_char ("{D===----------------------===\n\r\n\r{x", ch);
}
