|'|=========================================================== |:| 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); }