/*************************************************************************** * 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. * * * * Ack 2.2 improvements copyright (C) 1994 by Stephen Dooley * * * * 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. * * * * _/ _/_/_/ _/ _/ _/ ACK! MUD is modified * * _/_/ _/ _/ _/ _/ Merc2.0/2.1/2.2 code * * _/ _/ _/ _/_/ _/ (c)Stephen Zepp 1998 * * _/_/_/_/ _/ _/ _/ Version #: 4.3 * * _/ _/ _/_/_/ _/ _/ _/ * * * * http://ackmud.nuc.net/ * * zenithar@ackmud.nuc.net * * 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. * ***************************************************************************/ #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <time.h> #include "globals.h" /* These set of clan functions by Zen */ extern POL_DATA politics_data; extern COUNCIL_DATA super_councils[MAX_SUPER]; void save_clan_table( ) { FILE *fp; char clan_file_name[MAX_STRING_LENGTH]; sh_int x, y; fclose( fpReserve ); sprintf( clan_file_name, "%s", CLAN_FILE ); if( ( fp = fopen( clan_file_name, "w" ) ) == NULL ) { bug( "Save Clan Table: fopen", 0 ); perror( "failed open of clan_table.dat in save_clan_table" ); } else { for( x = 1; x < MAX_CLAN; x++ ) { for( y = 1; y < MAX_CLAN; y++ ) { fprintf( fp, " %5d ", politics_data.diplomacy[x][y] ); } fprintf( fp, "\n" ); } for( x = 1; x < MAX_CLAN; x++ ) { fprintf( fp, "%li\n", politics_data.treasury[x] ); } for( x = 1; x < MAX_CLAN; x++ ) { for( y = 1; y < MAX_CLAN; y++ ) { fprintf( fp, " %5d ", politics_data.end_current_state[x][y] ); } fprintf( fp, "\n" ); } fflush( fp ); fclose( fp ); } fpReserve = fopen( NULL_FILE, "r" ); return; } void do_ctoggle( CHAR_DATA * ch, char *argument ) { /* * Toggles clan members various clan job flags * * Zen */ CHAR_DATA *victim; int job; char arg1[MAX_STRING_LENGTH]; char arg2[MAX_STRING_LENGTH]; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( IS_NPC( ch ) || !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_BOSS ) ) { send_to_char( "This command is for clan bosses only.\n\r", ch ); return; } if( arg1 == '\0' || arg2[0] == '\0' ) { send_to_char( "Syntax: ctoggle <clan number> <armourer/diplomat/treasurer/leader>\n\r", ch ); return; } if( ( victim = get_char_world( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "Not on NPCs!\n\r", ch ); return; } if( ch->pcdata->clan != victim->pcdata->clan ) { send_to_char( "Only on members of YOUR clan!\n\r", ch ); return; } if( !str_prefix( arg2, "armourer" ) ) job = PFLAG_CLAN_ARMOURER; else if( !str_prefix( arg2, "diplomat" ) ) job = PFLAG_CLAN_DIPLOMAT; else if( !str_prefix( arg2, "treasurer" ) ) job = PFLAG_CLAN_TREASURER; else if( !str_prefix( arg2, "leader" ) ) job = PFLAG_CLAN_LEADER; else { send_to_char( "That's not a legal clan job!!\n\r", ch ); return; } switch ( job ) { case PFLAG_CLAN_TREASURER: if( !IS_SET( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ) ) { SET_BIT( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ); send_to_char( "Job set as CLAN TREASURER.\n\r", ch ); send_to_char( "You have been set as a clan treasurer.\n\r", victim ); } else { REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ); send_to_char( "Job cleared: CLAN TREASURER.\n\r", ch ); send_to_char( "You are no longer a clan treasurer.\n\r", victim ); } break; case PFLAG_CLAN_DIPLOMAT: if( !IS_SET( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) { SET_BIT( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ); send_to_char( "Job set as CLAN DIPLOMAT.\n\r", ch ); send_to_char( "You have been set as a clan diplomat.\n\r", victim ); } else { REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ); send_to_char( "Job cleared: CLAN DIPLOMAT.\n\r", ch ); send_to_char( "You are no longer a clan diplomat.\n\r", victim ); } break; case PFLAG_CLAN_ARMOURER: if( !IS_SET( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ) ) { SET_BIT( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ); send_to_char( "Job set as CLAN ARMOURER.\n\r", ch ); send_to_char( "You have been set as a clan armourer.\n\r", victim ); } else { REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ); send_to_char( "Job cleared: CLAN ARMOURER.\n\r", ch ); send_to_char( "You are no longer a clan armourer.\n\r", victim ); } break; case PFLAG_CLAN_LEADER: if( !IS_SET( victim->pcdata->pflags, PFLAG_CLAN_LEADER ) ) { SET_BIT( victim->pcdata->pflags, PFLAG_CLAN_LEADER ); send_to_char( "Job set as CLAN LEADER.\n\r", ch ); send_to_char( "You have been set as a clan leader.\n\r", victim ); } else { REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_LEADER ); send_to_char( "Job cleared: CLAN LEADER.\n\r", ch ); send_to_char( "You are no longer a clan leader.\n\r", victim ); } break; } /* end of switch( job ) */ return; } char *get_diplo_name( sh_int value ) { char *name = '\0'; if( value < -450 ) name = "@@R WAR @@N"; else if( value < -300 ) name = "@@e HATRED@@N"; else if( value < -150 ) name = "@@dDISLIKE@@N"; else if( value < 150 ) name = "@@WNEUTRAL@@N"; else if( value < 300 ) name = "@@aRESPECT@@N"; else if( value < 450 ) name = "@@l TRUST @@N"; else name = "@@B ALLY @@N"; return ( name ); } void do_politics( CHAR_DATA * ch, char *argument ) { sh_int x, y; char buf[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH]; if( IS_NPC( ch ) ) { send_to_char( "Not for Npcs.\n\r", ch ); return; } send_to_char( "@@NCurrent Politics of " mudnamecolor "\n\r\n\r", ch ); buf[0] = '\0'; buf2[0] = '\0'; sprintf( buf, " " ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); for( x = 1; x < MAX_CLAN; x++ ) { sprintf( buf, " %s ", clan_table[x].clan_abbr ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); } buf[0] = '\0'; sprintf( buf, "\n\r\n\r" ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); send_to_char( buf2, ch ); for( x = 1; x < MAX_CLAN; x++ ) { /* * clan symbol here */ buf[0] = '\0'; buf2[0] = '\0'; sprintf( buf, "%1i %s ", x, clan_table[x].clan_abbr ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); for( y = 1; y < MAX_CLAN; y++ ) { buf[0] = '\0'; if( x != y ) { sprintf( buf, "%s ", get_diplo_name( politics_data.diplomacy[x][y] ) ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); } else { sprintf( buf, " " ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); } } sprintf( buf, "\n\r\n\r" ); safe_strcat( MAX_STRING_LENGTH, buf2, buf ); send_to_char( buf2, ch ); } if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) for( x = 1; x < MAX_CLAN; x++ ) { if( politics_data.end_current_state[ch->pcdata->clan][x] ) { sprintf( buf, "%s has requested an end to your current state of affairs", clan_table[x].clan_name ); send_to_char( buf, ch ); } } } void do_negotiate( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char arg1[MAX_STRING_LENGTH]; char arg2[MAX_STRING_LENGTH]; sh_int target_clan; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( IS_NPC( ch ) || !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) { send_to_char( "This command is for clan diplomats only.\n\r", ch ); return; } if( !is_number( arg1 ) || arg2[0] == '\0' ) { send_to_char( "Syntax: Negotiate <clan number> <peace/war/end>\n\r", ch ); return; } target_clan = atoi( arg1 ); if( ( target_clan < 1 ) || ( target_clan > ( MAX_CLAN - 1 ) ) ) { send_to_char( "That is not a clan!\n\r", ch ); return; } if( target_clan == ch->pcdata->clan ) { send_to_char( "Well, that will accomplish a lot..you must be of two minds about the whole thing!\n\r", ch ); return; } if( politics_data.daily_negotiate_table[ch->pcdata->clan][target_clan] ) { sprintf( buf, "Your clan has already negotiated with %s today.\n\r", clan_table[target_clan].clan_name ); send_to_char( buf, ch ); return; } if( !str_prefix( arg2, "peace" ) ) { if( politics_data.diplomacy[ch->pcdata->clan][target_clan] < -450 ) { if( politics_data.end_current_state[ch->pcdata->clan][target_clan] && politics_data.end_current_state[target_clan][ch->pcdata->clan] ) { politics_data.diplomacy[ch->pcdata->clan][target_clan] = -425; politics_data.diplomacy[target_clan][ch->pcdata->clan] = -425; send_to_char( "@@NYou have successfully negotiated an end to this dreaded @@eCLAN WAR@@N. Great Job!!\n\r", ch ); sprintf( buf, "@@eCLAN:@@N The war between %s and %s has ended. They may no longer PKILL each other!!\n\r", clan_table[ch->pcdata->clan].clan_name, clan_table[target_clan].clan_name ); info( buf, 1 ); politics_data.end_current_state[ch->pcdata->clan][target_clan] = FALSE; politics_data.end_current_state[target_clan][ch->pcdata->clan] = FALSE; return; } else { sprintf( buf, "@@NYou are currently at @@RWAR@@N with %s. Both clans must negotiate an end to the war first.\n\r", clan_table[target_clan].clan_name ); send_to_char( buf, ch ); return; } } else { politics_data.diplomacy[ch->pcdata->clan][target_clan] += 25; politics_data.diplomacy[target_clan][ch->pcdata->clan] += 25; sprintf( buf, "You are requesting a more peaceful state of affairs with %s.", clan_table[target_clan].clan_name ); send_to_char( buf, ch ); } } else if( !str_prefix( arg2, "war" ) ) { if( ( politics_data.diplomacy[ch->pcdata->clan][target_clan] - 50 ) < -450 ) { sprintf( buf, "@@NYou have started a @@eWAR@@N with %s! Watch out!.\n\r", clan_table[target_clan].clan_name ); send_to_char( buf, ch ); sprintf( buf, "@@eCLAN:@@N A war has started between %s and %s. They may now PKILL each other!!\n\r", clan_table[ch->pcdata->clan].clan_name, clan_table[target_clan].clan_name ); info( buf, 1 ); politics_data.diplomacy[ch->pcdata->clan][target_clan] = -460; politics_data.diplomacy[target_clan][ch->pcdata->clan] = -460; politics_data.end_current_state[ch->pcdata->clan][target_clan] = FALSE; politics_data.end_current_state[target_clan][ch->pcdata->clan] = FALSE; save_clan_table( ); return; } else { politics_data.diplomacy[ch->pcdata->clan][target_clan] -= 50; politics_data.diplomacy[target_clan][ch->pcdata->clan] -= 50; sprintf( buf, "You are requesting a more aggressive state of affairs with %s.", clan_table[target_clan].clan_name ); send_to_char( buf, ch ); } } else if( !str_prefix( arg2, "end" ) ) { if( politics_data.diplomacy[ch->pcdata->clan][target_clan] > 450 ) { send_to_char( "You are negotiating an and to your alliance.\n\r", ch ); politics_data.end_current_state[ch->pcdata->clan][target_clan] = FALSE; politics_data.end_current_state[target_clan][ch->pcdata->clan] = FALSE; politics_data.diplomacy[ch->pcdata->clan][target_clan] = 100; politics_data.diplomacy[target_clan][ch->pcdata->clan] = 100; } if( politics_data.diplomacy[ch->pcdata->clan][target_clan] < -450 ) { politics_data.end_current_state[ch->pcdata->clan][target_clan] = TRUE; if( politics_data.end_current_state[ch->pcdata->clan][target_clan] && politics_data.end_current_state[target_clan][ch->pcdata->clan] ) { send_to_char ( "Both clans have successfully negotiated and end to the war. Negotiate peace to seal your treaty!\n\r", ch ); save_clan_table( ); return; } else { send_to_char( " You have requested an end to this dreaded war, but the other clan has not yet agreed.\n\r", ch ); save_clan_table( ); return; } } else { send_to_char( "You must be either at war or in an alliance with a clan before you can END it.\n\r", ch ); return; } } else { send_to_char( "That is not a legal diplomatic negotiation!\n\r", ch ); return; } politics_data.daily_negotiate_table[ch->pcdata->clan][target_clan] = TRUE; /* save table to file here */ save_clan_table( ); return; } /* These set of clan functions by [ -S- ] Stephen */ void do_leav( CHAR_DATA * ch, char *argument ) { send_to_char( "If you want to LEAVE, spell it out!!\n\r", ch ); return; } /* CSET is an immortal command, used to set a players clan. * it is also used by other functions. */ void do_cset( CHAR_DATA * ch, char *argument ) { /* * This is basically do_mset, but with its guts ripped out, * and a slight change to what was left. * -- Stephen */ char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; int value; smash_tilde( argument ); argument = one_argument( argument, arg1 ); strcpy( arg2, argument ); if( IS_NPC( ch ) ) return; if( arg1[0] == '\0' || arg2[0] == '\0' ) { send_to_char( "Syntax: cset <player> <clan No.>\n\r\n\r", ch ); do_clan_list( ch, "" ); return; } if( ( victim = get_char_world( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return; } value = is_number( arg2 ) ? atoi( arg2 ) : -1; if( value == -1 ) { send_to_char( "Syntax: cset <player> <clan No.>\n\r\n\r", ch ); do_clan_list( ch, "" ); return; } if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if( value < 0 || value >= MAX_CLAN ) { sprintf( buf, "%d is not a valid value.\n\r", value ); send_to_char( buf, ch ); sprintf( buf, "Use a value between 0 and %d.\n\r\n\r", MAX_CLAN - 1 ); send_to_char( buf, ch ); do_clan_list( ch, "" ); return; } victim->pcdata->clan = value; sprintf( buf, "%s now belongs to clan %s.\n\r", victim->name, clan_table[value].clan_name ); send_to_char( buf, ch ); sprintf( buf, "%s has cset %s into clan %s.", ch->name, victim->name, clan_table[value].clan_name ); monitor_chan( buf, MONITOR_CLAN ); return; } /* accept is a command available to players set as clan_leader. * after various checks, the victim's clan is set to the leader's. * note that the victim must NOT be in a clan to be accepted. */ void do_accept( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; if( IS_NPC( ch ) ) return; if( !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_LEADER ) ) { send_to_char( "You must be a clan leader to use this command!\n\r", ch ); return; } if( ( victim = get_char_world( ch, argument ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "Not on NPCs!\n\r", ch ); return; } if( IS_IMMORTAL( victim ) ) { send_to_char( "You hear the gods laughing at you. Nice try.\n\r", ch ); return; } if( victim == ch ) { send_to_char( "You want to accept yourself... Strange.\n\r", ch ); return; } if( victim->pcdata->clan != 0 ) { sprintf( buf, "%s is already in a clan. Maybe they should leave it first?\n\r", victim->name ); send_to_char( buf, ch ); return; } if( victim->level < 20 ) { sprintf( buf, "%s must be at least 20th level to enter a clan.\n\r", victim->name ); send_to_char( buf, ch ); return; } victim->pcdata->clan = ch->pcdata->clan; act( "$N accepts you into $S clan!", victim, NULL, ch, TO_VICT ); act( "You accept $N into your clan!", ch, NULL, victim, TO_VICT ); sprintf( buf, "%s has accepted %s into clan %s.", ch->name, victim->name, clan_table[ch->pcdata->clan].clan_name ); monitor_chan( buf, MONITOR_CLAN ); return; } /* cwhere is an adapted copy of the do_where command, except it only shows * clan members, and operates globally. */ void do_cwhere( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; DESCRIPTOR_DATA *d; bool found; if( IS_NPC( ch ) ) return; if( ch->pcdata->clan == 0 ) { send_to_char( "You don't belong to a clan!\n\r", ch ); return; } send_to_char( "Clan members visible to you:\n\r", ch ); found = FALSE; for( d = first_desc; d != NULL; d = d->next ) { if( d->connected == CON_PLAYING && ( victim = d->character ) != NULL && !IS_NPC( victim ) && victim->in_room != NULL && ( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_BOSS ) || can_see( ch, victim ) ) ) { if( victim->pcdata->clan != ch->pcdata->clan ) continue; if( !IS_NPC( victim ) && IS_WOLF( victim ) && ( IS_SHIFTED( victim ) || IS_RAGED( victim ) ) ) continue; found = TRUE; sprintf( buf, "%-28s %s ", victim->name, victim->in_room->name ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_BOSS ) ) { if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_LEADER ) ) safe_strcat( MAX_STRING_LENGTH, buf, " L " ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ) ) safe_strcat( MAX_STRING_LENGTH, buf, " A " ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ) ) safe_strcat( MAX_STRING_LENGTH, buf, " T " ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) safe_strcat( MAX_STRING_LENGTH, buf, " D " ); } safe_strcat( MAX_STRING_LENGTH, buf, "\n\r" ); send_to_char( buf, ch ); } } if( !found ) send_to_char( "No other clan members were found.\n\r", ch ); return; } /* leave allows a (non-leader) clan member to leave his/her clan. * their clan is set to 0. Again, use do_cset to do the actual * stuff, and to generate the usage 'text'. ??? ummm ??? */ void do_leave( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; if( IS_NPC( ch ) ) return; if( ch->pcdata->clan == 0 ) /* No clan */ { send_to_char( "You must be IN a clan before you can leave it!\n\r", ch ); return; } sprintf( buf, "%s has left clan %s.", ch->name, clan_table[ch->pcdata->clan].clan_name ); monitor_chan( buf, MONITOR_CLAN ); ch->pcdata->clan = 0; send_to_char( "You leave your clan. Let's hope they don't get mad!\n\r", ch ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) REMOVE_BIT( ch->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_TREASURER ) ) REMOVE_BIT( ch->pcdata->pflags, PFLAG_CLAN_TREASURER ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_ARMOURER ) ) REMOVE_BIT( ch->pcdata->pflags, PFLAG_CLAN_ARMOURER ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_LEADER ) ) REMOVE_BIT( ch->pcdata->pflags, PFLAG_CLAN_LEADER ); if( IS_SET( ch->pcdata->pflags, PFLAG_CLAN_BOSS ) ) REMOVE_BIT( ch->pcdata->pflags, PFLAG_CLAN_BOSS ); return; } void do_banish( CHAR_DATA * ch, char *argument ) { CHAR_DATA *victim; char buf[MAX_STRING_LENGTH]; if( IS_NPC( ch ) ) return; if( !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_LEADER ) ) { send_to_char( "Only Clan Leaders may use this command.\n\r", ch ); return; } if( argument[0] == '\0' ) { send_to_char( "Banish WHO from your clan?\n\r", ch ); return; } if( ( victim = get_char_world( ch, argument ) ) == NULL ) { send_to_char( "No such Person.\n\r", ch ); return; } if( victim == ch ) { send_to_char( "Dumb Idea!\n\r", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "You can't banish a NPC!\n\r", ch ); return; } if( victim->pcdata->clan != ch->pcdata->clan ) { send_to_char( "They're not in your clan!\n\r", ch ); return; } if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_BOSS ) ) { send_to_char( "Nice Try.", ch ); return; } victim->pcdata->clan = 0; if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ) ) REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_DIPLOMAT ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ) ) REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_TREASURER ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ) ) REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_ARMOURER ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_LEADER ) ) REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_LEADER ); if( IS_SET( victim->pcdata->pflags, PFLAG_CLAN_BOSS ) ) REMOVE_BIT( victim->pcdata->pflags, PFLAG_CLAN_BOSS ); sprintf( buf, "%s has banished %s from clan %s.", ch->name, victim->name, clan_table[ch->pcdata->clan].clan_name ); monitor_chan( buf, MONITOR_CLAN ); sprintf( buf, "%s banishes you from clan %s!\n\r", ch->name, clan_table[ch->pcdata->clan].clan_name ); send_to_char( buf, victim ); act( "$N has been banished.", ch, NULL, victim, TO_CHAR ); return; } void do_make( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char arg1[MAX_STRING_LENGTH]; char arg2[MAX_STRING_LENGTH]; OBJ_INDEX_DATA *pObj; OBJ_DATA *obj; int cnt; int num; CHAR_DATA *target; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( IS_NPC( ch ) || !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_ARMOURER ) ) { send_to_char( "This command is for clan armourers only.\n\r", ch ); return; } if( !is_number( arg1 ) || arg2[0] == '\0' ) { sprintf( buf, "Syntax: Make [0-%d] [Target]\n\r", MAX_CLAN_EQ - 1 ); send_to_char( buf, ch ); send_to_char( "Items you can currently make:\n\r\n\r", ch ); for( cnt = 0; cnt < MAX_CLAN_EQ; cnt++ ) { if( clan_table[ch->pcdata->clan].eq[cnt] != -1 && ( ( pObj = get_obj_index( clan_table[ch->pcdata->clan].eq[cnt] ) ) != NULL ) ) { sprintf( buf, "[%2d] : %s.\n\r", cnt, pObj->short_descr ); send_to_char( buf, ch ); } else { sprintf( buf, "[%2d] : No Object Set.\n\r", cnt ); send_to_char( buf, ch ); } } return; } target = get_char_room( ch, arg2 ); if( target == NULL ) { send_to_char( "No one with that name is here with you.\n\r", ch ); return; } if( IS_NPC( target ) ) { send_to_char( "NOT on NPCs!\n\r", ch ); return; } if( target->pcdata->clan != ch->pcdata->clan ) { act( "$N isn't in your clan...", ch, NULL, target, TO_CHAR ); return; } num = atoi( arg1 ); if( num < 0 || num >= MAX_CLAN_EQ ) { do_make( ch, "" ); return; } if( clan_table[ch->pcdata->clan].eq[num] == -1 ) { send_to_char( "No object has been set for that slot.\n\r", ch ); do_make( ch, "" ); return; } if( ( pObj = get_obj_index( clan_table[ch->pcdata->clan].eq[num] ) ) == NULL ) { send_to_char( "Couldn't find that object to load...\n\r", ch ); do_make( ch, "" ); return; } if( !IS_SET( pObj->extra_flags, ITEM_CLAN_EQ ) ) { send_to_char( "Object exists, but not flagged as Clan Eq.\n\r", ch ); return; } if( ch != target ) { obj = create_object( pObj, target->level ); act( "$n creates $p, and hands it to $N.", ch, obj, target, TO_NOTVICT ); act( "You create $p, and hand it to $N.", ch, obj, target, TO_CHAR ); act( "$N creates $p, and hands it to you.", target, obj, ch, TO_CHAR ); obj_to_char( obj, target ); sprintf( buf, "%s has made %s for %s.", ch->name, obj->short_descr, target->name ); } else { obj = create_object( pObj, ch->level ); act( "You create $p, and put it away.", ch, obj, NULL, TO_CHAR ); act( "$n creates $p, and puts it away.", ch, obj, NULL, TO_ROOM ); obj_to_char( obj, ch ); sprintf( buf, "%s has made themself %s.", ch->name, obj->short_descr ); } monitor_chan( buf, MONITOR_CLAN ); return; } void do_council( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char buf2[MAX_STRING_LENGTH]; char arg1[MAX_STRING_LENGTH]; char arg2[MAX_STRING_LENGTH]; MEMBER_DATA *imember; MEMBER_DATA *member; sh_int this_council = SUPER_NONE; CHAR_DATA *victim; if( ( IS_NPC( ch ) ) || ( !IS_SET( ch->pcdata->pflags, PFLAG_SUPER_COUNCIL ) ) ) { send_to_char( "You are not a council member!\n\r", ch ); return; } if( IS_VAMP( ch ) ) /* add other super checks here later */ this_council = SUPER_VAMP; GET_FREE( member, member_free ); member->this_member = ch; member->next = NULL; member->prev = NULL; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( arg1[0] == '\0' ) { sprintf( buf, "%s", "" ); sprintf( buf2, "%s", "" ); sprintf( buf, "Members of the Council of %s\n\r\n\r", super_councils[this_council].council_name ); for( imember = super_councils[this_council].first_member; imember != NULL; imember = imember->next ) { sprintf( buf2, "%s\n\r", imember->this_member->name ); safe_strcat( MAX_STRING_LENGTH, buf, buf2 ); } send_to_char( buf, ch ); return; } if( !str_prefix( arg1, "join" ) ) { for( imember = super_councils[this_council].first_member; imember != NULL; imember = imember->next ) { if( imember->this_member == ch ) { send_to_char( "You have already joined the current Council!\n\r", ch ); return; } } LINK( member, super_councils[this_council].first_member, super_councils[this_council].last_member, next, prev ); sprintf( buf, "You have joined the Current Council of %s\n\r", super_councils[this_council].council_name ); send_to_char( buf, ch ); super_councils[this_council].council_time = 10; do_council( ch, "" ); return; } if( !str_prefix( arg1, "leave" ) ) { bool in_council = FALSE; for( imember = super_councils[this_council].first_member; imember != NULL; imember = imember->next ) { if( imember->this_member == ch ) { in_council = TRUE; break; } } if( in_council ) { UNLINK( imember, super_councils[this_council].first_member, super_councils[this_council].last_member, next, prev ); imember->this_member = NULL; imember->next = NULL; imember->prev = NULL; PUT_FREE( imember, member_free ); send_to_char( "You have removed yourself from the current Council in Session!\n\r", ch ); } else send_to_char( "You are not part of the Current Council!\n\r", ch ); return; } if( !str_prefix( arg1, "accept" ) ) { if( !super_councils[this_council].quorum ) { send_to_char( "The council must have a quorum before this action may be taken.\n\r", ch ); return; } else { if( ( victim = get_char_room( ch, arg2 ) ) != NULL ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPCS!!\n\r", ch ); return; } else if( this_council == SUPER_VAMP && !IS_VAMP( victim ) ) { send_to_char( "They are not a VAMPYRE!!\n\r", ch ); return; } else { sprintf( buf, "%s is now a member of the Council of %s!\n\r", victim->name, super_councils[this_council].council_name ); send_to_char( buf, ch ); sprintf( buf, "You are now a member of the Council of %s!\n\r", super_councils[this_council].council_name ); SET_BIT( victim->pcdata->pflags, PFLAG_SUPER_COUNCIL ); } } else { send_to_char( "They are not in this room!\n\r", ch ); } return; } } if( !str_prefix( arg1, "outcast" ) ) { if( !super_councils[this_council].quorum ) { send_to_char( "The council must have a quorum before this action may be taken.\n\r", ch ); return; } else { if( ( victim = get_char_world( ch, arg2 ) ) != NULL ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPCS!!\n\r", ch ); return; } else if( this_council == SUPER_VAMP && !IS_VAMP( victim ) ) { send_to_char( "They are not a VAMPYRE!!\n\r", ch ); return; } else { sprintf( buf, "%s has been outcast from the @@eKindred@@N by the %s, and is now a @@dRENEGADE@@N!!!!\n\r", victim->name, super_councils[this_council].council_name ); send_to_char( buf, ch ); sprintf( buf, "You have been @@ROUTCAST@@N from the @@eKindred@@N by the %s, and are now a @@dRenegade@@N!!!!!\n\r", super_councils[this_council].council_name ); send_to_char( buf, victim ); victim->pcdata->vamp_bloodline = 0; do_save( victim, "" ); } } else { send_to_char( "They are not here!!\n\r", ch ); } return; } } send_to_char( "SYNTAX FOR COUNCIL:\n\r\n\r", ch ); send_to_char( " COUNCIL <join/accept/outcast> <victim>\n\r", ch ); return; }