/*************************************************************************** * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * * * Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * * * In order to use any part of this Merc Diku Mud, you must comply with * * both the original Diku license in 'license.doc' as well the Merc * * license in 'license.txt'. In particular, you may not remove either of * * these copyright notices. * * * * Much time and thought has gone into this software and you are * * benefitting. We hope that you share your changes too. What goes * * around, comes around. * ***************************************************************************/ /*************************************************************************** * File: Clan.c * * Written by: Kyle Boyd * * Partially inspired by some code written by Zane(E.J. Wilburn), as well * * as clan code from SMAUG(?) and ROM muds. None of what you see here was * * directly copied from those versions of clan code, just some of the * * ideas were used. * ***************************************************************************/ #if defined(macintosh) #include <types.h> #else #include <sys/types.h> #endif #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include <stdarg.h> #include "merc.h" #include "olc.h" DECLARE_DO_FUN( do_look ); DECLARE_DO_FUN( do_save ); #define CEDIT( fun ) bool fun( CHAR_DATA *ch, char *argument ) const struct olc_cmd_type cedit_table[] = { /* { command function }, */ { "create", cedit_create }, { "leader", cedit_leader }, { "sponsor", cedit_sponsor }, { "name", cedit_name }, { "whoname", cedit_whoname }, { "show", cedit_show }, { "minlevel", cedit_minlevel }, { "members", cedit_members }, { "recall", cedit_recall }, { "joinflags", cedit_joinflags }, { "clanflags", cedit_clanflags }, /* To be implemented later... */ /* These will add clan-specific skills and commands. */ /* { "skill", cedit_skill }, */ { "rank", cedit_rank }, { "cost", cedit_cost }, { "?", show_help }, { "version", show_version }, { "commands", show_commands }, { "", 0, } }; void save_clans( void ) { FILE *fp; CLAN_DATA *clan; char buf[MAX_INPUT_LENGTH]; int i; if( clan_first == NULL ) return; sprintf(buf, "%s/%s", sysconfig.area_dir, sysconfig.clans_file); fp = fopen( buf, "w" ); if (fp == NULL) { bug("Cannot write to %s !!!", sysconfig.clans_file); return; } fprintf( fp, "#CLANS\n" ); for( clan = clan_first; clan != NULL; clan = clan->next ) { fprintf( fp, "%d\n", clan->number ); fprintf( fp, "%s~\n", clan->name ); fprintf( fp, "%s~\n", clan->whoname ); fprintf( fp, "%s~\n", clan->leader ); fprintf( fp, "%s~\n", clan->god ); fprintf( fp, "%d\n", clan->max_members ); fprintf( fp, "%d\n", clan->min_level ); fprintf( fp, "%d\n", clan->num_members ); buf[0]='\0'; fprintf( fp, "%s\n", fwrite_flag( clan->clan_flags, buf )); buf[0]='\0'; fprintf( fp, "%s\n", fwrite_flag( clan->join_flags, buf )); fprintf( fp, "%d\n", clan->cost_gold ); fprintf( fp, "%d\n", clan->recall_room ); fprintf( fp, "%d\n", clan->clan_fund ); /* The reason that all of these fprintf functions have a letter to start off with is in case the MAX_* change, so the lines will be identifyable as what they are, since the number of them may change. Note: if you DECREASE the MAX_*'s, you'll need to edit the clans file and remove the excess lines. -Kyle */ for( i=0 ; i<MAX_CLAN_MEMBERS ; i++ ) { if( clan->members[i][0]!='\0' ) fprintf( fp, "M %d %s~\n", i+1, clan->members[i] ); } for( i=0 ; i<MAX_CLAN ; i++ ) { if( clan->kills[i] != 0 ) fprintf( fp, "K %d %d\n", i+1, clan->kills[i] ); } for( i=0 ; i<MAX_CLAN ; i++ ) { if( clan->deaths[i] != 0 ) fprintf( fp, "D %d %d\n", i+1, clan->deaths[i] ); } for( i=0 ; i<MAX_RANK ; i++ ) { fprintf( fp, "R %d %s~\n", i+1, clan->rank[i] ); } fprintf( fp, "E\n" ); /* End of this clan. */ } fprintf( fp, "999\n#$\n#$\n"); /* I hope you don't make more than 998 clans... :) */ fclose( fp ); return; } /* Read in str as the next string of fp. Free it if there's a string there already. -Kyle */ #define GETSTR( str ) if ( str != NULL ) \ { \ free_string( &str ); \ str = fread_string( fp ); \ } \ else \ str = fread_string( fp ); void load_clans( FILE *fp ) { int i, x, num; CLAN_DATA *clan; bool done; for( ;; ) { num = fread_number( fp ); if( num == 999 ) break; else clan = new_clan(); if( num != clan->number ) { bug("%s clan #%d misaligned.", sysconfig.clans_file, num); return; } GETSTR( clan->name ); GETSTR( clan->whoname ); GETSTR( clan->leader ); GETSTR( clan->god ); clan->max_members = fread_number( fp ); clan->min_level = fread_number( fp ); clan->num_members = fread_number( fp ); clan->clan_flags = fread_flag( fp ); clan->join_flags = fread_flag( fp ); clan->cost_gold = fread_number( fp ); clan->recall_room = fread_number( fp ); clan->clan_fund = fread_number( fp ); done = FALSE; for( ; done == FALSE ; ) { switch( fread_letter( fp ) ) { default: bug("Bad letter in %s", sysconfig.clans_file); break; case 'M': i = fread_number( fp ); GETSTR( clan->members[i-1] ); { for(x=0;x<MAX_CLAN_MEMBERS;x++) { if( x == (i-1) )continue; if( !str_cmp(clan->members[i-1], clan->members[x])) { free_string(&clan->members[i-1]); clan->members[i-1] = str_dup(""); } } } break; case 'K': i = fread_number( fp ); clan->kills[i-1] = fread_number( fp ); break; case 'D': i = fread_number( fp ); clan->deaths[i-1] = fread_number( fp ); break; case 'R': i = fread_number( fp ); GETSTR( clan->rank[i-1] ); break; case 'E': done = TRUE; break; } } } return; } /* * This code written by Rahl (dwa1844@rit.edu) for Broken Shadows. * * Permission to use this code is given freely as long as my * name stays with it. * - Daniel Anderson */ /* This was originally a new "log_string" function by Rahl. I changed the name of the file it records and added printf-like stuff. -Kyle */ void clan_log( CLAN_DATA *clan, char *str, ... ) { char *strtime; char logfile[20]; char buf[10]; char temp[20]; int i, j; FILE *log_file; FILE *tempfile; char param[4*MAX_STRING_LENGTH]; /* Thanks to Tyrluk of MornMUD for showing me how to do this... -Kyle */ { va_list args; va_start (args, str); vsprintf (param, str, args); va_end (args); } buf[0] = '\0'; temp[0] = '\0'; log_file = NULL; sprintf( buf, "%s", get_curdate() ); for ( i = 0; i < 10; i++ ) { if ( buf[i] == '/' ) buf[i] = '-'; } /* The log for clan #1 will look like: ../clan/1.01-31-99 This log will be accesable to clan leaders. -Kyle */ sprintf( temp, "%s/%d.", sysconfig.clan_dir, clan->number ); strcat( temp, buf ); if ( strcmp( temp, logfile ) ) { tempfile = fopen( temp, "a" ); if ( log_file != NULL ) fclose( log_file ); for ( j = 0; j < 20; j++ ) logfile[j] = temp[j]; log_file = fopen( logfile, "a" ); if ( tempfile != NULL ) fclose( tempfile ); } strtime = ctime( ¤t_time ); strtime[strlen(strtime)-1] = '\0'; fprintf( log_file, "%s:%s\n", &strtime[10], param ); fclose( log_file ); return; } CLAN_DATA *get_clan( int clannum ) { CLAN_DATA *clan; if( top_clan == 0 ) return NULL; for( clan = clan_first; clan != NULL; clan = clan->next ) { if( clan->number == clannum ) return clan; } return NULL; } CLAN_DATA *new_clan( void ) { CLAN_DATA *clan; int i; clan = alloc_perm( sizeof(CLAN_DATA) ); if( clan == NULL ) { bug("Could not create clan.", 0); return NULL; } if( clan_first == NULL ) top_clan=0; top_clan++; clan->next = NULL; clan->number = top_clan; clan->name = str_dup( "Unnamed" ); clan->leader = str_dup( "None" ); clan->god = str_dup( "None" ); clan->max_members = MAX_CLAN_MEMBERS; clan->min_level = MIN_CLAN_LEVEL; clan->recall_room = ROOM_VNUM_TEMPLE; clan->whoname = str_dup( "" ); clan->command = str_dup( "" ); clan->skill = str_dup( "" ); for( i=0; i < MAX_RANK ; i++ ) clan->rank[i]=str_dup( "" ); for( i=0; i < MAX_CLAN_MEMBERS ; i++ ) clan->members[i]=str_dup( "" ); if( clan_first == NULL ) { clan_first = clan; clan_last = clan; return clan; } if( clan_last == NULL ) { bug("clan_first but no clan_last.", 0); clan_last = clan; return clan; } clan_last->next = clan; clan_last = clan; return clan; } void do_cedit( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CLAN_DATA *clan; int value; if ( IS_NPC(ch) ) return; argument = one_argument( argument, arg ); if ( is_number( arg ) ) { value = atoi( arg ); if ( !( clan = get_clan( value ) ) ) { send_to_char( "CEdit: That clan does not exist.\n\r", ch ); return; } ch->desc->pEdit = (void *)clan; ch->desc->editor = ED_CLAN; return; } else { if ( !str_cmp( arg, "create" ) ) { if ( cedit_create( ch, argument ) ) { ch->desc->editor = ED_CLAN; } return; } } send_to_char( "CEdit: There is no default clan to edit.\n\r", ch ); return; } void cedit( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CLAN_DATA *clan; char command[MAX_INPUT_LENGTH]; int cmd; smash_tilde( argument ); strcpy( arg, argument ); argument = one_argument( argument, command ); EDIT_CLAN(ch, clan); if ( !str_cmp(command, "done") ) { edit_done( ch ); return; } /* Change this depending on who you want to be able to edit clans. */ if ( get_trust(ch) < (MAX_LEVEL - 1) ) { send_to_char( "CEdit: Insufficient security to modify clans.\n\r", ch ); interpret(ch, arg); return; } if ( command[0] == '\0' ) { cedit_show( ch, argument ); return; } if( clan == NULL ) { send_to_char("You are not currently editing a clan.", ch); interpret(ch, arg); return; } /* Search Table and Dispatch Command. */ for ( cmd = 0; cedit_table[cmd].name[0] != '\0'; cmd++ ) { if ( !str_prefix( command, cedit_table[cmd].name ) ) { if ( (*cedit_table[cmd].olc_fun) ( ch, argument ) ) { return; } else return; } } /* Default to Standard Interpreter. */ interpret( ch, arg ); return; } CEDIT( cedit_show ) { CLAN_DATA *clan; int i; EDIT_CLAN( ch, clan ); if( clan == NULL ) { send_to_char("You are not currently editing a clan.", ch); return FALSE; } printf_to_char( ch, "Name: [%s]\n\rNumber: [%2d]\n\rLeader: [%12s]\n\rSponsor: [%12s]\n\r", clan->name, clan->number, clan->leader, clan->god ); printf_to_char( ch, "Whoname: [%s]\n\rMaximum members: %d\n\rMinimum level: %d\n\r", clan->whoname, clan->max_members, clan->min_level ); printf_to_char( ch, "Clan recall: %d\n\rCost to join: %d\n\r", clan->recall_room, clan->cost_gold ); for( i = 0; i < MAX_RANK ; i++ ) { printf_to_char( ch, "Rank %d:[%30s]\n\r", i+1, clan->rank[i][0]=='\0' ? "None" : clan->rank[i] ); } /* printf_to_char( ch, "Command: [%s]\n\rSkill: [%s]\n\r", clan->command, clan->skill ); */ printf_to_char( ch, "Clan flags: [%s]\n\r", flag_string( clan_flags, clan->clan_flags )); printf_to_char( ch, "Join flags: [%s]\n\r", flag_string( clan_join_flags, clan->join_flags ) ); return FALSE; } CEDIT( cedit_create ) { CLAN_DATA *clan; if( top_clan >= MAX_CLAN ) { send_to_char("Limit on clans has been reached.\n\r", ch ); return FALSE; } clan = new_clan(); if( clan == NULL ) { send_to_char("ERROR! Could not create clan!\n\r", ch ); return FALSE; } SET_BIT( clan->clan_flags, CLAN_CREATING ); send_to_char("Clan created.\n\r", ch); clan_log(clan, "Clan created today!"); ch->desc->pEdit = (void *) clan; return TRUE; } CEDIT( cedit_name ) { CLAN_DATA * clan; EDIT_CLAN(ch, clan); if( argument[0]=='\0' ) { send_to_char("Syntax: name <clan name>\n\r", ch); return FALSE; } if( strlen(argument) != str_len(argument) ) /* Check for color codes in the name */ { send_to_char("You may not use color codes in the clan name.\n\r", ch); return FALSE; } if (strlen(argument) > 20) { send_to_char("Clan names must be 20 characters or less.\n\r", ch); return FALSE; } free_string( &clan->name ); clan->name = str_dup( argument ); send_to_char("Clan name set.\n\r", ch); return TRUE; } CEDIT( cedit_whoname ) { CLAN_DATA * clan; EDIT_CLAN(ch, clan); if( argument[0]=='\0' ) { send_to_char("Syntax: whoname <string>\n\r", ch); return FALSE; } if (str_len(argument) > 20) { send_to_char("Clan whonames must be 20 characters or less.\n\r", ch); return FALSE; } free_string( &clan->whoname ); clan->whoname = str_dup( argument ); send_to_char("Name visible on the \"who\" listing has been set.\n\r", ch); return TRUE; } CEDIT( cedit_rank ) { CLAN_DATA *clan; int i; char arg1[MAX_INPUT_LENGTH]; EDIT_CLAN(ch, clan); if( argument[0]=='\0' ) { send_to_char("Syntax: rank <#> <title>\n\r",ch); return FALSE; } argument=one_argument( argument, arg1 ); if( !is_number( arg1 ) ) { send_to_char("Syntax: rank <#> <title>\n\r",ch); return FALSE; } i = atoi( arg1 ); if( i < 1 || i > MAX_RANK ) { printf_to_char( ch, "Allowable rank numbers are 1 through %d.\n\r", MAX_RANK); return FALSE; } if (str_len(argument) > 40) { send_to_char( "Rank titles must be 40 characters or shorter.\n\r", ch ); return FALSE; } free_string( &clan->rank[i-1] ); clan->rank[i-1]=str_dup( argument ); send_to_char("Rank set.\n\r", ch); return TRUE; } CEDIT( cedit_cost ) { CLAN_DATA *clan; int i; EDIT_CLAN(ch, clan); if( argument[0]=='\0' || !is_number( argument ) ) { send_to_char("Syntax: cost <cost in gold>\n\r", ch); return FALSE; } i = atoi(argument); if( i < 0 || i > 100000000 ) /* I think 100 million should be about the limit for cost... */ { send_to_char("Illegal cost.\n\r", ch); return FALSE; } clan->cost_gold = i; send_to_char("Cost to join set.\n\r", ch); return TRUE; } CEDIT( cedit_members ) { CLAN_DATA *clan; int i; EDIT_CLAN(ch, clan); if( argument[0]=='\0' || !is_number( argument ) ) { send_to_char("Syntax: members <max members>\n\r", ch); return FALSE; } i = atoi(argument); if( i < 1 || i > MAX_CLAN_MEMBERS ) { send_to_char("That number of members is not allowed.\n\r", ch); return FALSE; } clan->max_members = i; send_to_char("Max members set.\n\r", ch); return TRUE; } CEDIT( cedit_minlevel ) { CLAN_DATA *clan; char buff[MAX_STRING_LENGTH]; int i; EDIT_CLAN(ch, clan); if( argument[0]=='\0' || !is_number( argument ) ) { send_to_char("Syntax: minlevel <level>\n\r", ch); return FALSE; } i = atoi(argument); if( i < 1 || i > MAX_LEVEL ) { sprintf(buff, "Range is 1 to %d.\n\r", MAX_LEVEL); send_to_char(buff, ch); return FALSE; } clan->min_level = i; send_to_char("Minimum level to join set.\n\r", ch); return TRUE; } CEDIT( cedit_recall ) { CLAN_DATA *clan; int room; EDIT_CLAN(ch, clan); if( argument[0]=='\0' || !is_number( argument ) ) { send_to_char("Syntax: recall <room vnum>\n\r", ch); return FALSE; } room = atoi(argument); if ( room < 0 || room > 32767 ) { send_to_char("Illegal room number.\n\r", ch); return FALSE; } if ( get_room_index( room ) == NULL ) { send_to_char("That room does not exist.\n\r", ch); return FALSE; } clan->recall_room = room; send_to_char("Clan recall room set.\n\r", ch); return TRUE; } CEDIT( cedit_leader ) { CLAN_DATA *clan; FILE *fp; char buf[MAX_INPUT_LENGTH]; EDIT_CLAN(ch, clan); if (argument[0] == '\0' ) { send_to_char("You must supply an argument.\n\r", ch); return FALSE; } #if defined(unix) /* decompress if .gz file exists */ sprintf( buf, "%s/%s%s", sysconfig.player_dir, capitalize(argument),".gz"); if ( ( fp = fopen( buf, "r" ) ) != NULL ) { char buf1[MAX_INPUT_LENGTH]; fclose(fp); sprintf(buf1,"gzip -dfq %s",buf); system(buf1); } #endif sprintf(buf, "%s/%s", sysconfig.player_dir, capitalize(argument) ); if ( (fp = fopen( buf, "r" ) ) != NULL ) { printf_to_char(ch , "%s is now the the leader of %s.\n\r", capitalize(argument), clan->name); clan->leader = str_dup(capitalize(argument)); fclose(fp); return TRUE; } send_to_char("That character is not a player on this mud.\n\r", ch); if (fp!=NULL) fclose(fp); return FALSE; } CEDIT( cedit_sponsor ) { CLAN_DATA *clan; char buf[MAX_INPUT_LENGTH]; FILE *fp; EDIT_CLAN(ch, clan); if (argument[0] == '\0' ) { send_to_char("You must supply an argument.\n\r", ch); return FALSE; } sprintf(buf, "%s/%s", sysconfig.god_dir, capitalize(argument) ); if ( (fp = fopen( buf, "r" ) ) != NULL ) { printf_to_char( ch, "%s is now the god sponsor for %s.\n\r", capitalize(argument), clan->name); clan->god = str_dup(capitalize(argument)); fclose(fp); return TRUE; } send_to_char("That player is not a god on this mud.\n\r", ch); if (fp!=NULL) fclose(fp); return FALSE; } CEDIT( cedit_joinflags ) { CLAN_DATA *clan; int value; EDIT_CLAN(ch, clan); if ( argument[0] != '\0' ) { if ( ( value = flag_value( clan_join_flags, argument ) ) != NO_FLAG ) { if( value == CLAN_NO_PK && IS_SET( clan->join_flags, CLAN_REQ_PK ) ) { clan->join_flags ^= CLAN_REQ_PK; } else if( value == CLAN_REQ_PK && IS_SET( clan->join_flags, CLAN_NO_PK ) ) { clan->join_flags ^= CLAN_NO_PK; } clan->join_flags ^= value; send_to_char( "Join flag toggled.\n\r", ch); return TRUE; } } send_to_char( "Syntax: joinflags [flag]\n\r" "Type '? joinflags' for a list of flags.\n\r", ch ); return FALSE; } CEDIT( cedit_clanflags ) { CLAN_DATA *clan; int value; EDIT_CLAN(ch, clan); if ( argument[0] != '\0' ) { if ( ( value = flag_value( clan_flags, argument ) ) != NO_FLAG ) { clan->clan_flags ^= value; send_to_char( "Clan flag toggled.\n\r", ch); return TRUE; } } send_to_char( "Syntax: clanflags <auto-accept/private/secret>\n\r", ch ); return FALSE; } bool can_ch_join( CHAR_DATA *ch, CLAN_DATA *clan, bool is_petitioning ) { if( ch->level < clan->min_level ) { printf_to_char(ch, "You must be level %d to join this clan.\n\r", clan->min_level); return FALSE; } if( ( IS_SET( clan->join_flags, CLAN_ANTI_MAGE) && ch->Class == CLASS_MAGE ) || ( IS_SET( clan->join_flags, CLAN_ANTI_CLERIC) && ch->Class == CLASS_CLERIC ) || ( IS_SET( clan->join_flags, CLAN_ANTI_WARRIOR) && ch->Class == CLASS_WARRIOR ) || ( IS_SET( clan->join_flags, CLAN_ANTI_THIEF) && ch->Class == CLASS_THIEF ) ) { send_to_char("This clan does not allow your class to join.\n\r", ch); return FALSE; } if( IS_SET( clan->join_flags, CLAN_REQ_PK ) && !IS_SET( ch->act, PLR_KILLER ) ) { send_to_char("You must be a player killer to join this clan.\n\r", ch); send_to_char("Type PK twice to become a player killer.\n\r", ch); return FALSE; } if( IS_SET( clan->join_flags, CLAN_NO_PK ) && IS_SET( ch->act, PLR_KILLER ) ) { send_to_char("You may not be a player killer and join this clan.\n\r", ch); send_to_char("Ask a high level god to remove your killer flag if you still wish to join.\n\r", ch); return FALSE; } if( IS_SET( clan->join_flags, CLAN_ANTI_EVIL ) && IS_EVIL( ch ) ) { send_to_char("Evil-aligned players may not join this clan.\n\r", ch); return FALSE; } if( IS_SET( clan->join_flags, CLAN_ANTI_GOOD ) && IS_GOOD( ch ) ) { send_to_char("Good-aligned players may not join this clan.\n\r", ch); return FALSE; } if( !IS_SET( clan->clan_flags, CLAN_AUTO_ACCEPT ) && !is_petitioning ) { send_to_char("This clan does not auto-accept new members.\n\r", ch); send_to_char("Use the PETITION command on one of its members.\n\r", ch); return FALSE; } return TRUE; } void add_member(CHAR_DATA *ch, CLAN_DATA *clan) { int i; for( i=0; i < clan->max_members; i++ ) { if( clan->members[i][0]=='\0' ) { free_string(&clan->members[i]); clan->members[i]=str_dup(ch->name); clan->num_members++; clan_log( clan, "New member: %s", ch->name ); save_clans(); do_save(ch,""); return; } } bug("Add_member: No spots in clan %d!", clan->number); return; } void remove_member(CHAR_DATA *ch, CLAN_DATA *clan) { int i; for( i=0; i < clan->max_members; i++ ) { if( !str_cmp(clan->members[i], ch->name ) ) { free_string(&clan->members[i]); clan->members[i]=str_dup(""); clan->num_members--; clan_log( clan, "Removed from clan: %s", ch->name ); save_clans(); do_save(ch,""); return; } } bug("Add_member: Name not found in clan %d!", clan->number); return; } void do_show(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; char arg1[MAX_INPUT_LENGTH]; int num=0; bool found=FALSE; argument = one_argument( argument, arg1 ); if( clan_first == NULL ) { send_to_char("There are no clans at all yet.\n\r", ch); return; } if( !str_cmp( arg1, "active" ) ) { found = FALSE; send_to_char("Clans actively recruiting:\n\r", ch); send_to_char("===============================\n\r", ch); for( clan=clan_first; clan!=NULL; clan=clan->next ) { if( IS_SET(clan->clan_flags, CLAN_ACTIVE) && ( !IS_SET(clan->clan_flags, CLAN_SECRET) || IS_IMMORTAL(ch) ) && clan->num_members < MAX_CLAN_MEMBERS ) { num++; printf_to_char(ch, "[%3d] %s\n\r", num, clan->name); found = TRUE; } } if( found == FALSE ) { send_to_char("No clans are publicly recruiting.\n\r", ch); } return; } if( !str_cmp( arg1, "inactive" ) ) { found = FALSE; send_to_char("Clans not actively recruiting:\n\r", ch); send_to_char("===============================\n\r", ch); for( clan=clan_first; clan!=NULL; clan=clan->next ) { if( (IS_SET(clan->clan_flags, CLAN_INACTIVE) && ( !IS_SET(clan->clan_flags, CLAN_SECRET) || IS_IMMORTAL(ch) ) ) || ((IS_SET(clan->clan_flags, CLAN_ACTIVE) && !IS_SET(clan->clan_flags, CLAN_SECRET) && clan->num_members >= MAX_CLAN_MEMBERS )) ) { num++; printf_to_char(ch, "[%3d] %s\n\r", num, clan->name); found = TRUE; } } if( found == FALSE ) { send_to_char("No clans are inactive at this time.\n\r", ch); } return; } if( !str_cmp( arg1, "all" ) ) { found = FALSE; send_to_char("Current existing clans:\n\r", ch); send_to_char("===============================\n\r", ch); for( clan=clan_first; clan!=NULL; clan=clan->next ) { if ( ( !IS_SET( clan->clan_flags, CLAN_SECRET ) && ( IS_SET( clan->clan_flags, CLAN_ACTIVE ) || IS_SET( clan->clan_flags, CLAN_INACTIVE ) ) ) || IS_IMMORTAL(ch) ) { num++; printf_to_char(ch, "[%3d] %s\n\r", num, clan->name); found = TRUE; } } if( found == FALSE ) { send_to_char("None.\n\r", ch); } return; } if( !str_cmp( arg1, "members" ) ) { if( IS_NPC(ch) ) return; if( ch->pcdata->clan > 0 ) { clan = get_clan( ch->pcdata->clan ); printf_to_char(ch, "Sponsor: %s\n\rLeader: %s\n\r", clan->god, clan->leader); send_to_char("Members:\n\r", ch); for( num = 0; num < MAX_CLAN_MEMBERS; num++) { printf_to_char(ch, "%s ", clan->members[num]); if( num != 0 && num % 5 == 0 ) send_to_char("\n\r", ch); } send_to_char("\n\r", ch); } return; } if( IS_NPC(ch) ) return; if( ch->pcdata->clan == 0 ) { send_to_char("Syntax: show <active/inactive/all>\n\r", ch); return; } send_to_char("Syntax: show <active/inactive/all/members>\n\r", ch); return; } void do_join(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; int num, i=0; char arg1[MAX_INPUT_LENGTH]; if( IS_NPC(ch) ) { send_to_char("Are you nuts? NPC's may not join clans!\n\r", ch); return; } if( ch->pcdata == NULL ) return; if( ch->pcdata->clan != 0 ) { send_to_char("You are already a member of a clan! Duh!\n\r", ch); return; } if( argument[0]=='\0' && ch->pcdata->join_status != JOIN_START ) { send_to_char("Syntax: join <clan number, 0 to cancel>\n\r", ch); return; } argument = one_argument( argument, arg1 ); switch( ch->pcdata->join_status ) { case JOIN_START: send_to_char("This is a list of actively recruiting clans.\n\r", ch); do_show(ch, "active"); send_to_char("\n\rTo see this list again, type 'show active'.\n\r", ch); send_to_char("To join a clan, type JOIN followed by the number of the clan.\n\r", ch); ch->pcdata->join_status = JOIN_SEE_LIST; return; case JOIN_SEE_LIST: if( !is_number( arg1 ) ) { send_to_char("You must join a clan by using its number.\n\r", ch); return; } num = atoi( arg1 ); if( num == 0 ) { send_to_char("Cancelling your joining of a clan.\n\r", ch); ch->pcdata->join_status = JOIN_START; return; } for( clan=clan_first; clan!=NULL; clan=clan->next ) { if( IS_SET(clan->clan_flags, CLAN_ACTIVE) && !IS_SET(clan->clan_flags, CLAN_SECRET) && clan->num_members < MAX_CLAN_MEMBERS ) { i++; if( num == i ) { printf_to_char(ch, "You are attempting to join clan #%d, %s.\n\r", num, clan->name ); if( can_ch_join( ch, clan, FALSE ) == FALSE ) return; send_to_char("You are eligable to join.\n\r", ch); if( clan->cost_gold > 0 ) { printf_to_char(ch, "This clan costs %d gold to join.\n\r", clan->cost_gold); if( ch->gold < clan->cost_gold ) { send_to_char("You cannot afford to join!\n\r", ch); return; } } printf_to_char(ch, "To confirm, please type JOIN %d\n\r", num); send_to_char("Type JOIN 0 to cancel this choice.\n\r", ch); ch->pcdata->join_status = JOIN_CONFIRM; ch->pcdata->join_clan = num; return; } } } send_to_char("That clan does not exist.\n\r", ch); return; case JOIN_CONFIRM: if( !is_number( arg1 ) ) { send_to_char("You must join a clan by using its number.\n\r", ch); return; } num = atoi( arg1 ); if( num == 0 ) { send_to_char("Your selection of a clan has been canceled.\n\r", ch); ch->pcdata->join_status = JOIN_START; ch->pcdata->join_clan = 0; return; } if( num != ch->pcdata->join_clan ) { send_to_char("Your clan selections do not match.\n\r", ch); printf_to_char(ch, "Type JOIN 0 to cancel or JOIN %d to confirm.\n\r", ch->pcdata->join_clan ); } for( clan=clan_first; clan!=NULL; clan=clan->next ) { if( IS_SET(clan->clan_flags, CLAN_ACTIVE) && !IS_SET(clan->clan_flags, CLAN_SECRET) && clan->num_members < MAX_CLAN_MEMBERS ) { i++; if( num == i ) { if( clan->cost_gold > 0 ) { printf_to_char(ch, "This clan costs %d gold to join.\n\r", clan->cost_gold); if( clan->cost_gold > ch->gold ) { send_to_char("You cannot afford this clan!\n\r", ch); do_join(ch, "0"); return; } ch->gold -= clan->cost_gold; clan->clan_fund += clan->cost_gold; printf_to_char(ch, "You now have %d gold left.\n\r", ch->gold); } printf_to_char(ch, "You are now a member of clan #%d, %s!\n\r", i, clan->name); ch->pcdata->clan = clan->number; ch->pcdata->join_status = JOIN_START; add_member( ch, clan ); ch->pcdata->clan_rank = MAX_RANK; return; } } } case JOIN_PETITIONING: send_to_char("You are currently petitioning to join a clan.\n\r", ch); send_to_char("If you are refused, then you may use the JOIN command again.\n\r", ch); return; case JOIN_DECIDING: send_to_char("You have already been invited to join a clan.\n\r", ch); send_to_char("Use the ACCEPT or DECLINE commands to join or not.\n\r", ch); return; case JOIN_CONSIDERING: case JOIN_OFFERING: send_to_char("Doh, a bug. Ignore this.\n\r", ch); bug("Ch without clan in JOIN_CONSIDERING or JOIN_OFFERING", 0); ch->pcdata->join_status = JOIN_START; return; default: send_to_char("Doh, a bug. Ignore this.\n\r", ch); bug("Unknown join_status %d!", ch->pcdata->join_status ); ch->pcdata->join_status = JOIN_START; return; } return; } void do_petition(CHAR_DATA *ch, char *argument) { char arg1[MAX_INPUT_LENGTH]; CLAN_DATA *clan; CHAR_DATA *victim; if( IS_NPC(ch) ) return; if( ch->pcdata == NULL ) return; if( ch->pcdata->clan != 0 ) { send_to_char("You are already a member of a clan!\n\r", ch); return; } if( ch->pcdata->join_status == JOIN_PETITIONING ) { send_to_char("You are already petitioning to join a clan!\n\r", ch); return; } if( ch->pcdata->join_status == JOIN_DECIDING ) { send_to_char("You have already been offered membership in a clan!\n\r", ch); send_to_char("Type ACCEPT or DECLINE.\n\r", ch); } if( argument[0]=='\0' ) { send_to_char("Petition who?\n\r", ch); return; } argument = one_argument( argument, arg1 ); victim = get_char_world( ch, arg1 ); if( victim == NULL ) { send_to_char("Petition who?\n\r", ch); return; } if( IS_NPC( victim ) ) { send_to_char("Only players can be petitioned!\n\r", ch); return; } if( victim->pcdata == NULL ) return; if( victim->pcdata->clan == 0 ) { send_to_char("That person is not a member of a clan.\n\r", ch); return; } if( victim->pcdata->clan_ch != ch && victim->pcdata->clan_ch != NULL ) { send_to_char("That person is currently being petitioned by someone else.\n\r", ch); return; } if( victim->pcdata->clan_ch == ch ) { send_to_char("You are already petitioning them! Be patient!\n\r", ch); return; } clan = get_clan( victim->pcdata->clan ); if( clan == NULL ) { bug("NULL clan %d", victim->pcdata->clan ); return; } if( IS_SET(clan->clan_flags, CLAN_SECRET) ) { send_to_char("That person is not a member of a clan.\n\r", ch); return; } if( victim->pcdata->clan_rank > RANK_CAN_ACCEPT || victim->pcdata->clan_rank < 1 ) { send_to_char("That person is not of sufficient rank to accept you.\n\r", ch); return; } if( can_ch_join( ch, clan, TRUE ) == FALSE ) return; if( clan->cost_gold > 0 ) { printf_to_char(ch, "It costs %d gold to join.\n\r",clan->cost_gold); if( clan->cost_gold > ch->gold ) { send_to_char("You cannot afford it!\n\r", ch); return; } } clan_log(clan,"%s petitions %s to join.", ch->name, victim->name); printf_to_char(victim, "%s has petitioned to join your clan!\n\r", ch->name); send_to_char("Type ACCEPT or DECLINE, or talk to them for a while.\n\r", victim); send_to_char("Petition sent!\n\r", ch); ch->pcdata->join_status = JOIN_PETITIONING; victim->pcdata->join_status = JOIN_CONSIDERING; ch->pcdata->clan_ch = victim; victim->pcdata->clan_ch = ch; return; } void do_accept(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; if( IS_NPC(ch) ) return; if( ch->pcdata == NULL ) return; if( ch->pcdata->join_status != JOIN_DECIDING && ch->pcdata->join_status != JOIN_CONSIDERING ) { send_to_char("What, exactly, are you trying to accept?\n\r", ch); return; } if( ch->pcdata->join_status == JOIN_CONSIDERING ) { clan = get_clan( ch->pcdata->clan ); if( clan->cost_gold > ch->pcdata->clan_ch->gold ) { send_to_char("They can no longer afford to join.\n\r",ch); send_to_char("Use DECLINE to refuse, or wait come more.\n\r", ch); return; } clan_log(clan, "Petition accepted by %s", ch->name); printf_to_char(ch, "You accept %s into clan %s!\n\r", ch->pcdata->clan_ch->name, clan->name ); printf_to_char(ch->pcdata->clan_ch, "You have been accepted into clan %s!\n\r", clan->name); ch->pcdata->clan_ch->gold -= clan->cost_gold; clan->clan_fund += clan->cost_gold; ch->pcdata->clan_ch->pcdata->clan = clan->number; ch->pcdata->clan_ch->pcdata->clan_rank = MAX_RANK; ch->pcdata->clan_ch->pcdata->join_status = JOIN_START; ch->pcdata->clan_ch->pcdata->clan_ch = NULL; ch->pcdata->clan_ch->pcdata->join_clan = 0; add_member( ch->pcdata->clan_ch, clan ); ch->pcdata->clan_ch = NULL; ch->pcdata->join_status = JOIN_START; return; } clan = get_clan( ch->pcdata->clan_ch->pcdata->clan ); if( ch->gold < clan->cost_gold ) { send_to_char("You cannot afford to join that clan!\n\r", ch); send_to_char("Use DECLINE to turn them down or go get more gold fast.\n\r",ch); return; } clan_log(clan, "%s accepts membership.", ch->name); printf_to_char(ch, "You accept membership in clan %s!\n\r", clan->name); printf_to_char(ch->pcdata->clan_ch, "%s has accepted membership in your clan!\n\r", ch->name); ch->gold -= clan->cost_gold; clan->clan_fund += clan->cost_gold; ch->pcdata->clan = clan->number; ch->pcdata->clan_rank = MAX_RANK; ch->pcdata->join_status = JOIN_START; add_member( ch, clan ); ch->pcdata->clan_ch->pcdata->clan_ch = NULL; ch->pcdata->clan_ch->pcdata->join_status = JOIN_START; ch->pcdata->clan_ch = NULL; return; } void do_decline(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; if( IS_NPC(ch) ) return; if( ch->pcdata == NULL ) return; if( ch->pcdata->join_status != JOIN_DECIDING && ch->pcdata->join_status != JOIN_CONSIDERING ) { send_to_char("What, exactly, are you trying to decline?\n\r", ch); return; } if( ch->pcdata->join_status == JOIN_CONSIDERING ) { clan = get_clan( ch->pcdata->clan ); clan_log(clan, "%s declines the petition.", ch->name); printf_to_char(ch, "You decline to accept %s into clan %s.\n\r", ch->pcdata->clan_ch->name, clan->name ); printf_to_char(ch->pcdata->clan_ch, "You have been denied membership into clan %s.\n\r", clan->name); ch->pcdata->clan_ch->pcdata->join_status = JOIN_START; ch->pcdata->clan_ch->pcdata->clan_ch = NULL; ch->pcdata->clan_ch = NULL; ch->pcdata->join_status = JOIN_START; return; } clan = get_clan( ch->pcdata->clan_ch->pcdata->clan ); clan_log(clan, "%s declines to join.", ch->name); printf_to_char(ch, "You decline membership in clan %s.\n\r", clan->name); printf_to_char(ch->pcdata->clan_ch, "%s has declined membership in your clan.\n\r", ch->name); ch->pcdata->clan_ch->pcdata->join_status = JOIN_START; ch->pcdata->clan_ch->pcdata->clan_ch = NULL; ch->pcdata->clan_ch = NULL; ch->pcdata->join_status = JOIN_START; return; } void do_offer(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; CHAR_DATA *victim; if( IS_NPC( ch ) || ch->pcdata == NULL ) return; if( ch->pcdata->clan == 0 ) { send_to_char("You can't offer membership in a clan if you are clanless!\n\r", ch); return; } victim = get_char_world( ch, argument ); if( victim == NULL ) { send_to_char("Offer membership to who?\n\r", ch); return; } if( IS_NPC(victim) || victim->pcdata == NULL ) { send_to_char("You cannot offer membership to NPC's.\n\r", ch); return; } if( ch->pcdata->join_status != 0 && ch->pcdata->clan_ch != NULL ) { printf_to_char(ch, "You are currently being petitioned by or offering membership to %s.\n\r", ch->pcdata->clan_ch->name); return; } clan = get_clan( ch->pcdata->clan ); if( ch->pcdata->clan_rank < 1 || ch->pcdata->clan_rank > RANK_CAN_ACCEPT ) { send_to_char("You are not of high enough rank to offer membership to anyone.\n\r", ch); return; } if( victim->pcdata->join_status > JOIN_SEE_LIST ) { send_to_char("That player is considering membership in another clan.\n\r", ch); send_to_char("Better make them change their mind, fast! :)\n\r", ch); return; } /* The reason the "That person is ineligable to join your clan." message is everywhere is to preserve the secretness of the secret clans. */ if( victim->pcdata->clan != 0 ) { CLAN_DATA *tmpclan; tmpclan = get_clan( victim->pcdata->clan ); if( IS_SET( tmpclan->clan_flags, CLAN_SECRET ) ) send_to_char("That person is ineligable to join your clan.\n\r", ch); else send_to_char("That person is already a member of a clan!\n\r", ch); return; } if( victim->level < clan->min_level ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); send_to_char("To find out why, they must petition you.\n\r", ch); return; } if( (IS_SET( clan->join_flags, CLAN_ANTI_MAGE) && victim->Class == CLASS_MAGE ) || ( IS_SET( clan->join_flags, CLAN_ANTI_CLERIC) && victim->Class == CLASS_CLERIC ) || ( IS_SET( clan->join_flags, CLAN_ANTI_WARRIOR) && victim->Class == CLASS_WARRIOR ) || ( IS_SET( clan->join_flags, CLAN_ANTI_THIEF) && victim->Class == CLASS_THIEF ) ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); return; } if( IS_SET( clan->join_flags, CLAN_REQ_PK ) && !IS_SET( victim->act, PLR_KILLER ) ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); return; } if( IS_SET( clan->join_flags, CLAN_NO_PK ) && IS_SET( victim->act, PLR_KILLER ) ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); return; } if( IS_SET( clan->join_flags, CLAN_ANTI_EVIL ) && IS_EVIL( victim ) ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); return; } if( IS_SET( clan->join_flags, CLAN_ANTI_GOOD ) && IS_GOOD( victim ) ) { send_to_char("That person is ineligable to join your clan.\n\r", ch); return; } if( victim->gold < clan->cost_gold ) { send_to_char("They cannot afford to join! they are too poor!\n\r",ch); return; } printf_to_char(ch, "You offer %s membership in clan %s.\n\r", victim->name, clan->name); printf_to_char(victim, "You have been offered membership in clan %s by %s!\n\r", clan->name, ch->name); if( clan->cost_gold > 0 ) printf_to_char(victim, "It will cost %d gold to join.\n\r", clan->cost_gold); clan_log(clan, "Membership offered to %s by %s.", victim->name, ch->name); ch->pcdata->clan_ch = victim; ch->pcdata->join_status = JOIN_OFFERING; victim->pcdata->clan_ch = ch; victim->pcdata->join_status = JOIN_DECIDING; return; } void do_promote(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; CHAR_DATA *victim; char buf[MAX_INPUT_LENGTH]; if( IS_NPC( ch ) ) return; if(ch->pcdata == NULL) return; if( argument[0] == '\0' ) { send_to_char("Promote who?\n\r", ch); return; } victim = get_char_world( ch, argument ); if( victim == NULL ) { send_to_char("Promote who?\n\r", ch); return; } if( IS_NPC(victim) ) { send_to_char("Um, you can't promote mobs.\n\r", ch); return; } if( get_trust( ch ) < MAX_LEVEL ) /* IMPS can promote anyone :) */ { if( ch->pcdata->clan == 0 ) { send_to_char("You are not a member of a clan!\n\r", ch); return; } if( ch->pcdata->clan != victim->pcdata->clan ) { send_to_char("They are not even IN your clan!\n\r", ch); return; } if( victim->pcdata->clan_rank < 1 ) { victim->pcdata->clan_rank=MAX_RANK; } if( ch->pcdata->clan_rank > 2 ) { send_to_char("You are not high enough rank to promote anyone.\n\r", ch); return; } clan = get_clan( ch->pcdata->clan ); if( str_cmp( ch->name, clan->leader) ) { if( (ch->pcdata->clan_rank == 2 && victim->pcdata->clan_rank < 4 ) || ( ch->pcdata->clan_rank == 1 && victim->pcdata->clan_rank < 3 ) ) { send_to_char("Only the clan leader, an IMP, or a higher rank can promote them.\n\r", ch); return; } } } else { clan = get_clan( victim->pcdata->clan ); } if( victim->pcdata->clan_rank < 2 ) { send_to_char("That person's rank is as high as it can be!\n\r", ch ); return; } printf_to_char(ch, "You promote %s to %s!\n\r", victim->name, clan->rank[victim->pcdata->clan_rank-2]); victim->pcdata->clan_rank--; printf_to_char(victim, "%s promotes you to %s in clan %s!\n\r", ch->name, clan->rank[victim->pcdata->clan_rank-1], clan->name); sprintf(buf, "%s promoted %s in clan %d.", ch->name, victim->name, clan->number ); log_string( buf ); clan_log( clan, "%s promoted %s to %s.", ch->name, victim->name, clan->rank[victim->pcdata->clan_rank-1] ); return; } void do_clan(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; const char syntax[] = "Syntax: clan list\n\r clan snoop\n\r clan <clan #> view\n\r clan <clan #> member <add/remove> <member name>\n\r clan <clan #> bank <deposit/withdraw> <amount>\n\r clan <clan #> status <creating/active/inactive/disbanding/dead>\n\r"; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; int i, active=0, recruit=0, x; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if( arg1[0] == '\0' ) { send_to_char(syntax, ch); return; } if( !str_cmp( arg1, "list" ) ) { if( clan_first == NULL ) { send_to_char("There are no clans. Use 'edit clan create'.\n\r", ch); return; } send_to_char("`wNumber Name Status Fund\n\r", ch); send_to_char("`K====== ============================== ==================== ==========`w\n\r", ch); for( clan = clan_first; clan != NULL; clan = clan->next ) { printf_to_char(ch, "%6d %30s %20s %10d\n\r", clan->number, clan->name, flag_string( clan_flags, clan->clan_flags ), clan->clan_fund ); if( clan->num_members < clan->max_members && IS_SET( clan->clan_flags, CLAN_ACTIVE ) ) recruit++; if( IS_SET( clan->clan_flags, CLAN_ACTIVE ) ) active++; } printf_to_char(ch, "Active Clans: %d\n\rRecruiting Clans: %d\n\r", active, recruit); return; } if( !str_cmp( arg1, "snoop") ) { if( IS_SET( ch->comm, COMM_SNOOP_CLAN ) ) { REMOVE_BIT( ch->comm, COMM_SNOOP_CLAN ); send_to_char("You no longer are snooping the clan channels.\n\r", ch); return; } else { SET_BIT( ch->comm, COMM_SNOOP_CLAN ); send_to_char("You are now snooping clans.\n\r", ch); return; } return; } if (!is_number(arg1)) { send_to_char(syntax, ch); return; } i = atoi( arg1 ); clan = get_clan( i ); if( clan == NULL ) { send_to_char("No such clan.\n\r", ch); return; } if( !str_cmp( arg2, "view" ) ) { printf_to_char( ch, "Name: [%s]\n\rNumber: [%2d]\n\rLeader: [%12s]\n\rSponsor:[%12s]\n\r", clan->name, clan->number, clan->leader, clan->god ); send_to_char("Members:", ch); for( x=0; x<MAX_CLAN_MEMBERS; x++ ) { printf_to_char( ch, " %s", clan->members[x]); } send_to_char("\n\r", ch); printf_to_char( ch, "Recall: %d\n\rClan fund: %d\n\r", clan->recall_room, clan->clan_fund ); printf_to_char( ch, "Clan status: %s\n\r", flag_string( clan_flags, clan->clan_flags ) ); return; } if( !str_cmp( arg2, "member" ) ) { CHAR_DATA *victim; victim = get_char_world( ch, argument ); if ( ( victim == NULL ) || ( argument[0] == '\0' ) ) { send_to_char("Player not found!\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char("Not on NPCs.\n\r", ch); return; } if ( !str_cmp( arg3, "add" ) ) { if (victim->pcdata->clan != 0) { send_to_char("They are already in a clan.", ch); return; } if ( !can_ch_join( victim, clan, TRUE ) == FALSE ) { send_to_char("WARNING! This player does not meet the requirements of that clan!\n\r", ch); } victim->pcdata->clan = clan->number; victim->pcdata->clan_rank = MAX_RANK; victim->pcdata->join_status = JOIN_START; victim->pcdata->clan_ch = NULL; add_member(victim, clan); printf_to_char(victim, "You have been made a member of %s.\n\r", clan->name); send_to_char("Member added.\n\r", ch); return; } if ( !str_cmp( arg3, "remove" ) ) { if (victim->pcdata->clan != clan->number) { send_to_char("They are not a member of that clan!", ch); return; } victim->pcdata->clan = 0; victim->pcdata->clan_rank = 0; victim->pcdata->join_status = 0; victim->pcdata->clan_ch = NULL; remove_member(victim, clan); printf_to_char(victim, "You have been removed from %s.\n\r", clan->name); send_to_char("Member removed.\n\r", ch); return; } send_to_char(syntax, ch); return; } if( !str_cmp( arg2, "bank" ) || !str_cmp( arg2, "fund" ) ) { int mod; if ( argument[0]=='\0' || !is_number( argument ) ) { send_to_char(syntax, ch); return; } mod = atoi( argument ); if (mod <= 0) { send_to_char("Positive numbers ONLY.\n\r", ch); return; } if ( !str_cmp( arg3, "deposit" ) ) { clan->clan_fund += mod; printf_to_char(ch, "Balance: %d\n\r", clan->clan_fund); clan_log(clan, "%d credited by %s.", mod, ch->name); save_clans(); return; } if ( !str_cmp( arg3, "withdraw" ) ) { if ( mod > clan->clan_fund ) { send_to_char("The clan cannot afford that.\n\r", ch); return; } clan->clan_fund -= mod; printf_to_char(ch, "Balance: %d\n\r", clan->clan_fund); clan_log(clan, "%d funds deducted by %s.", mod, ch->name); save_clans(); return; } send_to_char(syntax, ch); return; } if( !str_cmp( arg2, "status" ) ) { if ( !str_cmp( arg3, "creating" ) ) { REMOVE_BIT( clan->clan_flags, CLAN_ACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_INACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_DISBANDING ); REMOVE_BIT( clan->clan_flags, CLAN_DEAD ); SET_BIT( clan->clan_flags, CLAN_CREATING ); printf_to_char( ch, "Clan %s is now in the 'creating' stage.\n\r", clan->name ); save_clans(); return; } if( !str_cmp( arg3, "active" ) ) { REMOVE_BIT( clan->clan_flags, CLAN_INACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_CREATING ); REMOVE_BIT( clan->clan_flags, CLAN_DISBANDING ); REMOVE_BIT( clan->clan_flags, CLAN_DEAD ); SET_BIT( clan->clan_flags, CLAN_ACTIVE ); printf_to_char( ch, "Clan %s is now in the 'active' stage.\n\r", clan->name ); clan_log(clan, "Clan is now active."); save_clans(); return; } if( !str_cmp( arg3, "inactive" ) ) { REMOVE_BIT( clan->clan_flags, CLAN_ACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_CREATING ); REMOVE_BIT( clan->clan_flags, CLAN_DISBANDING ); REMOVE_BIT( clan->clan_flags, CLAN_DEAD ); SET_BIT( clan->clan_flags, CLAN_INACTIVE ); printf_to_char( ch, "Clan %s is now in the 'inactive' stage.\n\r", clan->name ); clan_log(clan, "The clan is no longer recruiting."); save_clans(); return; } if( !str_cmp( arg3, "disbanding" ) ) { REMOVE_BIT( clan->clan_flags, CLAN_ACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_INACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_CREATING ); REMOVE_BIT( clan->clan_flags, CLAN_DEAD ); SET_BIT( clan->clan_flags, CLAN_DISBANDING ); printf_to_char( ch, "Clan %s is now in the 'disbanding' stage.\n\r", clan->name ); clan_log(clan, "The clan is now disbanding."); save_clans(); return; } if( !str_cmp( arg3, "dead" ) ) { REMOVE_BIT( clan->clan_flags, CLAN_ACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_INACTIVE ); REMOVE_BIT( clan->clan_flags, CLAN_CREATING ); REMOVE_BIT( clan->clan_flags, CLAN_DISBANDING ); SET_BIT( clan->clan_flags, CLAN_DEAD ); printf_to_char( ch, "Clan %s is now in the 'dead' stage.\n\r", clan->name ); clan_log(clan, "The clan is now dead."); save_clans(); return; } send_to_char(syntax, ch); return; } send_to_char(syntax, ch); return; } void do_clantalk( CHAR_DATA *ch, char *argument ) { DESCRIPTOR_DATA *d; CLAN_DATA *clan; if( IS_NPC(ch) ) return; if( ch->pcdata->clan == 0 ) { send_to_char("You are not even in a clan!\n\r", ch); return; } if (argument[0] == '\0' ) { if (IS_SET(ch->comm,COMM_NOCLAN)) { send_to_char("`BClan channel is now ON.\n\r`w",ch); REMOVE_BIT(ch->comm,COMM_NOCLAN); } else { send_to_char("`BClan channel is now OFF.\n\r`w",ch); SET_BIT(ch->comm,COMM_NOCLAN); } } else /* clan message sent, turn clantalk on if it isn't already */ { if (IS_SET(ch->comm,COMM_QUIET)) { send_to_char("You must turn off quiet mode first.\n\r",ch); return; } if (IS_SET(ch->comm,COMM_NOCHANNELS)) { send_to_char("The gods have revoked your channel priviliges.\n\r",ch); return; } REMOVE_BIT(ch->comm,COMM_NOCLAN); clan = get_clan( ch->pcdata->clan ); for ( d = descriptor_list; d != NULL; d = d->next ) { CHAR_DATA *victim; victim = d->original ? d->original : d->character; if( IS_NPC( victim ) ) continue; if( victim == NULL ) continue; if( victim->pcdata == NULL ) continue; if ( ( d->character != NULL && d->connected == CON_PLAYING && !IS_SET(victim->comm,COMM_NOCLAN) && !IS_SET(victim->comm,COMM_QUIET) && victim->pcdata->clan == ch->pcdata->clan && d->character->position >= POS_SLEEPING && clan != NULL) || IS_SET(victim->comm,COMM_SNOOP_CLAN)) { printf_to_char(victim, "`B%s`R<`w%s`R>`w %s`w\n\r", clan->whoname[0] != '\0' ? clan->whoname : clan->name, IS_NPC(ch) ? ch->short_descr : ch->name, argument); } } } } void do_resign( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; if( IS_NPC(ch) ) { send_to_char("You cannot resign from a clan, you're a mob!\n\r", ch); return; } if ( ch->pcdata->clan == 0 ) { send_to_char("You're not in a clan, so how can you resign from one?\n\r", ch); return; } clan = get_clan( ch->pcdata->clan ); if( !str_cmp( clan->leader, ch->name) || !str_cmp( clan->god, ch->name ) ) { send_to_char("You cannot resign from this clan, you're too high ranked!\n\r", ch); return; } if( ch->pcdata->join_status != JOIN_RESIGNING ) { send_to_char("You are attempting to remove yourself from your clan.\n\r", ch); send_to_char("Please type RESIGN again to confirm.\n\r", ch); ch->pcdata->join_status = JOIN_RESIGNING; return; } clan_log( clan, "%s resigned from the clan!", ch->name); ch->pcdata->clan = 0; ch->pcdata->clan_rank = 0; ch->pcdata->join_status = 0; remove_member( ch, clan ); send_to_char("You are no longer a member of the clan.\n\r", ch); return; } void do_crecall( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; ROOM_INDEX_DATA *location; CLAN_DATA *clan; if (IS_NPC(ch) && !IS_SET(ch->act,ACT_PET)) { send_to_char("Only players can recall.\n\r",ch); return; } if( !IS_NPC(ch) && ch->pcdata->clan < 1 ) { send_to_char("The clan recall command is for clan members only.\n\r",ch); return; } act( "$n prays for transportation!", ch, 0, 0, TO_ROOM ); if (!IS_NPC(ch)) { if ( ch->pcdata->clan == 0) { send_to_char("You can't use clan recall, you're not in a clan!", ch); return; } clan = get_clan( ch->pcdata->clan ); location = get_room_index( clan->recall_room ); } else { clan = get_clan( ch->master->pcdata->clan ); location = get_room_index( clan->recall_room ); } if( location == NULL ) { send_to_char("Whoops, no such room.\n\r", ch); bug("NULL recall room %d", clan->recall_room ); return; } if ( ch->in_room == location ) { send_to_char( "Look around, look familiar?\n\r", ch); return; } if ( IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL) || IS_AFFECTED(ch, AFF_CURSE) ) { send_to_char( "The gods have forsaken you.\n\r", ch ); return; } if ( ( victim = ch->fighting ) != NULL ) { int lose,skill; if (IS_NPC(ch)) skill = 40 + ch->level; else skill = ch->pcdata->learned[gsn_recall]; if ( number_percent() < 80 * skill / 100 ) { check_improve(ch,gsn_recall,FALSE,6); WAIT_STATE( ch, 4 ); send_to_char( "You failed!\n\r", ch ); return; } if(!IS_NPC(ch)) { lose = (int)(0.02 * exp_per_level(ch, ch->pcdata->points)); gain_exp( ch, 0 - lose ); check_improve(ch,gsn_recall,TRUE,4); sprintf( buf, "You recall from combat! You lose %d exps.\n\r", lose ); send_to_char( buf, ch ); } stop_fighting( ch, TRUE ); } ch->move /= 2; send_to_char("You pray to the gods for transportation!\n\r", ch); act( "$n disappears.", ch, NULL, NULL, TO_ROOM ); char_from_room( ch ); char_to_room( ch, location ); act( "$n appears in the room.", ch, NULL, NULL, TO_ROOM ); do_look( ch, "auto" ); if (ch->pet != NULL) do_crecall(ch->pet,""); return; } void do_demote(CHAR_DATA *ch, char *argument) { CLAN_DATA *clan; CHAR_DATA *victim; char buf[MAX_INPUT_LENGTH]; if( IS_NPC( ch ) ) return; if(ch->pcdata == NULL) return; if( argument[0] == '\0' ) { send_to_char("Demote who?\n\r", ch); return; } victim = get_char_world( ch, argument ); if( victim == NULL ) { send_to_char("Demote who?\n\r", ch); return; } if( IS_NPC(victim) ) { send_to_char("Um, you can't demote mobs.\n\r", ch); return; } if( get_trust( ch ) < MAX_LEVEL ) /* IMPS can demote anyone :) */ { if( ch->pcdata->clan == 0 ) { send_to_char("You are not a member of a clan!\n\r", ch); return; } if( ch->pcdata->clan != victim->pcdata->clan ) { send_to_char("They are not even IN your clan!\n\r", ch); return; } if( victim->pcdata->clan_rank < 1 ) { victim->pcdata->clan_rank = MAX_RANK; } if( ch->pcdata->clan_rank > 1 ) { send_to_char("You are not high enough rank to demote anyone.\n\r", ch); return; } clan = get_clan( ch->pcdata->clan ); if( str_cmp( ch->name, clan->leader) ) { if( (ch->pcdata->clan_rank == 2 && victim->pcdata->clan_rank <= 3 ) || ( ch->pcdata->clan_rank == 1 && victim->pcdata->clan_rank <= 2 ) ) { send_to_char("Only the clan leader, an IMP, or a higher rank can demote them.\n\r", ch); return; } } } else { clan = get_clan( victim->pcdata->clan ); } if( victim->pcdata->clan_rank == MAX_RANK ) { send_to_char("That person's rank is as low as it can be!\n\r", ch ); return; } printf_to_char(ch, "You demote %s to %s!\n\r", victim->name, clan->rank[victim->pcdata->clan_rank]); victim->pcdata->clan_rank++; printf_to_char(victim, "%s demotes you to %s in clan %s! :(\n\r", ch->name, clan->rank[victim->pcdata->clan_rank-1], clan->name); sprintf(buf, "%s demoted %s in clan %d.", ch->name, victim->name, clan->number ); log_string( buf ); clan_log( clan, "%s demoted %s to %s.", ch->name, victim->name, clan->rank[victim->pcdata->clan_rank-1] ); return; }