/**************************************************************************** * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// * * -----------------------------------------------------------| (0...0) * * SMAUG 1.4 (C) 1994, 1995, 1996, 1998 by Derek Snider | ).:.( * * -----------------------------------------------------------| {o o} * * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ * * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek, |~'~.VxvxV.~'~* * Tricops and Fireblade | * * ------------------------------------------------------------------------ * * Special clan module * ****************************************************************************/ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <string.h> /* #include <stdlib.h> */ #include <time.h> #include "mud.h" #define MAX_NEST 100 static OBJ_DATA * rgObjNest [MAX_NEST]; CLAN_DATA * first_clan; CLAN_DATA * last_clan; COUNCIL_DATA * first_council; COUNCIL_DATA * last_council; MEMBER_LIST * first_member_list; MEMBER_LIST * last_member_list; CENSOR_DATA * first_censor; CENSOR_DATA * last_censor; ALLIANCE_DATA * first_alliance; ALLIANCE_DATA * last_alliance; /* local routines */ void fread_clan args( ( CLAN_DATA *clan, FILE *fp ) ); bool load_clan_file args( ( char *clanfile ) ); void write_clan_list args( ( void ) ); void fread_council args( ( COUNCIL_DATA *council, FILE *fp ) ); bool load_council_file args( ( char *councilfile ) ); void write_council_list args( ( void ) ); void save_member_list args( ( MEMBER_LIST *members_list ) ); void show_members args( ( CHAR_DATA *ch, char *argument, char *format ) ); /*void remove_member args( ( CHAR_DATA *ch ) );*/ char * const clan_alliance_type [] = { "&wNeutral", "&cFriendly", "&CAllied", "&YHostile", "&RAt War" }; char * get_clanTitle( CHAR_DATA *ch ) { if (IS_NPC(ch)) return (""); if (!ch->pcdata->clan) return (""); if (ch->sex == SEX_FEMALE) { switch (ch->pcdata->clanRank) { default: return (""); case 1: return ch->pcdata->clan->fRank1; case 2: return ch->pcdata->clan->fRank2; case 3: return ch->pcdata->clan->fRank3; case 4: return ch->pcdata->clan->fRank4; case 5: return ch->pcdata->clan->fRank5; case 6: return ch->pcdata->clan->fRank6; case 7: return ch->pcdata->clan->fRank7; } } else { switch (ch->pcdata->clanRank) { default: return (""); case 1: return ch->pcdata->clan->mRank1; case 2: return ch->pcdata->clan->mRank2; case 3: return ch->pcdata->clan->mRank3; case 4: return ch->pcdata->clan->mRank4; case 5: return ch->pcdata->clan->mRank5; case 6: return ch->pcdata->clan->mRank6; case 7: return ch->pcdata->clan->mRank7; } } return (""); } /* * Get pointer to alliance structure for 2 clans. */ ALLIANCE_DATA * get_alliance(CLAN_DATA * clan, CLAN_DATA * vclan) { ALLIANCE_DATA * alliance; bool found = FALSE; if (clan == vclan) return NULL; for(alliance = first_alliance; alliance; alliance = alliance->next) { if (alliance->clan == clan && alliance->vclan == vclan) { found = TRUE; break; } } if (!found) { bug("get_alliance: No alliance data found for %s and %s", clan->name, vclan->name); return NULL; } return alliance; } /* * Adds alliance data to all clans when a new clan is created */ void newClanAlliance(CLAN_DATA * newClan) { ALLIANCE_DATA * alliance; CLAN_DATA *clan; for ( clan = first_clan; clan; clan = clan->next ) { if (clan == newClan) continue; CREATE( alliance, ALLIANCE_DATA, 1 ); alliance->clan = clan; alliance->vclan = newClan; alliance->status = 0; alliance->vclanStatus = 0; alliance->votes = 0; alliance->leader1Vote = STRALLOC( "None" ); alliance->leader2Vote = STRALLOC( "None" ); LINK( alliance, first_alliance, last_alliance, next, prev ); } return; } /* * Checks to make sure that one clan is totaly agreed on war */ bool clan_agreed_war(CLAN_DATA *clan, CLAN_DATA *vclan) { ALLIANCE_DATA *alliance; ALLIANCE_DATA *valliance; alliance = get_alliance(clan, vclan); valliance = get_alliance(vclan, clan); if (!alliance) return FALSE; if (!valliance) return FALSE; if (alliance->status != ALLIANCE_ATWAR) return FALSE; if (valliance->status != ALLIANCE_ATWAR) return FALSE; return TRUE; /*if ((!str_cmp(alliance->leader1Vote, clan->leader1) || !str_cmp(alliance->leader1Vote, clan->leader2) || !str_cmp(alliance->leader1Vote, clan->leader3) || !str_cmp(alliance->leader1Vote, clan->leader4) || !str_cmp(alliance->leader1Vote, clan->leader5) || !str_cmp(alliance->leader1Vote, clan->leader6)) &&(!str_cmp(alliance->leader2Vote, clan->leader1) || !str_cmp(alliance->leader2Vote, clan->leader2) || !str_cmp(alliance->leader2Vote, clan->leader3) || !str_cmp(alliance->leader2Vote, clan->leader4) || !str_cmp(alliance->leader2Vote, clan->leader5) || !str_cmp(alliance->leader2Vote, clan->leader6)) && alliance->votes >= 2) return TRUE;*/ return FALSE; } /* * Returns the alliance status for game affects (like if truly at war) */ int allianceStatus(CLAN_DATA *clan, CLAN_DATA *vclan) { ALLIANCE_DATA *alliance; ALLIANCE_DATA *valliance; alliance = get_alliance(clan, vclan); valliance = get_alliance(vclan, clan); if (!alliance || !valliance) { if (clan == vclan) { return ALLIANCE_ALLIED; } else { bug("allianceStatus: couldn't get alliance data."); return ALLIANCE_NEUTRAL; } } if (alliance->status == ALLIANCE_ALLIED) { if (alliance->vclanStatus == ALLIANCE_ALLIED) return ALLIANCE_ALLIED; else return ALLIANCE_FRIENDLY; } if (alliance->status == ALLIANCE_ATWAR) { if (clan_agreed_war(clan, vclan) && clan_agreed_war(vclan, clan) ) return ALLIANCE_ATWAR; else return ALLIANCE_HOSTILE; } switch (alliance->status) { case ALLIANCE_FRIENDLY: return ALLIANCE_NEUTRAL; case ALLIANCE_ALLIED: return ALLIANCE_ALLIED; case ALLIANCE_HOSTILE: return ALLIANCE_HOSTILE; case ALLIANCE_ATWAR: return ALLIANCE_ATWAR; default: return ALLIANCE_NEUTRAL; } return ALLIANCE_NEUTRAL; } /* To check if ch is the leader of a clan */ bool is_leader(CHAR_DATA *ch) { CLAN_DATA *clan; clan = ch->pcdata->clan; if (!clan) return FALSE; if (!str_cmp( ch->name, clan->leader1) || !str_cmp( ch->name, clan->leader2) || !str_cmp( ch->name, clan->leader3) || !str_cmp( ch->name, clan->leader4) || !str_cmp( ch->name, clan->leader5) || !str_cmp( ch->name, clan->leader6)) return TRUE; return FALSE; } /* To check if ch is the admin of a clan */ bool is_deity(CHAR_DATA *ch) { CLAN_DATA *clan; clan = ch->pcdata->clan; if (!clan) return FALSE; if (!str_cmp( ch->name, clan->deity)) return TRUE; return FALSE; } /* * Changes alliance status for clans */ bool change_alliance(CLAN_DATA *clan, CLAN_DATA *vclan, int newStatus) { ALLIANCE_DATA *alliance; ALLIANCE_DATA *valliance; char buf[MAX_STRING_LENGTH]; if ((alliance = get_alliance(clan, vclan)) == NULL) return FALSE; if ((valliance = get_alliance(vclan, clan)) == NULL) return FALSE; if( alliance->changeTimer > 0 || valliance->changeTimer > 0) { sprintf(buf, "The clan alliance cannot be changed till the current change timer reaches 0 again."); echo_to_clan(clan, buf); return FALSE; } alliance->changeTimer = ALLIANCE_WAIT_TIME; alliance->newStatus = newStatus; sprintf(buf, "%s has decided to change their alliance with your clan to %s.", clan->name, clan_alliance_type[alliance->newStatus]); echo_to_clan(vclan, buf); sprintf(buf, "This status change will take effect in %d minutes.", alliance->changeTimer); echo_to_clan(vclan, buf); sprintf(buf, "Your clan has decided to change their alliance with %s to %s.", vclan->name, clan_alliance_type[alliance->newStatus]); echo_to_clan(clan, buf); sprintf(buf, "This status change will take effect in %d minutes.", alliance->changeTimer); echo_to_clan(clan, buf); save_clan(clan); save_clan(vclan); return TRUE; } /* * Does all the stuff when war status is voted for */ void alliance_towar(CHAR_DATA *ch, CLAN_DATA *clan, CLAN_DATA *vclan) { ALLIANCE_DATA *alliance; ALLIANCE_DATA *valliance; char buf[MAX_STRING_LENGTH]; alliance = get_alliance(clan, vclan); valliance = get_alliance(vclan, clan); alliance->votes++; if (alliance->votes >= 2 && valliance->votes >= 2) { pager_printf(ch, "Your clan is now at war with %s.\n\r", vclan->name ); sprintf(buf, "%s and %s have begun a massive clan war!\n\r", clan->name, vclan->name); echo_to_all(AT_RED, buf, ECHOTAR_ALL); } else { pager_printf(ch, "You have put your vote in for war with %s, but both clans have yet to agree on war.\n\r", vclan->name ); sprintf(buf, "%s has voted to go to war with %s!", ch->name, clan->name); echo_to_clan(clan, buf); sprintf(buf, "%s has voted to go to war with %s!", clan->name, vclan->name); echo_to_clan(vclan, buf); } if (!str_cmp(alliance->leader1Vote, "None")) { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC(ch->name); } else if (!str_cmp(alliance->leader2Vote, "None")) { STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC(ch->name); } save_clan(clan); return; } /* * Prints a clans alliances with other clans */ void show_alliances(CHAR_DATA *ch, CLAN_DATA *clan) { ALLIANCE_DATA *alliance; bool found = FALSE; char buf[MAX_STRING_LENGTH]; pager_printf(ch, "&cClan Alliance Status Their Status\n\r"); pager_printf(ch, "&g------------------------------------------- --------------- ------------\n\r"); for (alliance = first_alliance; alliance; alliance = alliance->next) { if (alliance->clan != clan) continue; if( alliance->vclan == NULL ) continue; found = TRUE; pager_printf(ch, "&w%-43s %15s %12s\n\r", alliance->vclan->name, clan_alliance_type[alliance->status], clan_alliance_type[alliance->vclanStatus]); if (alliance->changeTimer) { sprintf(buf, "&RStatus changing to %s in %d minutes\n\r", clan_alliance_type[alliance->newStatus], alliance->changeTimer); pager_printf(ch, "%72s", buf); } } if (!found) pager_printf(ch, "No clan alliances formed.\n\r"); else pager_printf(ch, "&g------------------------------------------------------------------------\n\r"); return; } /* * Get pointer to clan structure from clan name. */ CLAN_DATA *get_clan( char *name ) { CLAN_DATA *clan; for ( clan = first_clan; clan; clan = clan->next ) if ( !str_cmp( name, clan->name ) || !str_cmp( name, clan->short_name )) return clan; return NULL; } COUNCIL_DATA *get_council( char *name ) { COUNCIL_DATA *council; for ( council = first_council; council; council = council->next ) if ( !str_cmp( name, council->name ) ) return council; return NULL; } void save_alliance( ) { ALLIANCE_DATA *alliance; FILE *fp; CLAN_DATA *clan; char buf[MAX_STRING_LENGTH]; sprintf( buf, "%salliance", CLAN_DIR ); if( ( fp = fopen( buf, "w" ) ) == NULL ) { bug( "Cannot open alliance file for writing", 0 ); perror( buf ); return; } /* * Sorts and saves alliance data */ for (clan = first_clan; clan; clan = clan->next) { for( alliance = first_alliance; alliance; alliance = alliance->next ) { if (clan == alliance->clan) fprintf( fp, "Alliance %s~ %s~ %d %d %d %s~ %s~\n", alliance->clan->short_name, alliance->vclan->short_name, alliance->status, alliance->vclanStatus, alliance->votes, alliance->leader1Vote,alliance->leader2Vote); } } fprintf( fp, "End\n\n" ); fclose( fp ); return; } bool load_alliance( ) { FILE *fp; char buf[MAX_STRING_LENGTH]; ALLIANCE_DATA * alliance = NULL; log_string( "Loading alliance data" ); sprintf( buf, "%salliance", CLAN_DIR ); if( ( fp = fopen( buf, "r" ) ) == NULL ) { bug( "Cannot open alliance list for reading" ); return FALSE; } for( ; ; ) { char *word; word = fread_word( fp ); if( !str_cmp( word, "Alliance" ) ) { CREATE( alliance, ALLIANCE_DATA, 1 ); alliance->clan = get_clan(fread_string( fp )); alliance->vclan = get_clan(fread_string( fp )); alliance->status = fread_number( fp ); alliance->vclanStatus = fread_number( fp ); alliance->votes = fread_number( fp ); alliance->leader1Vote = fread_string( fp ); alliance->leader2Vote = fread_string( fp ); if ( !alliance->leader1Vote || alliance->leader1Vote[0] == '\0' || alliance->leader1Vote == NULL ) alliance->leader1Vote = STRALLOC( "None" ); if ( !alliance->leader2Vote || alliance->leader2Vote[0] == '\0' || alliance->leader2Vote == NULL ) alliance->leader2Vote = STRALLOC( "None" ); LINK( alliance, first_alliance, last_alliance, next, prev ); continue; } else if( !str_cmp( word, "End" ) ) { LINK( alliance, first_alliance, last_alliance, next, prev ); fclose( fp ); return TRUE; } else { bug( "load_alliance: bad section" ); fclose( fp ); return FALSE; } } } void write_clan_list( ) { CLAN_DATA *tclan; FILE *fpout; char filename[256]; sprintf( filename, "%s%s", CLAN_DIR, CLAN_LIST ); fpout = fopen( filename, "w" ); if ( !fpout ) { bug( "FATAL: cannot open clan.lst for writing!\n\r", 0 ); return; } for ( tclan = first_clan; tclan; tclan = tclan->next ) fprintf( fpout, "%s\n", tclan->filename ); fprintf( fpout, "$\n" ); fclose( fpout ); } void write_council_list( ) { COUNCIL_DATA *tcouncil; FILE *fpout; char filename[256]; sprintf( filename, "%s%s", COUNCIL_DIR, COUNCIL_LIST ); fpout = fopen( filename, "w" ); if ( !fpout ) { bug( "FATAL: cannot open council.lst for writing!\n\r", 0 ); return; } for ( tcouncil = first_council; tcouncil; tcouncil = tcouncil->next ) fprintf( fpout, "%s\n", tcouncil->filename ); fprintf( fpout, "$\n" ); fclose( fpout ); } /* * Save a clan's data to its data file */ void save_clan( CLAN_DATA *clan ) { FILE *fp; char filename[256]; char buf[MAX_STRING_LENGTH]; if ( !clan ) { bug( "save_clan: null clan pointer!", 0 ); return; } if ( !clan->filename || clan->filename[0] == '\0' ) { sprintf( buf, "save_clan: %s has no filename", clan->name ); bug( buf, 0 ); return; } sprintf( filename, "%s%s", CLAN_DIR, clan->filename ); fclose( fpReserve ); if ( ( fp = fopen( filename, "w" ) ) == NULL ) { bug( "save_clan: fopen", 0 ); perror( filename ); } else { fprintf( fp, "#CLAN\n" ); fprintf( fp, "Name %s~\n", clan->name ); fprintf( fp, "ShortName %s~\n", clan->short_name ); fprintf( fp, "Filename %s~\n", clan->filename ); fprintf( fp, "Motto %s~\n", clan->motto ); fprintf( fp, "Description %s~\n", clan->description ); if (clan->clanHQ) fprintf( fp, "ClanHQ %s~\n", clan->clanHQ->filename ); fprintf( fp, "Deity %s~\n", clan->deity ); fprintf( fp, "Owner %s~\n", clan->owner ); fprintf( fp, "Leader1 %s~\n", clan->leader1 ); fprintf( fp, "Leader2 %s~\n", clan->leader2 ); fprintf( fp, "Leader3 %s~\n", clan->leader3 ); fprintf( fp, "Leader4 %s~\n", clan->leader4 ); fprintf( fp, "Leader5 %s~\n", clan->leader5 ); fprintf( fp, "Leader6 %s~\n", clan->leader6 ); fprintf( fp, "Badge %s~\n", clan->badge ); fprintf( fp, "MaleRank1 %s~\n", clan->mRank1 ); fprintf( fp, "MaleRank2 %s~\n", clan->mRank2 ); fprintf( fp, "MaleRank3 %s~\n", clan->mRank3 ); fprintf( fp, "MaleRank4 %s~\n", clan->mRank4 ); fprintf( fp, "MaleRank5 %s~\n", clan->mRank5 ); fprintf( fp, "MaleRank6 %s~\n", clan->mRank6 ); fprintf( fp, "MaleRank7 %s~\n", clan->mRank7 ); fprintf( fp, "FemaleRank1 %s~\n", clan->fRank1 ); fprintf( fp, "FemaleRank2 %s~\n", clan->fRank2 ); fprintf( fp, "FemaleRank3 %s~\n", clan->fRank3 ); fprintf( fp, "FemaleRank4 %s~\n", clan->fRank4 ); fprintf( fp, "FemaleRank5 %s~\n", clan->fRank5 ); fprintf( fp, "FemaleRank6 %s~\n", clan->fRank6 ); fprintf( fp, "FemaleRank7 %s~\n", clan->fRank7 ); fprintf( fp, "MaleRank1C %d\n", clan->mRank1Count ); fprintf( fp, "MaleRank2C %d\n", clan->mRank2Count ); fprintf( fp, "MaleRank3C %d\n", clan->mRank3Count ); fprintf( fp, "MaleRank4C %d\n", clan->mRank4Count ); fprintf( fp, "MaleRank5C %d\n", clan->mRank5Count ); fprintf( fp, "MaleRank6C %d\n", clan->mRank6Count ); fprintf( fp, "MaleRank7C %d\n", clan->mRank7Count ); fprintf( fp, "FemaleRank1C %d\n", clan->fRank1Count ); fprintf( fp, "FemaleRank2C %d\n", clan->fRank2Count ); fprintf( fp, "FemaleRank3C %d\n", clan->fRank3Count ); fprintf( fp, "FemaleRank4C %d\n", clan->fRank4Count ); fprintf( fp, "FemaleRank5C %d\n", clan->fRank5Count ); fprintf( fp, "FemaleRank6C %d\n", clan->fRank6Count ); fprintf( fp, "FemaleRank7C %d\n", clan->fRank7Count ); fprintf( fp, "PKillRangeNew %d %d %d %d %d %d %d\n", clan->pkills[0], clan->pkills[1], clan->pkills[2], clan->pkills[3], clan->pkills[4], clan->pkills[5], clan->pkills[6]); fprintf( fp, "PDeathRangeNew %d %d %d %d %d %d %d\n", clan->pdeaths[0], clan->pdeaths[1], clan->pdeaths[2], clan->pdeaths[3], clan->pdeaths[4], clan->pdeaths[5], clan->pdeaths[6]); fprintf( fp, "SparWinsRangeNew %d %d %d %d %d %d %d\n", clan->spar_wins[0], clan->spar_wins[1], clan->spar_wins[2], clan->spar_wins[3], clan->spar_wins[4], clan->spar_wins[5], clan->spar_wins[6]); fprintf( fp, "SparLossRangeNew %d %d %d %d %d %d %d\n", clan->spar_loss[0], clan->spar_loss[1], clan->spar_loss[2], clan->spar_loss[3], clan->spar_loss[4], clan->spar_loss[5], clan->spar_loss[6]); fprintf( fp, "MKills %d\n", clan->mkills ); fprintf( fp, "MDeaths %d\n", clan->mdeaths ); fprintf( fp, "IllegalPK %d\n", clan->illegal_pk ); fprintf( fp, "Score %d\n", clan->score ); /*fprintf( fp, "ClanPL %.0Lf\n", clan->clanPL );*/ fprintf( fp, "Type %d\n", clan->clan_type ); fprintf( fp, "Class %d\n", clan->class ); fprintf( fp, "Favour %d\n", clan->favour ); fprintf( fp, "Strikes %d\n", clan->strikes ); fprintf( fp, "Members %d\n", clan->members ); fprintf( fp, "Active %d\n", clan->activeMem ); fprintf( fp, "MemLimit %d\n", clan->mem_limit ); fprintf( fp, "Alignment %d\n", clan->alignment ); fprintf( fp, "Board %d\n", clan->board ); fprintf( fp, "ClanObjOne %d\n", clan->clanobj1 ); fprintf( fp, "ClanObjTwo %d\n", clan->clanobj2 ); fprintf( fp, "ClanObjThree %d\n", clan->clanobj3 ); fprintf( fp, "ClanObjFour %d\n", clan->clanobj4 ); fprintf( fp, "ClanObjFive %d\n", clan->clanobj5 ); fprintf( fp, "Recall %d\n", clan->recall ); fprintf( fp, "Storeroom %d\n", clan->storeroom ); fprintf( fp, "DeathRecall %d\n", clan->deathRecall ); fprintf( fp, "Morgue %d\n", clan->clanMorgue ); fprintf( fp, "Donate %d\n", clan->clanDonate ); fprintf( fp, "Jail %d\n", clan->clanJail ); fprintf( fp, "GuardOne %d\n", clan->guard1 ); fprintf( fp, "GuardTwo %d\n", clan->guard2 ); fprintf( fp, "ClanSkill1 %d\n", clan->clanSkill1 ); fprintf( fp, "ClanSkill2 %d\n", clan->clanSkill2 ); fprintf( fp, "ClanSkill3 %d\n", clan->clanSkill3 ); fprintf( fp, "URL %s~\n", clan->clanWebSite ); fprintf( fp, "TaxRate %d\n", clan->tax ); fprintf( fp, "Bank %.0Lf\n", clan->bank ); fprintf( fp, "End\n\n" ); fprintf( fp, "#END\n" ); } fclose( fp ); fpReserve = fopen( NULL_FILE, "r" ); return; } /* * Save a council's data to its data file */ void save_council( COUNCIL_DATA *council ) { FILE *fp; char filename[256]; char buf[MAX_STRING_LENGTH]; if ( !council ) { bug( "save_council: null council pointer!", 0 ); return; } if ( !council->filename || council->filename[0] == '\0' ) { sprintf( buf, "save_council: %s has no filename", council->name ); bug( buf, 0 ); return; } sprintf( filename, "%s%s", COUNCIL_DIR, council->filename ); fclose( fpReserve ); if ( ( fp = fopen( filename, "w" ) ) == NULL ) { bug( "save_council: fopen", 0 ); perror( filename ); } else { fprintf( fp, "#COUNCIL\n" ); if ( council-> name ) fprintf( fp, "Name %s~\n", council->name ); if ( council->filename ) fprintf( fp, "Filename %s~\n", council->filename ); if ( council->description ) fprintf( fp, "Description %s~\n", council->description ); if ( council->head ) fprintf( fp, "Head %s~\n", council->head ); if ( council->head2 != NULL) fprintf (fp, "Head2 %s~\n", council->head2); fprintf( fp, "Members %d\n", council->members ); fprintf( fp, "Board %d\n", council->board ); fprintf( fp, "Meeting %d\n", council->meeting ); if ( council->powers ) fprintf( fp, "Powers %s~\n", council->powers ); fprintf( fp, "End\n\n" ); fprintf( fp, "#END\n" ); } fclose( fp ); fpReserve = fopen( NULL_FILE, "r" ); return; } /* * Read in actual clan data. */ #if defined(KEY) #undef KEY #endif #define KEY( literal, field, value ) \ if ( !str_cmp( word, literal ) ) \ { \ field = value; \ fMatch = TRUE; \ break; \ } /* * Reads in PKill and PDeath still for backward compatibility but now it * should be written to PKillRange and PDeathRange for multiple level pkill * tracking support. --Shaddai * Added a hardcoded limit memlimit to the amount of members a clan can * have set using setclan. --Shaddai */ void fread_clan( CLAN_DATA *clan, FILE *fp ) { char buf[MAX_STRING_LENGTH]; char *word; bool fMatch; clan->mem_limit = 0; /* Set up defaults */ for ( ; ; ) { word = feof( fp ) ? "End" : fread_word( fp ); fMatch = FALSE; switch ( UPPER(word[0]) ) { case '*': fMatch = TRUE; fread_to_eol( fp ); break; case 'A': KEY( "Alignment", clan->alignment, fread_number( fp ) ); KEY( "Active", clan->activeMem, fread_number( fp ) ); break; case 'B': KEY( "Badge", clan->badge, fread_string( fp ) ); KEY( "Bank", clan->bank, fread_number_ld( fp ) ); /* KEY( "Bank", clan->bank, fread_number_skill( fp ) ); //used skill since it reads doubles */ KEY( "Board", clan->board, fread_number( fp ) ); break; case 'C': if (!str_cmp(word, "ClanHQ")) { AREA_DATA * clanHQ; char fname[MAX_STRING_LENGTH]; sprintf(fname, "%s", fread_string( fp )); for (clanHQ = first_area; clanHQ; clanHQ = clanHQ->next) { if (!str_cmp(clanHQ->filename, fname)) { clan->clanHQ = clanHQ; break; } } fMatch = TRUE; } KEY( "ClanSkill1", clan->clanSkill1, fread_number( fp ) ); KEY( "ClanSkill2", clan->clanSkill2, fread_number( fp ) ); KEY( "ClanSkill3", clan->clanSkill3, fread_number( fp ) ); KEY( "ClanObjOne", clan->clanobj1, fread_number( fp ) ); KEY( "ClanObjTwo", clan->clanobj2, fread_number( fp ) ); KEY( "ClanObjThree",clan->clanobj3, fread_number( fp ) ); KEY( "ClanObjFour", clan->clanobj4, fread_number( fp ) ); KEY( "ClanObjFive", clan->clanobj5, fread_number( fp ) ); KEY( "Class", clan->class, fread_number( fp ) ); /*KEY( "ClanPL", clan->clanPL, fread_number_ld( fp ) );*/ break; case 'D': KEY( "DeathRecall", clan->deathRecall, fread_number( fp ) ); KEY( "Donate", clan->clanDonate, fread_number( fp ) ); KEY( "Deity", clan->deity, fread_string( fp ) ); KEY( "Description", clan->description, fread_string( fp ) ); break; case 'E': if ( !str_cmp( word, "End" ) ) { if (!clan->name) clan->name = STRALLOC( "" ); if (!clan->leader1) clan->leader1 = STRALLOC( "" ); if (!clan->leader2) clan->leader2 = STRALLOC( "" ); if (!clan->leader3) clan->leader3 = STRALLOC( "" ); if (!clan->leader4) clan->leader4 = STRALLOC( "" ); if (!clan->leader5) clan->leader5 = STRALLOC( "" ); if (!clan->leader6) clan->leader6 = STRALLOC( "" ); if (!clan->description) clan->description = STRALLOC( "" ); if (!clan->motto) clan->motto = STRALLOC( "" ); if (!clan->deity) clan->deity = STRALLOC( "" ); if (!clan->badge) clan->badge = STRALLOC( "" ); if (!clan->clanWebSite) clan->clanWebSite = STRALLOC( "" ); if (!clan->clanHQ) clan->clanHQ = NULL; if (!clan->mRank1) clan->mRank1 = STRALLOC( "" ); if (!clan->mRank2) clan->mRank2 = STRALLOC( "" ); if (!clan->mRank3) clan->mRank3 = STRALLOC( "" ); if (!clan->mRank4) clan->mRank4 = STRALLOC( "" ); if (!clan->mRank5) clan->mRank5 = STRALLOC( "" ); if (!clan->mRank6) clan->mRank6 = STRALLOC( "" ); if (!clan->mRank7) clan->mRank7 = STRALLOC( "" ); if (!clan->fRank1) clan->fRank1 = STRALLOC( "" ); if (!clan->fRank2) clan->fRank2 = STRALLOC( "" ); if (!clan->fRank3) clan->fRank3 = STRALLOC( "" ); if (!clan->fRank4) clan->fRank4 = STRALLOC( "" ); if (!clan->fRank5) clan->fRank5 = STRALLOC( "" ); if (!clan->fRank6) clan->fRank6 = STRALLOC( "" ); if (!clan->fRank7) clan->fRank7 = STRALLOC( "" ); clan->members = clan->fRank1Count + clan->fRank2Count + clan->fRank3Count + clan->fRank4Count; clan->members+= clan->fRank5Count + clan->fRank6Count + clan->fRank7Count; clan->members+= clan->mRank1Count + clan->mRank2Count + clan->mRank3Count + clan->mRank4Count; clan->members+= clan->mRank5Count + clan->mRank6Count + clan->mRank7Count; return; } break; case 'F': KEY( "Favour", clan->favour, fread_number( fp ) ); KEY( "Filename", clan->filename, fread_string_nohash( fp ) ); KEY( "FemaleRank1", clan->fRank1, fread_string( fp ) ); KEY( "FemaleRank2", clan->fRank2, fread_string( fp ) ); KEY( "FemaleRank3", clan->fRank3, fread_string( fp ) ); KEY( "FemaleRank4", clan->fRank4, fread_string( fp ) ); KEY( "FemaleRank5", clan->fRank5, fread_string( fp ) ); KEY( "FemaleRank6", clan->fRank6, fread_string( fp ) ); KEY( "FemaleRank7", clan->fRank7, fread_string( fp ) ); KEY( "FemaleRank1C", clan->fRank1Count, fread_number( fp ) ); KEY( "FemaleRank2C", clan->fRank2Count, fread_number( fp ) ); KEY( "FemaleRank3C", clan->fRank3Count, fread_number( fp ) ); KEY( "FemaleRank4C", clan->fRank4Count, fread_number( fp ) ); KEY( "FemaleRank5C", clan->fRank5Count, fread_number( fp ) ); KEY( "FemaleRank6C", clan->fRank6Count, fread_number( fp ) ); KEY( "FemaleRank7C", clan->fRank7Count, fread_number( fp ) ); break; case 'G': KEY( "GuardOne", clan->guard1, fread_number( fp ) ); KEY( "GuardTwo", clan->guard2, fread_number( fp ) ); break; case 'I': KEY( "IllegalPK", clan->illegal_pk, fread_number( fp ) ); break; case 'J': KEY( "Jail", clan->clanJail, fread_number( fp ) ); break; case 'L': KEY( "Leader1", clan->leader1, fread_string( fp ) ); KEY( "Leader2", clan->leader2, fread_string( fp ) ); KEY( "Leader3", clan->leader3, fread_string( fp ) ); KEY( "Leader4", clan->leader4, fread_string( fp ) ); KEY( "Leader5", clan->leader5, fread_string( fp ) ); KEY( "Leader6", clan->leader6, fread_string( fp ) ); break; case 'M': KEY( "MDeaths", clan->mdeaths, fread_number( fp ) ); KEY( "Members", clan->members, fread_number( fp ) ); KEY( "MemLimit", clan->mem_limit, fread_number( fp ) ); KEY( "MKills", clan->mkills, fread_number( fp ) ); KEY( "Motto", clan->motto, fread_string( fp ) ); KEY( "MaleRank1", clan->mRank1, fread_string( fp ) ); KEY( "MaleRank2", clan->mRank2, fread_string( fp ) ); KEY( "MaleRank3", clan->mRank3, fread_string( fp ) ); KEY( "MaleRank4", clan->mRank4, fread_string( fp ) ); KEY( "MaleRank5", clan->mRank5, fread_string( fp ) ); KEY( "MaleRank6", clan->mRank6, fread_string( fp ) ); KEY( "MaleRank7", clan->mRank7, fread_string( fp ) ); KEY( "MaleRank1C", clan->mRank1Count, fread_number( fp ) ); KEY( "MaleRank2C", clan->mRank2Count, fread_number( fp ) ); KEY( "MaleRank3C", clan->mRank3Count, fread_number( fp ) ); KEY( "MaleRank4C", clan->mRank4Count, fread_number( fp ) ); KEY( "MaleRank5C", clan->mRank5Count, fread_number( fp ) ); KEY( "MaleRank6C", clan->mRank6Count, fread_number( fp ) ); KEY( "MaleRank7C", clan->mRank7Count, fread_number( fp ) ); KEY( "Morgue", clan->clanMorgue, fread_number( fp ) ); break; case 'N': KEY( "Name", clan->name, fread_string( fp ) ); break; case 'O': KEY( "Owner", clan->owner, fread_string( fp ) ); break; case 'P': KEY( "PDeaths", clan->pdeaths[6], fread_number( fp ) ); KEY( "PKills", clan->pkills[6], fread_number( fp ) ); /* Addition of New Ranges */ if ( !str_cmp ( word, "PDeathRange" ) ) { fMatch = TRUE; fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); } if ( !str_cmp ( word, "PDeathRangeNew" ) ) { fMatch = TRUE; clan->pdeaths[0] = fread_number( fp ); clan->pdeaths[1] = fread_number( fp ); clan->pdeaths[2] = fread_number( fp ); clan->pdeaths[3] = fread_number( fp ); clan->pdeaths[4] = fread_number( fp ); clan->pdeaths[5] = fread_number( fp ); clan->pdeaths[6] = fread_number( fp ); } if ( !str_cmp ( word, "PKillRangeNew" ) ) { fMatch = TRUE; clan->pkills[0] = fread_number( fp ); clan->pkills[1] = fread_number( fp ); clan->pkills[2] = fread_number( fp ); clan->pkills[3] = fread_number( fp ); clan->pkills[4] = fread_number( fp ); clan->pkills[5] = fread_number( fp ); clan->pkills[6] = fread_number( fp ); } if ( !str_cmp ( word, "PKillRange" ) ) { fMatch = TRUE; fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); fread_number( fp ); } break; case 'R': KEY( "Recall", clan->recall, fread_number( fp ) ); break; case 'S': KEY( "ShortName", clan->short_name, fread_string( fp ) ); KEY( "Score", clan->score, fread_number( fp ) ); if ( !str_cmp ( word, "SparLossRangeNew" ) ) { fMatch = TRUE; clan->spar_loss[0] = fread_number( fp ); clan->spar_loss[1] = fread_number( fp ); clan->spar_loss[2] = fread_number( fp ); clan->spar_loss[3] = fread_number( fp ); clan->spar_loss[4] = fread_number( fp ); clan->spar_loss[5] = fread_number( fp ); clan->spar_loss[6] = fread_number( fp ); } if ( !str_cmp ( word, "SparWinsRangeNew" ) ) { fMatch = TRUE; clan->spar_wins[0] = fread_number( fp ); clan->spar_wins[1] = fread_number( fp ); clan->spar_wins[2] = fread_number( fp ); clan->spar_wins[3] = fread_number( fp ); clan->spar_wins[4] = fread_number( fp ); clan->spar_wins[5] = fread_number( fp ); clan->spar_wins[6] = fread_number( fp ); } KEY( "Strikes", clan->strikes, fread_number( fp ) ); KEY( "Storeroom", clan->storeroom, fread_number( fp ) ); break; case 'T': KEY( "TaxRate", clan->tax, fread_number( fp ) ); KEY( "Type", clan->clan_type, fread_number( fp ) ); break; case 'U': KEY( "URL", clan->clanWebSite, fread_string( fp ) ); break; } if ( !fMatch ) { sprintf( buf, "Fread_clan: no match: %s", word ); bug( buf, 0 ); } } /* Why the FUCK was this put down here?! clan->members = clan->fRank1Count + clan->fRank2Count + clan->fRank3Count + clan->fRank4Count; clan->members+= clan->fRank5Count + clan->fRank6Count + clan->fRank7Count; clan->members+= clan->mRank1Count + clan->mRank2Count + clan->mRank3Count + clan->mRank4Count; clan->members+= clan->mRank5Count + clan->mRank6Count + clan->mRank7Count; */ } /* * Read in actual council data. */ #if defined(KEY) #undef KEY #endif #define KEY( literal, field, value ) \ if ( !str_cmp( word, literal ) ) \ { \ field = value; \ fMatch = TRUE; \ break; \ } void fread_council( COUNCIL_DATA *council, FILE *fp ) { char buf[MAX_STRING_LENGTH]; char *word; bool fMatch; for ( ; ; ) { word = feof( fp ) ? "End" : fread_word( fp ); fMatch = FALSE; switch ( UPPER(word[0]) ) { case '*': fMatch = TRUE; fread_to_eol( fp ); break; case 'B': KEY( "Board", council->board, fread_number( fp ) ); break; case 'D': KEY( "Description", council->description, fread_string( fp ) ); break; case 'E': if ( !str_cmp( word, "End" ) ) { if (!council->name) council->name = STRALLOC( "" ); if (!council->description) council->description = STRALLOC( "" ); if (!council->powers) council->powers = STRALLOC( "" ); return; } break; case 'F': KEY( "Filename", council->filename, fread_string_nohash( fp ) ); break; case 'H': KEY( "Head", council->head, fread_string( fp ) ); KEY ("Head2", council->head2, fread_string( fp ) ); break; case 'M': KEY( "Members", council->members, fread_number( fp ) ); KEY( "Meeting", council->meeting, fread_number( fp ) ); break; case 'N': KEY( "Name", council->name, fread_string( fp ) ); break; case 'P': KEY( "Powers", council->powers, fread_string( fp ) ); break; } if ( !fMatch ) { sprintf( buf, "Fread_council: no match: %s", word ); bug( buf, 0 ); } } } /* * Load a clan file */ bool load_clan_file( char *clanfile ) { char filename[256]; CLAN_DATA *clan; FILE *fp; bool found; CREATE( clan, CLAN_DATA, 1 ); /* Make sure we default these to 0 --Shaddai */ clan->pkills[0] = 0; clan->pkills[1] = 0; clan->pkills[2] = 0; clan->pkills[3] = 0; clan->pkills[4] = 0; clan->pkills[5] = 0; clan->pkills[6] = 0; clan->pdeaths[0]= 0; clan->pdeaths[1]= 0; clan->pdeaths[2]= 0; clan->pdeaths[3]= 0; clan->pdeaths[4]= 0; clan->pdeaths[5]= 0; clan->pdeaths[6]= 0; clan->spar_wins[0] = 0; clan->spar_wins[1] = 0; clan->spar_wins[2] = 0; clan->spar_wins[3] = 0; clan->spar_wins[4] = 0; clan->spar_wins[5] = 0; clan->spar_wins[6] = 0; clan->spar_loss[0] = 0; clan->spar_loss[1] = 0; clan->spar_loss[2] = 0; clan->spar_loss[3] = 0; clan->spar_loss[4] = 0; clan->spar_loss[5] = 0; clan->spar_loss[6] = 0; clan->bank = 0; found = FALSE; sprintf( filename, "%s%s", CLAN_DIR, clanfile ); if ( ( fp = fopen( filename, "r" ) ) != NULL ) { found = TRUE; for ( ; ; ) { char letter; char *word; letter = fread_letter( fp ); if ( letter == '*' ) { fread_to_eol( fp ); continue; } if ( letter != '#' ) { bug( "Load_clan_file: # not found.", 0 ); break; } word = fread_word( fp ); if ( !str_cmp( word, "CLAN" ) ) { fread_clan( clan, fp ); break; } else if ( !str_cmp( word, "END" ) ) break; else { char buf[MAX_STRING_LENGTH]; sprintf( buf, "Load_clan_file: bad section: %s.", word ); bug( buf, 0 ); break; } } fclose( fp ); } if ( found ) { ROOM_INDEX_DATA *storeroom; LINK( clan, first_clan, last_clan, next, prev ); if( !load_member_list( clan->filename ) ) { MEMBER_LIST *members_list; log_string( "No memberlist found, creating new list" ); CREATE( members_list, MEMBER_LIST, 1 ); members_list->name = STRALLOC( clan->name ); LINK( members_list, first_member_list, last_member_list, next, prev ); save_member_list( members_list ); } if ( clan->storeroom == 0 || (storeroom = get_room_index( clan->storeroom )) == NULL ) { log_string( "Storeroom not found" ); return found; } sprintf( filename, "%s%s.vault", CLAN_DIR, clan->filename ); if ( ( fp = fopen( filename, "r" ) ) != NULL ) { int iNest; bool found; OBJ_DATA *tobj, *tobj_next; log_string( "Loading clan storage room" ); rset_supermob(storeroom); for ( iNest = 0; iNest < MAX_NEST; iNest++ ) rgObjNest[iNest] = NULL; found = TRUE; for ( ; ; ) { char letter; char *word; letter = fread_letter( fp ); if ( letter == '*' ) { fread_to_eol( fp ); continue; } if ( letter != '#' ) { bug( "Load_clan_vault: # not found.", 0 ); bug( clan->name, 0 ); break; } word = fread_word( fp ); if ( !str_cmp( word, "OBJECT" ) ) /* Objects */ fread_obj ( supermob, fp, OS_CARRY ); else if ( !str_cmp( word, "END" ) ) /* Done */ break; else { bug( "Load_clan_vault: bad section.", 0 ); bug( clan->name, 0 ); break; } } fclose( fp ); for ( tobj = supermob->first_carrying; tobj; tobj = tobj_next ) { tobj_next = tobj->next_content; obj_from_char( tobj ); obj_to_room( tobj, storeroom ); } release_supermob(); } else log_string( "Cannot open clan vault" ); } else DISPOSE( clan ); return found; } /* * Load a council file */ bool load_council_file( char *councilfile ) { char filename[256]; COUNCIL_DATA *council; FILE *fp; bool found; CREATE( council, COUNCIL_DATA, 1 ); found = FALSE; sprintf( filename, "%s%s", COUNCIL_DIR, councilfile ); if ( ( fp = fopen( filename, "r" ) ) != NULL ) { found = TRUE; for ( ; ; ) { char letter; char *word; letter = fread_letter( fp ); if ( letter == '*' ) { fread_to_eol( fp ); continue; } if ( letter != '#' ) { bug( "Load_council_file: # not found.", 0 ); break; } word = fread_word( fp ); if ( !str_cmp( word, "COUNCIL" ) ) { fread_council( council, fp ); break; } else if ( !str_cmp( word, "END" ) ) break; else { bug( "Load_council_file: bad section.", 0 ); break; } } fclose( fp ); } if ( found ) LINK( council, first_council, last_council, next, prev ); else DISPOSE( council ); return found; } /* * Load in all the clan files. */ void load_clans( ) { FILE *fpList; char *filename; char clanlist[256]; char buf[MAX_STRING_LENGTH]; first_clan = NULL; last_clan = NULL; log_string( "Loading clans..." ); sprintf( clanlist, "%s%s", CLAN_DIR, CLAN_LIST ); fclose( fpReserve ); if ( ( fpList = fopen( clanlist, "r" ) ) == NULL ) { perror( clanlist ); exit( 1 ); } for ( ; ; ) { filename = feof( fpList ) ? "$" : fread_word( fpList ); log_string( filename ); if ( filename[0] == '$' ) break; if ( !load_clan_file( filename ) ) { sprintf( buf, "Cannot load clan file: %s", filename ); bug( buf, 0 ); } } load_alliance(); fclose( fpList ); log_string(" Done clans " ); fpReserve = fopen( NULL_FILE, "r" ); return; } /* * Load in all the council files. */ void load_councils( ) { FILE *fpList; char *filename; char councillist[256]; char buf[MAX_STRING_LENGTH]; first_council = NULL; last_council = NULL; log_string( "Loading councils..." ); sprintf( councillist, "%s%s", COUNCIL_DIR, COUNCIL_LIST ); fclose( fpReserve ); if ( ( fpList = fopen( councillist, "r" ) ) == NULL ) { perror( councillist ); exit( 1 ); } for ( ; ; ) { filename = feof( fpList ) ? "$" : fread_word( fpList ); log_string( filename ); if ( filename[0] == '$' ) break; if ( !load_council_file( filename ) ) { sprintf( buf, "Cannot load council file: %s", filename ); bug( buf, 0 ); } } fclose( fpList ); log_string(" Done councils " ); fpReserve = fopen( NULL_FILE, "r" ); return; } void do_savealliances( CHAR_DATA *ch, char *argument ) { if( ch->level < 63 ) { ch_printf(ch,"Access denied.\n\r"); return; } save_alliance( ); ch_printf(ch,"Done.\n\r"); return; } void do_make( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; OBJ_INDEX_DATA *pObjIndex; OBJ_DATA *obj; CLAN_DATA *clan; int level; if ( IS_NPC( ch ) || !ch->pcdata->clan ) { send_to_char( "Huh?\n\r", ch ); return; } clan = ch->pcdata->clan; if (!is_leader(ch) && !is_deity(ch)) { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Make what?\n\r", ch ); return; } pObjIndex = get_obj_index( clan->clanobj1 ); level = 40; if ( !pObjIndex || !is_name( arg, pObjIndex->name ) ) { pObjIndex = get_obj_index( clan->clanobj2 ); level = 45; } if ( !pObjIndex || !is_name( arg, pObjIndex->name ) ) { pObjIndex = get_obj_index( clan->clanobj3 ); level = 50; } if ( !pObjIndex || !is_name( arg, pObjIndex->name ) ) { pObjIndex = get_obj_index( clan->clanobj4 ); level = 35; } if ( !pObjIndex || !is_name( arg, pObjIndex->name ) ) { pObjIndex = get_obj_index( clan->clanobj5 ); level = 1; } if ( !pObjIndex || !is_name( arg, pObjIndex->name ) ) { send_to_char( "You don't know how to make that.\n\r", ch ); return; } obj = create_object( pObjIndex, level ); xSET_BIT( obj->extra_flags, ITEM_CLANOBJECT ); if ( CAN_WEAR(obj, ITEM_TAKE) ) obj = obj_to_char( obj, ch ); else obj = obj_to_room( obj, ch->in_room ); act( AT_MAGIC, "$n makes $p!", ch, obj, NULL, TO_ROOM ); act( AT_MAGIC, "You make $p!", ch, obj, NULL, TO_CHAR ); return; } void do_induct( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; CLAN_DATA *clan; if ( IS_NPC( ch ) || !ch->pcdata->clan ) { send_to_char( "Huh?\n\r", ch ); return; } clan = ch->pcdata->clan; if ( (ch->pcdata && ch->pcdata->bestowments && is_name("induct", ch->pcdata->bestowments)) || is_deity(ch) || is_leader(ch)) ; else { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Induct whom?\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "That player is not here.\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if ( IS_IMMORTAL(victim) ) { send_to_char( "Not on imms.\n\r", ch ); return; } if ( clan->clan_type == CLAN_GUILD ) { if ( victim->class != clan->class) { send_to_char( "This player's will is not in accordance with your guild.\n\r", ch); return; } } else { if ( victim->exp < 5000 ) { send_to_char( "This player is not worthy of joining yet (5,000 PL min).\n\r", ch ); return; } } if (!xIS_SET(victim->act, PLR_CAN_CHAT)) { send_to_char( "That player needs their bio authorized before they can join.\n\r", ch ); return; } if ( victim->pcdata->clan ) { if ( victim->pcdata->clan->clan_type == CLAN_ORDER ) { if ( victim->pcdata->clan == clan ) send_to_char( "This player already belongs to your order!\n\r", ch ); else send_to_char( "This player already belongs to an order!\n\r", ch ); return; } else if ( victim->pcdata->clan->clan_type == CLAN_GUILD ) { if ( victim->pcdata->clan == clan ) send_to_char( "This player already belongs to your guild!\n\r", ch ); else send_to_char( "This player already belongs to an guild!\n\r", ch ); return; } else { if ( victim->pcdata->clan == clan ) send_to_char( "This player already belongs to your clan!\n\r", ch ); else send_to_char( "This player already belongs to a clan!\n\r", ch ); return; } } if ( clan->mem_limit && clan->members >= clan->mem_limit ) { send_to_char("Your clan is too big to induct anymore players.\n\r",ch); return; } /* clan->members++; */ if ( clan->clan_type != CLAN_ORDER && clan->clan_type != CLAN_GUILD ) SET_BIT(victim->speaks, LANG_CLAN); if ( clan->clan_type != CLAN_NOKILL && clan->clan_type != CLAN_ORDER && clan->clan_type != CLAN_GUILD ) SET_BIT( victim->pcdata->flags, PCFLAG_DEADLY ); if ( clan->clan_type != CLAN_GUILD && clan->clan_type != CLAN_ORDER && clan->clan_type != CLAN_NOKILL ) { int sn; for ( sn = 0; sn < top_sn; sn++ ) { if (skill_table[sn]->guild == clan->class && skill_table[sn]->name != NULL ) { victim->pcdata->learned[sn] = GET_ADEPT(victim, sn); ch_printf( victim, "%s instructs you in the ways of %s.\n\r", ch->name, skill_table[sn]->name); } } } victim->pcdata->clanRank = 7; victim->pcdata->clanZeniDonated = 0; victim->pcdata->clanZeniClanTax = 0; victim->pcdata->clanItemsDonated = 0; if (victim->sex == SEX_FEMALE) clan->fRank7Count++; else clan->mRank7Count++; victim->pcdata->clan = clan; STRFREE(victim->pcdata->clan_name); victim->pcdata->clan_name = QUICKLINK( clan->name ); /*clan->clanPL += victim->exp;*/ if (xIS_SET(victim->act, PLR_OUTCAST)) xREMOVE_BIT(victim->act, PLR_OUTCAST); update_member( victim ); act( AT_MAGIC, "You recruit $N into $t", ch, clan->name, victim, TO_CHAR ); act( AT_MAGIC, "$n recruits $N into $t", ch, clan->name, victim, TO_NOTVICT ); act( AT_MAGIC, "$n recruits you into $t", ch, clan->name, victim, TO_VICT ); clan->members = clan->fRank1Count + clan->fRank2Count + clan->fRank3Count + clan->fRank4Count; clan->members+= clan->fRank5Count + clan->fRank6Count + clan->fRank7Count; clan->members+= clan->mRank1Count + clan->mRank2Count + clan->mRank3Count + clan->mRank4Count; clan->members+= clan->mRank5Count + clan->mRank6Count + clan->mRank7Count; save_char_obj( victim ); save_clan( clan ); return; } void do_council_induct( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; COUNCIL_DATA *council; if ( IS_NPC( ch ) || !ch->pcdata->council ) { send_to_char( "Huh?\n\r", ch ); return; } council = ch->pcdata->council; if ((council->head == NULL || str_cmp (ch->name, council->head)) && ( council->head2 == NULL || str_cmp ( ch->name, council->head2 )) && str_cmp (council->name, "mortal council")) { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Induct whom into your council?\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "That player is not here.\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } /* if ( victim->level < 51 ) { send_to_char( "This player is not worthy of joining any council yet.\n\r", ch ); return; } */ if ( victim->pcdata->council ) { send_to_char( "This player already belongs to a council!\n\r", ch ); return; } council->members++; victim->pcdata->council = council; STRFREE(victim->pcdata->council_name); victim->pcdata->council_name = QUICKLINK( council->name ); act( AT_MAGIC, "You induct $N into $t", ch, council->name, victim, TO_CHAR ); act( AT_MAGIC, "$n inducts $N into $t", ch, council->name, victim, TO_ROOM ); act( AT_MAGIC, "$n inducts you into $t", ch, council->name, victim, TO_VICT ); save_char_obj( victim ); save_council( council ); return; } void do_outcast( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; CLAN_DATA *clan; char buf[MAX_STRING_LENGTH]; if ( IS_NPC( ch ) || !ch->pcdata->clan ) { send_to_char( "Huh?\n\r", ch ); return; } clan = ch->pcdata->clan; if ( (ch->pcdata && ch->pcdata->bestowments && is_name("outcast", ch->pcdata->bestowments)) || is_deity(ch) || is_leader(ch)) ; else { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Outcast whom?\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "That player is not here.\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if ( IS_IMMORTAL(victim) ) { send_to_char( "Not on imms.\n\r", ch ); return; } if ( victim == ch ) { if ( ch->pcdata->clan->clan_type == CLAN_ORDER ) { send_to_char( "Kick yourself out of your own order?\n\r", ch ); return; } else if ( ch->pcdata->clan->clan_type == CLAN_GUILD ) { send_to_char( "Kick yourself out of your own guild?\n\r", ch ); return; } else { send_to_char( "Kick yourself out of your own clan?\n\r", ch ); return; } } if ( victim->pcdata->clan != ch->pcdata->clan ) { if ( ch->pcdata->clan->clan_type == CLAN_ORDER ) { send_to_char( "This player does not belong to your order!\n\r", ch ); return; } else if ( ch->pcdata->clan->clan_type == CLAN_GUILD ) { send_to_char( "This player does not belong to your guild!\n\r", ch ); return; } else { send_to_char( "This player does not belong to your clan!\n\r", ch ); return; } } if (is_leader(victim) || is_deity(victim)) { send_to_char( "You can't outcast that player.\n\r", ch ); return; } if ( clan->clan_type != CLAN_GUILD && clan->clan_type != CLAN_ORDER && clan->clan_type != CLAN_NOKILL ) { int sn; for ( sn = 0; sn < top_sn; sn++ ) if ( skill_table[sn]->guild == victim->pcdata->clan->class && skill_table[sn]->name != NULL ) { victim->pcdata->learned[sn] = 0; ch_printf( victim, "You forget the ways of %s.\n\r", skill_table[sn]->name); } } if ( victim->speaking & LANG_CLAN ) victim->speaking = LANG_COMMON; REMOVE_BIT( victim->speaks, LANG_CLAN ); clan->members--; switch (victim->pcdata->clanRank) { default: break; case 7: if (victim->sex == SEX_FEMALE) clan->fRank7Count--; else clan->mRank7Count--; break; case 6: if (victim->sex == SEX_FEMALE) clan->fRank6Count--; else clan->mRank6Count--; break; case 5: if (victim->sex == SEX_FEMALE) clan->fRank5Count--; else clan->mRank5Count--; break; case 4: if (victim->sex == SEX_FEMALE) clan->fRank4Count--; else clan->mRank4Count--; break; case 3: if (victim->sex == SEX_FEMALE) clan->fRank3Count--; else clan->mRank3Count--; break; case 2: if (victim->sex == SEX_FEMALE) clan->fRank2Count--; else clan->mRank2Count--; break; case 1: if (victim->sex == SEX_FEMALE) clan->fRank1Count--; else clan->mRank1Count--; break; } victim->pcdata->clanRank = 0; victim->pcdata->clan = NULL; remove_member( victim ); STRFREE(victim->pcdata->clan_name); victim->pcdata->clan_name = STRALLOC( "" ); /*clan->clanPL -= victim->exp;*/ xSET_BIT(victim->act, PLR_OUTCAST); act( AT_MAGIC, "You outcast $N from $t", ch, clan->name, victim, TO_CHAR ); act( AT_MAGIC, "$n outcasts $N from $t", ch, clan->name, victim, TO_ROOM ); act( AT_MAGIC, "$n outcasts you from $t", ch, clan->name, victim, TO_VICT ); if ( clan->clan_type != CLAN_GUILD && clan->clan_type != CLAN_ORDER ) { sprintf(buf, "%s has been outcast from %s!", victim->name, clan->name); echo_to_all(AT_MAGIC, buf, ECHOTAR_ALL); } save_char_obj( victim ); /* clan gets saved when pfile is saved */ save_clan( clan ); return; } void do_council_outcast( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; COUNCIL_DATA *council; if ( IS_NPC( ch ) || !ch->pcdata->council ) { send_to_char( "Huh?\n\r", ch ); return; } council = ch->pcdata->council; if ((council->head == NULL || str_cmp (ch->name, council->head)) && ( council->head2 == NULL || str_cmp ( ch->name, council->head2 )) && str_cmp (council->name, "mortal council")) { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Outcast whom from your council?\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "That player is not here.\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if ( victim == ch ) { send_to_char( "Kick yourself out of your own council?\n\r", ch ); return; } if ( victim->pcdata->council != ch->pcdata->council ) { send_to_char( "This player does not belong to your council!\n\r", ch ); return; } --council->members; victim->pcdata->council = NULL; STRFREE(victim->pcdata->council_name); victim->pcdata->council_name = STRALLOC( "" ); act( AT_MAGIC, "You outcast $N from $t", ch, council->name, victim, TO_CHAR ); act( AT_MAGIC, "$n outcasts $N from $t", ch, council->name, victim, TO_ROOM ); act( AT_MAGIC, "$n outcasts you from $t", ch, council->name, victim, TO_VICT ); save_char_obj( victim ); save_council( council ); return; } bool is_owner( CHAR_DATA *ch, CLAN_DATA *clan ) { if( ch->pcdata->clan == clan ) { if( !str_cmp(ch->name,clan->owner) ) return TRUE; } return FALSE; } void do_setclan( CHAR_DATA *ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; CLAN_DATA *clan; set_char_color( AT_PLAIN, ch ); if ( IS_NPC( ch ) ) { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if ( arg1[0] == '\0' ) { send_to_char( "Usage: setclan <clan> <field> <#/player>\n\r", ch ); send_to_char( "\n\rField being one of:\n\r", ch ); send_to_char( " admin leader1-6 mrank1-7 frank1-7\n\r", ch ); send_to_char( " members board recall storage guard1 guard2\n\r", ch ); send_to_char( " align memlimit deathrecall morgue donate\n\r", ch ); send_to_char( " jail skill1-3 url tax bank active\n\r", ch ); send_to_char( " obj1 obj2 obj3 obj4 obj5\n\r", ch ); send_to_char( " mrankc1-7 frankc1-7\n\r", ch ); if ( get_trust( ch ) >= LEVEL_GOD ) { send_to_char( " name filename motto desc clanhq\n\r", ch ); send_to_char( " short favour strikes type class\n\r", ch ); send_to_char( " owner \n\r", ch ); } if ( get_trust( ch ) >= LEVEL_IMPLEMENTOR ) send_to_char(" pkill1-7 pdeath1-7 clanpl\n\r", ch ); return; } clan = get_clan( arg1 ); if ( !clan ) { send_to_char( "No such clan.\n\r", ch ); return; } if (!str_cmp(arg2, "clanhq")) { AREA_DATA * clanHQ; for (clanHQ = first_area; clanHQ; clanHQ = clanHQ->next) { if (!str_cmp(clanHQ->filename, argument)) { clan->clanHQ = clanHQ; send_to_char( "Done.\n\r", ch ); return; } } send_to_char( "Area filename not found.\n\r", ch ); return; } if ( !str_cmp( arg2, "active" ) ) { clan->activeMem = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } /*if ( !str_cmp( arg2, "clanpl" ) ) { clan->clanPL = atof( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; }*/ if ( !str_cmp( arg2, "admin" ) ) { STRFREE( clan->deity ); clan->deity = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader1" ) ) { STRFREE( clan->leader1 ); clan->leader1 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "owner" ) ) { STRFREE( clan->owner ); clan->owner = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader2" ) ) { STRFREE( clan->leader2 ); clan->leader2 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader3" ) ) { STRFREE( clan->leader3 ); clan->leader3 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader4" ) ) { STRFREE( clan->leader4 ); clan->leader4 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader5" ) ) { STRFREE( clan->leader5 ); clan->leader5 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "leader6" ) ) { STRFREE( clan->leader6 ); clan->leader6 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc1" ) ) { clan->mRank1Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc2" ) ) { clan->mRank2Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc3" ) ) { clan->mRank3Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc4" ) ) { clan->mRank4Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc5" ) ) { clan->mRank5Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc6" ) ) { clan->mRank6Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrankc7" ) ) { clan->mRank7Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc1" ) ) { clan->fRank1Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc2" ) ) { clan->fRank2Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc3" ) ) { clan->fRank3Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc4" ) ) { clan->fRank4Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc5" ) ) { clan->fRank5Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc6" ) ) { clan->fRank6Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRankc7" ) ) { clan->fRank7Count = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank1" ) ) { STRFREE( clan->mRank1 ); clan->mRank1 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank2" ) ) { STRFREE( clan->mRank2 ); clan->mRank2 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank3" ) ) { STRFREE( clan->mRank3 ); clan->mRank3 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank4" ) ) { STRFREE( clan->mRank4 ); clan->mRank4 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank5" ) ) { STRFREE( clan->mRank5 ); clan->mRank5 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank6" ) ) { STRFREE( clan->mRank6 ); clan->mRank6 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "mrank7" ) ) { STRFREE( clan->mRank7 ); clan->mRank7 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank1" ) ) { STRFREE( clan->fRank1 ); clan->fRank1 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank2" ) ) { STRFREE( clan->fRank2 ); clan->fRank2 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank3" ) ) { STRFREE( clan->fRank3 ); clan->fRank3 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank4" ) ) { STRFREE( clan->fRank4 ); clan->fRank4 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank5" ) ) { STRFREE( clan->fRank5 ); clan->fRank5 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank6" ) ) { STRFREE( clan->fRank6 ); clan->fRank6 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "fRank7" ) ) { STRFREE( clan->fRank7 ); clan->fRank7 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "badge" ) ) { STRFREE( clan->badge ); clan->badge = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "url" ) ) { STRFREE( clan->clanWebSite ); clan->clanWebSite = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "tax" ) ) { clan->tax = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "bank" ) ) { clan->bank = atof( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "board" ) ) { clan->board = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "memlimit") ) { clan->mem_limit = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "members" ) ) { clan->members = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "recall" ) ) { clan->recall = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "storage" ) ) { clan->storeroom = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "deathrecall" ) ) { clan->deathRecall = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "jail" ) ) { clan->clanJail = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "morgue" ) ) { clan->clanMorgue = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "donate" ) ) { clan->clanDonate = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "skill1" ) ) { clan->clanSkill1 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "skill2" ) ) { clan->clanSkill2 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "skill3" ) ) { clan->clanSkill3 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "obj1" ) ) { clan->clanobj1 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "obj2" ) ) { clan->clanobj2 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "obj3" ) ) { clan->clanobj3 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "obj4" ) ) { clan->clanobj4 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "obj5" ) ) { clan->clanobj5 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "guard1" ) ) { clan->guard1 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "guard2" ) ) { clan->guard2 = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( get_trust( ch ) < LEVEL_GOD ) { do_setclan( ch, "" ); return; } if ( !str_cmp( arg2, "align" ) ) { clan->alignment = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "type" ) ) { if ( !str_cmp( argument, "order" ) ) clan->clan_type = CLAN_ORDER; else if ( !str_cmp( argument, "guild" ) ) clan->clan_type = CLAN_GUILD; else clan->clan_type = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "class" ) ) { clan->class = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "name" ) ) { STRFREE( clan->name ); clan->name = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "short" ) ) { STRFREE( clan->short_name ); clan->short_name = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "filename" ) ) { if ( clan->filename && clan->filename[0] != '\0' ) DISPOSE( clan->filename ); clan->filename = str_dup( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); write_clan_list( ); return; } if ( !str_cmp( arg2, "motto" ) ) { STRFREE( clan->motto ); clan->motto = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg2, "desc" ) ) { STRFREE( clan->description ); clan->description = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( get_trust( ch ) < LEVEL_IMPLEMENTOR ) { do_setclan( ch, "" ); return; } if ( !str_prefix( "pkill", arg2) ) { int temp_value; if ( !str_cmp( arg2, "pkill1" ) ) temp_value = 0; else if ( !str_cmp( arg2, "pkill2" ) ) temp_value = 1; else if ( !str_cmp( arg2, "pkill3" ) ) temp_value = 2; else if ( !str_cmp( arg2, "pkill4" ) ) temp_value = 3; else if ( !str_cmp( arg2, "pkill5" ) ) temp_value = 4; else if ( !str_cmp( arg2, "pkill6" ) ) temp_value = 5; else if ( !str_cmp( arg2, "pkill7" ) ) temp_value = 6; else { do_setclan ( ch, "" ); return; } clan->pkills[temp_value] = atoi( argument ); send_to_char ("Ok.\n\r", ch ); return; } if ( !str_prefix( "spar_wins", arg2) ) { int temp_value; if ( !str_cmp( arg2, "spar_wins1" ) ) temp_value = 0; else if ( !str_cmp( arg2, "spar_wins2" ) ) temp_value = 1; else if ( !str_cmp( arg2, "spar_wins3" ) ) temp_value = 2; else if ( !str_cmp( arg2, "spar_wins4" ) ) temp_value = 3; else if ( !str_cmp( arg2, "spar_wins5" ) ) temp_value = 4; else if ( !str_cmp( arg2, "spar_wins6" ) ) temp_value = 5; else if ( !str_cmp( arg2, "spar_wins7" ) ) temp_value = 6; else { do_setclan ( ch, "" ); return; } clan->spar_wins[temp_value] = atoi( argument ); send_to_char ("Ok.\n\r", ch ); return; } if ( !str_prefix( "spar_loss", arg2) ) { int temp_value; if ( !str_cmp( arg2, "spar_loss1" ) ) temp_value = 0; else if ( !str_cmp( arg2, "spar_loss2" ) ) temp_value = 1; else if ( !str_cmp( arg2, "spar_loss3" ) ) temp_value = 2; else if ( !str_cmp( arg2, "spar_loss4" ) ) temp_value = 3; else if ( !str_cmp( arg2, "spar_loss5" ) ) temp_value = 4; else if ( !str_cmp( arg2, "spar_loss6" ) ) temp_value = 5; else if ( !str_cmp( arg2, "spar_loss7" ) ) temp_value = 6; else { do_setclan ( ch, "" ); return; } clan->spar_loss[temp_value] = atoi( argument ); send_to_char ("Ok.\n\r", ch ); return; } if ( !str_prefix( "pdeath", arg2) ) { int temp_value; if ( !str_cmp( arg2, "pdeath1" ) ) temp_value = 0; else if ( !str_cmp( arg2, "pdeath2" ) ) temp_value = 1; else if ( !str_cmp( arg2, "pdeath3" ) ) temp_value = 2; else if ( !str_cmp( arg2, "pdeath4" ) ) temp_value = 3; else if ( !str_cmp( arg2, "pdeath5" ) ) temp_value = 4; else if ( !str_cmp( arg2, "pdeath6" ) ) temp_value = 5; else if ( !str_cmp( arg2, "pdeath7" ) ) temp_value = 6; else { do_setclan ( ch, "" ); return; } clan->pdeaths[temp_value] = atoi( argument ); send_to_char ("Ok.\n\r", ch ); return; } do_setclan( ch, "" ); return; } void do_setcouncil( CHAR_DATA *ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; COUNCIL_DATA *council; set_char_color( AT_PLAIN, ch ); if ( IS_NPC( ch ) ) { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if ( arg1[0] == '\0' ) { send_to_char( "Usage: setcouncil <council> <field> <deity|leader|number1|number2> <player>\n\r", ch ); send_to_char( "\n\rField being one of:\n\r", ch ); send_to_char( " head head2 members board meeting\n\r", ch ); if ( get_trust( ch ) >= LEVEL_GOD ) send_to_char( " name filename desc\n\r", ch ); if ( get_trust( ch ) >= LEVEL_SUB_IMPLEM ) send_to_char( " powers\n\r", ch); return; } council = get_council( arg1 ); if ( !council ) { send_to_char( "No such council.\n\r", ch ); return; } if ( !str_cmp( arg2, "head" ) ) { STRFREE( council->head ); council->head = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if (!str_cmp (arg2, "head2")) { if ( council->head2 != NULL ) STRFREE (council->head2); if ( !str_cmp ( argument, "none" ) || !str_cmp ( argument, "clear" ) ) council->head2 = NULL; else council->head2 = STRALLOC (argument); send_to_char ("Done.\n\r", ch); save_council (council); return; } if ( !str_cmp( arg2, "board" ) ) { council->board = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if ( !str_cmp( arg2, "members" ) ) { council->members = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if ( !str_cmp( arg2, "meeting" ) ) { council->meeting = atoi( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if ( get_trust( ch ) < LEVEL_GOD ) { do_setcouncil( ch, "" ); return; } if ( !str_cmp( arg2, "name" ) ) { STRFREE( council->name ); council->name = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if ( !str_cmp( arg2, "filename" ) ) { if ( council->filename && council->filename[0] != '\0' ) DISPOSE( council->filename ); council->filename = str_dup( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); write_council_list( ); return; } if ( !str_cmp( arg2, "desc" ) ) { STRFREE( council->description ); council->description = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } if ( get_trust( ch ) < LEVEL_SUB_IMPLEM ) { do_setcouncil( ch, "" ); return; } if ( !str_cmp( arg2, "powers" ) ) { STRFREE( council->powers ); council->powers = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_council( council ); return; } do_setcouncil( ch, "" ); return; } /* * Added multiple levels on pkills and pdeaths. -- Shaddai */ void do_showclan( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; set_char_color( AT_PLAIN, ch ); if ( IS_NPC( ch ) ) { send_to_char( "Huh?\n\r", ch ); return; } if ( argument[0] == '\0' ) { send_to_char( "Usage: showclan <clan>\n\r", ch ); return; } clan = get_clan( argument ); if ( !clan ) { send_to_char( "No such clan, guild or order.\n\r", ch ); return; } ch_printf( ch, "\n\r&w%s : &W%s\t\t&wShort Name: &W%s\t\t&wBadge: %s\n\r&wFilename : &W%s\n\r&wMotto : &W%s\n\r", clan->clan_type == CLAN_ORDER ? "Order" : (clan->clan_type == CLAN_GUILD ? "Guild" : "Clan "), clan->name, clan->short_name, clan->badge ? clan->badge : "(not set)", clan->filename, clan->motto ); ch_printf( ch, "&wDesc : &W%s\n\r&wDeity : &W%s\n\r", clan->description, clan->deity ); ch_printf( ch, "&wOwner: &W%-15.15s\n\r",clan->owner); ch_printf( ch, "&wLeader1: &W%-15.15s &wLeader2: &W%-15.15s &wLeader3: &W%-15.15s", clan->leader1, clan->leader2, clan->leader3 ); ch_printf( ch, "&wLeader4: &W%-15.15s &wLeader5: &W%-15.15s &wLeader6: &W%-15.15s", clan->leader4, clan->leader5, clan->leader6 ); ch_printf( ch, "&wPKills : &w 5k-10k :&W%-3d &w 10k-100k:&W%-3d &w100k-1m :&W%-3d &w 1m-10m :&W%-3d\n : &w 10m-100m:&W%-3d &w100m-1b :&W%-3d &w +1b :&W%-3d\n\r", clan->pkills[0], clan->pkills[1], clan->pkills[2], clan->pkills[3], clan->pkills[4], clan->pkills[5], clan->pkills[6]); ch_printf( ch, "&wPDeaths : &w 5k-10k :&W%-3d &w 10k-100k:&W%-3d &w100k-1m :&W%-3d &w 1m-10m :&W%-3d\n : &w 10m-100m:&W%-3d &w100m-1b :&W%-3d &w +1b :&W%-3d\n\r", clan->pdeaths[0], clan->pdeaths[1], clan->pdeaths[2], clan->pdeaths[3], clan->pdeaths[4], clan->pdeaths[5], clan->pdeaths[6] ); ch_printf( ch, "&wSpar_Wins: &w 5k-10k :&W%-3d &w 10k-100k:&W%-3d &w100k-1m :&W%-3d &w 1m-10m :&W%-3d\n : &w 10m-100m:&W%-3d &w100m-1b :&W%-3d &w +1b :&W%-3d\n\r", clan->spar_wins[0], clan->spar_wins[1], clan->spar_wins[2], clan->spar_wins[3], clan->spar_wins[4], clan->spar_wins[5], clan->spar_wins[6]); ch_printf( ch, "&wSpar_Loss: &w 5k-10k :&W%-3d &w 10k-100k:&W%-3d &w100k-1m :&W%-3d &w 1m-10m :&W%-3d\n : &w 10m-100m:&W%-3d &w100m-1b :&W%-3d &w +1b :&W%-3d\n\r", clan->spar_loss[0], clan->spar_loss[1], clan->spar_loss[2], clan->spar_loss[3], clan->spar_loss[4], clan->spar_loss[5], clan->spar_loss[6]); ch_printf( ch, "&wIllegalPK: &W%-6d\n\r", clan->illegal_pk ); ch_printf( ch, "&wMKills : &W%-6d &wMDeaths: &W%-6d\n\r", clan->mkills, clan->mdeaths ); ch_printf( ch, "&wScore : &W%-6d &wFavor : &W%-6d &wStrikes: &W%d\n\r", clan->score, clan->favour, clan->strikes ); ch_printf( ch, "&wMembers : &W%-6d &wMemLimit: &W%-6d &wActive: &W%-6d &wAlign : &W%-6d", clan->members, clan->mem_limit, clan->activeMem, clan->alignment ); if ( clan->clan_type == CLAN_GUILD ) ch_printf( ch, " &wClass : &W%d &w(&W%s&w)", clan->class, clan->class<MAX_PC_CLASS?class_table[clan->class]->who_name: "unknown" ); send_to_char( "\n\r", ch ); ch_printf( ch, "&wBoard : &W%-5d &wRecall : &W%-5d &wStorage: &W%-5d\n\r", clan->board, clan->recall, clan->storeroom ); ch_printf( ch, "&wDeathRecall: &W%-5d &wMorgue : &W%-5d &wDonate: &W%-5d\n\r", clan->board, clan->recall, clan->storeroom ); ch_printf(ch, "&wJail: &W%-5d &wTax: &W%-5d", clan->clanJail, clan->tax); ch_printf(ch, "&wBank: &W%s", num_punct_ld(clan->bank)); ch_printf( ch, "&wGuard1 : &W%-5d &wGuard2 : &W%-5d\n\r", clan->guard1, clan->guard2 ); ch_printf( ch, "&wObj1( &W%d &w) Obj2( &W%d &w) Obj3( &W%d &w) Obj4( &W%d &w) Obj5( &W%d &w)\n\r", clan->clanobj1, clan->clanobj2, clan->clanobj3, clan->clanobj4, clan->clanobj5 ); ch_printf( ch, "&wSkill1( &W%d &w) Skill2( &W%d &w) Skill3( &W%d &w)\n\r", clan->clanSkill1, clan->clanSkill2, clan->clanSkill3); /*ch_printf(ch, "&wTotal Clan Power Level: &W%s", num_punct_ld(clan->clanPL));*/ ch_printf(ch, " Male Rankings Female Rankings\n\r"); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank1, clan->fRank1); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank2, clan->fRank2); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank3, clan->fRank3); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank4, clan->fRank4); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank5, clan->fRank5); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank6, clan->fRank6); ch_printf(ch, " [ %-20.20s ] [ %-20.20s ]\n\r", clan->mRank7, clan->fRank7); ch_printf(ch, "show clan alliances here\n\r"); return; } void do_showcouncil( CHAR_DATA *ch, char *argument ) { COUNCIL_DATA *council; set_char_color( AT_PLAIN, ch ); if ( IS_NPC( ch ) ) { send_to_char( "Huh?\n\r", ch ); return; } if ( argument[0] == '\0' ) { send_to_char( "Usage: showcouncil <council>\n\r", ch ); return; } council = get_council( argument ); if ( !council ) { send_to_char( "No such council.\n\r", ch ); return; } ch_printf_color( ch, "\n\r&wCouncil : &W%s\n\r&wFilename: &W%s\n\r", council->name, council->filename ); ch_printf_color (ch, "&wHead: &W%s\n\r", council->head ); ch_printf_color (ch, "&wHead2: &W%s\n\r", council->head2 ); ch_printf_color (ch, "&wMembers: &W%-d\n\r", council->members ); ch_printf_color( ch, "&wBoard: &W%-5d\n\r&wMeeting: &W%-5d\n\r&wPowers: &W%s\n\r", council->board, council->meeting, council->powers ); ch_printf_color( ch, "&wDescription:\n\r&W%s\n\r", council->description ); return; } void do_makeclan( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; CLAN_DATA *aclan; ALLIANCE_DATA *alliance; set_char_color( AT_IMMORT, ch ); if ( !argument || argument[0] == '\0' ) { send_to_char( "Usage: makeclan <clan name>\n\r", ch ); return; } set_char_color( AT_PLAIN, ch ); clan = get_clan( argument ); if ( clan ) { send_to_char( "There is already a clan with that name.\n\r", ch ); return; } CREATE( clan, CLAN_DATA, 1 ); LINK( clan, first_clan, last_clan, next, prev ); clan->name = STRALLOC( argument ); clan->short_name= STRALLOC( "None" ); /*clan->filename = str_dup( "" );*/ clan->motto = STRALLOC( "" ); clan->description = STRALLOC( "" ); clan->bank = 0; clan->deity = STRALLOC( "None" ); clan->owner = STRALLOC( "None" ); clan->leader1 = STRALLOC( "None" ); clan->leader2 = STRALLOC( "None" ); clan->leader3 = STRALLOC( "None" ); clan->leader4 = STRALLOC( "None" ); clan->leader5 = STRALLOC( "None" ); clan->leader6 = STRALLOC( "None" ); clan->badge = STRALLOC( "" ); clan->mRank1 = STRALLOC( "Leader" ); clan->mRank2 = STRALLOC( "Rank2" ); clan->mRank3 = STRALLOC( "Rank3" ); clan->mRank4 = STRALLOC( "Rank4" ); clan->mRank5 = STRALLOC( "Rank5" ); clan->mRank6 = STRALLOC( "Rank6" ); clan->mRank7 = STRALLOC( "Rank7" ); clan->fRank1 = STRALLOC( "Leader" ); clan->fRank2 = STRALLOC( "Rank2" ); clan->fRank3 = STRALLOC( "Rank3" ); clan->fRank4 = STRALLOC( "Rank4" ); clan->fRank5 = STRALLOC( "Rank5" ); clan->fRank6 = STRALLOC( "Rank6" ); clan->fRank7 = STRALLOC( "Rank7" ); clan->clanWebSite = STRALLOC( "" ); for(aclan = first_clan; aclan; aclan = aclan->next) { if (aclan == clan) continue; CREATE( alliance, ALLIANCE_DATA, 1 ); alliance->clan = clan; alliance->vclan = aclan; alliance->status = 0; alliance->vclanStatus = 0; alliance->votes = 0; alliance->leader1Vote = STRALLOC( "None" ); alliance->leader2Vote = STRALLOC( "None" ); LINK( alliance, first_alliance, last_alliance, next, prev ); } newClanAlliance(clan); save_alliance(); return; } void do_makecouncil( CHAR_DATA *ch, char *argument ) { char filename[256]; COUNCIL_DATA *council; bool found; set_char_color( AT_IMMORT, ch ); if ( !argument || argument[0] == '\0' ) { send_to_char( "Usage: makecouncil <council name>\n\r", ch ); return; } found = FALSE; sprintf( filename, "%s%s", COUNCIL_DIR, strlower(argument) ); CREATE( council, COUNCIL_DATA, 1 ); LINK( council, first_council, last_council, next, prev ); council->name = STRALLOC( argument ); council->head = STRALLOC( "" ); council->head2 = NULL; council->powers = STRALLOC( "" ); } void do_claninfo( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; char buf[MAX_STRING_LENGTH]; if (IS_NPC(ch)) return; if (argument[0] == '\0') { pager_printf(ch, "Syntax: claninfo (clan short name)\n\r" ); return; } clan = get_clan(argument); if (!clan) { pager_printf(ch, "No such clan.\n\r" ); return; } switch (clan->alignment) { default: sprintf(buf, "&WNeutral"); break; case CLANALIGN_GOOD: sprintf(buf, " &CGood"); break; case CLANALIGN_EVIL: sprintf(buf, " &REvil"); break; } pager_printf(ch, "&cClan Name : &W[ &R%s &W]\n\r", clan->name); pager_printf(ch, "&cShort Name: &W[ &R%s &W]\n\r", clan->short_name); pager_printf(ch, "&g-----------------------------------------------------------------\n\r"); pager_printf(ch, "&cAdmin : &W[ &R%-29s &W] &cMembers : &W[ &R%7d &W]\n\r", clan->deity, clan->members); pager_printf(ch, "&cOwner : &W[ &R%-29s &W]\n\r", clan->owner ); pager_printf(ch, "&cLeaders: &W[ &R%-12s &W] [ &R%-12s &W] &cTax Rate: &W[ &R%6d%% &W]\n\r", clan->leader1, clan->leader4, clan->tax); pager_printf(ch, " &W[ &R%-12s &W] [ &R%-12s &W] &cAlign : &W[ %7s &W]\n\r", clan->leader2, clan->leader5, buf); /*pager_printf(ch, " &W[ &R%-12s &W] [ &R%-12s &W] &cClan PL : &W[ &R%7s &W]\n\r", clan->leader3, clan->leader6, abbNumLD(clan->clanPL));*/ pager_printf(ch, " &W[ &R%-12s &W] [ &R%-12s &W]\n\r", clan->leader3, clan->leader6 ); pager_printf(ch, "&g-----------------------------------------------------------------\n\r"); pager_printf(ch, "&c Male Rankings Female Rankings\n\r"); if (IS_IMMORTAL(ch) || ch->pcdata->clan == clan) { pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank1Count, clan->mRank1, clan->fRank1Count, clan->fRank1); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank2Count, clan->mRank2, clan->fRank2Count, clan->fRank2); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank3Count, clan->mRank3, clan->fRank3Count, clan->fRank3); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank4Count, clan->mRank4, clan->fRank4Count, clan->fRank4); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank5Count, clan->mRank5, clan->fRank5Count, clan->fRank5); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank6Count, clan->mRank6, clan->fRank6Count, clan->fRank6); pager_printf(ch, "&c(%3d&c)&W[ &R%-20s &W] &c(%3d&c)&W[ &R%-20s &W]\n\r", clan->mRank7Count, clan->mRank7, clan->fRank7Count, clan->fRank7); } else { pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank1, clan->fRank1); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank2, clan->fRank2); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank3, clan->fRank3); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank4, clan->fRank4); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank5, clan->fRank5); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank6, clan->fRank6); pager_printf(ch, " &W[ &R%-20s &W] [ &R%-20s &W]\n\r", clan->mRank7, clan->fRank7); } pager_printf(ch, "&g-----------------------------------------------------------------\n\r"); pager_printf(ch, "&cClan Recall? : &W[%s&W] &cClan Donate Room? : &W[%s&W]\n\r", clan->recall ? "&RY" : "&rN", clan->clanDonate ? "&RY" : "&rN"); pager_printf(ch, "&cClan Death Recall? : &W[%s&W] &cClan Jail? : &W[%s&W]\n\r", clan->deathRecall ? "&RY" : "&rN", clan->clanJail ? "&RY" : "&rN"); pager_printf(ch, "&cClan Morgue? : &W[%s&W] &cClan Skill? : &W[&rNone&W]\n\r", clan->clanMorgue ? "&RY" : "&rN"); if (IS_IMMORTAL(ch) || ch->pcdata->clan == clan) pager_printf(ch, "&cClan Bank Account : &W[ &R%s &W] &czeni\n\r", num_punct_ld(clan->bank)); pager_printf(ch, "&g-----------------------------------------------------------------\n\r"); send_to_pager_color ( "&wVictories (&zsorted by power level&w):&w\n\r", ch ); send_to_pager_color ( "&w Player Kills Sparing&w\n\r", ch ); pager_printf_color( ch, " &w5k-10k... &r[&R%4d&r] &w5k-10k... &r[&R%4d&r]\n\r &w10k-100k...&r[&R%4d&r] &w10k-100k...&r[&R%4d&r]\n\r &w100k-1m... &r[&R%4d&r] &w100k-1m... &r[&R%4d&r]\n\r &w1m-10m... &r[&R%4d&r] &w1m-10m... &r[&R%4d&r]\n\r", clan->pkills[0], clan->spar_wins[0], clan->pkills[1], clan->spar_wins[1], clan->pkills[2], clan->spar_wins[2], clan->pkills[3], clan->spar_wins[3] ); pager_printf_color( ch, " &w10m-100m...&r[&R%4d&r] &w10m-100m...&r[&R%4d&r]\n\r &w100m-1b... &r[&R%4d&r] &w100m-1b... &r[&R%4d&r]\n\r &w+1b... &r[&R%4d&r] &w+1b... &r[&R%4d&r]\n\r", clan->pkills[4], clan->spar_wins[4], clan->pkills[5], clan->spar_wins[5], clan->pkills[6], clan->spar_wins[6] ); send_to_pager_color("&w --------------------------------------\n\r", ch); pager_printf_color( ch, "&C &WTOTAL... &r[&R%4d&r]&C &WTOTAL... &r[&R%4d&r]&w\n\r", (clan->pkills[0]+clan->pkills[1]+clan->pkills[2]+clan->pkills[3]+clan->pkills[4]+clan->pkills[5]+clan->pkills[6]), (clan->spar_wins[0]+clan->spar_wins[1]+clan->spar_wins[2]+clan->spar_wins[3]+clan->spar_wins[4]+clan->spar_wins[5]+clan->spar_wins[6]) ); pager_printf(ch, "&g------------------------------------------------------------------------\n\r"); pager_printf(ch, "&cWeb Page : &W[ &w%s &W]\n\r", clan->clanWebSite); pager_printf(ch, "&cMotto : &W\"&w%s&W\"\n\r", clan->motto); pager_printf(ch, "&cDescription : \n\r &w%s\n\r", clan->description); pager_printf(ch, "&g------------------------------------------------------------------------&w\n\r"); show_alliances(ch, clan); return; } void do_clans( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; int count = 0; pager_printf(ch, "\n\r&RClan name Short Members Active\n\r", ch ); /*pager_printf(ch,"&r------------------------------------------- ----------- ------- ------ ------\n\r", ch );*/ pager_printf(ch,"&r------------------------------------------- ----------- ------- ------\n\r", ch ); for ( clan = first_clan; clan; clan = clan->next ) { pager_printf(ch, "&c%-43s &w%-11s &g%7d &c%6d\n\r", clan->name, clan->short_name, clan->members, clan->activeMem/*, abbNumLD(clan->clanPL)*/); count++; } if ( !count ) send_to_pager_color ( "&wThere are no Clans currently formed.\n\r", ch ); else { send_to_pager_color ( "&r------------------------------------------------------------------------------&c\n\r",ch); pager_printf(ch, "For more information on each clan, use : 'Claninfo (short name)'\n\r"); pager_printf(ch, "Default inactive days is 30. Use 'Clans <days>' change. [NOT FUNCTIONAL]\n\r"); pager_printf(ch, "For clan membership listings, see 'Help Roster' [NOT FUNCTIONAL]\n\r"); } return; /* clan = get_clan( argument ); if ( !clan || clan->clan_type == CLAN_GUILD || clan->clan_type == CLAN_ORDER ) { set_char_color( AT_BLOOD, ch ); send_to_pager_color( "No such clan.\n\r", ch ); return; } pager_printf_color( ch, "&r\n\r%s, '&R%s&r'\n\r\n\r", clan->name, clan->motto ); send_to_pager_color ( "&wVictories (&zsorted by power level&w):&w\n\r", ch ); send_to_pager_color ( "&w Player Kills Sparing&w\n\r", ch ); pager_printf_color( ch, " &w5k-10k... &r[&R%4d&r] &w5k-10k... &r[&R%4d&r]\n\r &w10k-100k...&r[&R%4d&r] &w10k-100k...&r[&R%4d&r]\n\r &w100k-1m... &r[&R%4d&r] &w100k-1m... &r[&R%4d&r]\n\r &w1m-10m... &r[&R%4d&r] &w1m-10m... &r[&R%4d&r]\n\r", clan->pkills[0], clan->spar_wins[0], clan->pkills[1], clan->spar_wins[1], clan->pkills[2], clan->spar_wins[2], clan->pkills[3], clan->spar_wins[3] ); pager_printf_color( ch, " &w10m-100m...&r[&R%4d&r] &w10m-100m...&r[&R%4d&r]\n\r &w100m-1b... &r[&R%4d&r] &w100m-1b... &r[&R%4d&r]\n\r &w+1b... &r[&R%4d&r] &w+1b... &r[&R%4d&r]\n\r", clan->pkills[4], clan->spar_wins[4], clan->pkills[5], clan->spar_wins[5], clan->pkills[6], clan->spar_wins[6] ); send_to_pager_color("&w --------------------------------------\n\r", ch); pager_printf_color( ch, "&C &WTOTAL... &r[&R%4d&r]&C &WTOTAL... &r[&R%4d&r]\n\r", (clan->pkills[0]+clan->pkills[1]+clan->pkills[2]+clan->pkills[3]+clan->pkills[4]+clan->pkills[5]+clan->pkills[6]), (clan->spar_wins[0]+clan->spar_wins[1]+clan->spar_wins[2]+clan->spar_wins[3]+clan->spar_wins[4]+clan->spar_wins[5]+clan->spar_wins[6]) ); pager_printf_color( ch, "&wClan Leader: &W%s\n\r&wNumber One : &W%s\n\r&wNumber Two : &W%s\n\r&wClan Admin : &W%s\n\r", clan->leader1, clan->leader2, clan->leader3, clan->deity ); if ( !str_cmp( ch->name, clan->deity ) || !str_cmp( ch->name, clan->leader1 ) || !str_cmp( ch->name, clan->leader2 ) || !str_cmp( ch->name, clan->leader3 ) ) pager_printf_color( ch, "&wMembers : &W%d\n\r", clan->members ); set_char_color( AT_BLOOD, ch ); pager_printf_color( ch, "\n\rDescription:&R %s&D\n\r", clan->description ); return; */ } void do_orders( CHAR_DATA *ch, char *argument ) { CLAN_DATA *order; int count = 0; if ( argument[0] == '\0' ) { set_char_color( AT_DGREEN, ch ); send_to_char( "\n\rOrder Deity Leader Mkills Mdeaths\n\r____________________________________________________________________\n\r\n\r", ch ); set_char_color( AT_GREEN, ch ); for ( order = first_clan; order; order = order->next ) if ( order->clan_type == CLAN_ORDER ) { ch_printf( ch, "%-16s %-14s %-14s %-7d %5d\n\r", order->name, order->deity, order->leader1, order->mkills, order->mdeaths ); count++; } set_char_color( AT_DGREEN, ch ); if ( !count ) send_to_char( "There are no Orders currently formed.\n\r", ch ); else send_to_char( "____________________________________________________________________\n\r\n\rUse 'orders <order>' for more detailed information.\n\r", ch ); return; } order = get_clan( argument ); if ( !order || order->clan_type != CLAN_ORDER ) { set_char_color( AT_DGREEN, ch ); send_to_char( "No such Order.\n\r", ch ); return; } set_char_color( AT_DGREEN, ch ); ch_printf( ch, "\n\rOrder of %s\n\r'%s'\n\r\n\r", order->name, order->motto ); set_char_color( AT_GREEN, ch ); ch_printf( ch, "Deity : %s\n\rLeader : %s\n\rNumber One : %s\n\rNumber Two : %s\n\r", order->deity, order->leader1, order->leader2, order->leader3 ); if ( !str_cmp( ch->name, order->deity ) || !str_cmp( ch->name, order->leader1 ) || !str_cmp( ch->name, order->leader2 ) || !str_cmp( ch->name, order->leader3 ) ) ch_printf( ch, "Members : %d\n\r", order->members ); set_char_color( AT_DGREEN, ch ); ch_printf( ch, "\n\rDescription:\n\r%s\n\r", order->description ); return; } void do_councils( CHAR_DATA *ch, char *argument) { COUNCIL_DATA *council; set_char_color( AT_CYAN, ch ); if ( !first_council ) { send_to_char( "There are no councils currently formed.\n\r", ch ); return; } if ( argument[0] == '\0' ) { send_to_char_color ("\n\r&cTitle Head\n\r", ch); for (council = first_council; council; council = council->next) { if ( council->head2 != NULL ) ch_printf_color (ch, "&w%-24s %s and %s\n\r", council->name, council->head, council->head2 ); else ch_printf_color (ch, "&w%-24s %-14s\n\r", council->name, council->head); } send_to_char_color( "&cUse 'councils <name of council>' for more detailed information.\n\r", ch ); return; } council = get_council( argument ); if ( !council ) { send_to_char_color( "&cNo such council exists...\n\r", ch ); return; } ch_printf_color( ch, "&c\n\r%s\n\r", council->name ); if ( council->head2 == NULL ) ch_printf_color (ch, "&cHead: &w%s\n\r&cMembers: &w%d\n\r", council->head, council->members ); else ch_printf_color (ch, "&cCo-Heads: &w%s &cand &w%s\n\r&cMembers: &w%d\n\r", council->head, council->head2, council->members ); ch_printf_color( ch, "&cDescription:\n\r&w%s\n\r", council->description ); return; } void do_guilds( CHAR_DATA *ch, char *argument) { char buf[MAX_STRING_LENGTH]; CLAN_DATA *guild; int count = 0; if ( argument[0] == '\0' ) { set_char_color( AT_HUNGRY, ch ); send_to_char( "\n\rGuild Leader Mkills Mdeaths\n\r_____________________________________________________________\n\r\n\r", ch ); set_char_color( AT_YELLOW, ch ); for ( guild = first_clan; guild; guild = guild->next ) if ( guild->clan_type == CLAN_GUILD ) { ++count; ch_printf( ch, "%-20s %-14s %-6d %6d\n\r", guild->name, guild->leader1, guild->mkills, guild->mdeaths ); } set_char_color( AT_HUNGRY, ch ); if ( !count ) send_to_char( "There are no Guilds currently formed.\n\r", ch ); else send_to_char( "_____________________________________________________________\n\r\n\rUse guilds <class>' for specifics. (ex: guilds thieves)\n\r", ch ); return; } sprintf( buf, "guild of %s", argument ); guild = get_clan( buf ); if ( !guild || guild->clan_type != CLAN_GUILD ) { set_char_color( AT_HUNGRY, ch ); send_to_char( "No such Guild.\n\r", ch ); return; } set_char_color( AT_HUNGRY, ch ); ch_printf( ch, "\n\r%s\n\r", guild->name ); set_char_color( AT_YELLOW, ch ); ch_printf( ch, "Leader: %s\n\rNumber 1: %s\n\rNumber 2: %s\n\rMotto: %s\n\r", guild->leader1, guild->leader2, guild->leader3, guild->motto ); if ( !str_cmp( ch->name, guild->deity ) || !str_cmp( ch->name, guild->leader1 ) || !str_cmp( ch->name, guild->leader2 ) || !str_cmp( ch->name, guild->leader3 ) ) ch_printf( ch, "Members: %d\n\r", guild->members ); set_char_color( AT_HUNGRY, ch ); ch_printf( ch, "Guild Description:\n\r%s\n\r", guild->description ); return; } void do_victories( CHAR_DATA *ch, char *argument ) { char filename[256]; if ( IS_NPC( ch ) || !ch->pcdata->clan ) { send_to_char( "Huh?\n\r", ch ); return; } if ( ch->pcdata->clan->clan_type != CLAN_ORDER && ch->pcdata->clan->clan_type != CLAN_GUILD ) { sprintf( filename, "%s%s.record", CLAN_DIR, ch->pcdata->clan->short_name ); set_pager_color( AT_PURPLE, ch ); if ( !str_cmp( ch->name, ch->pcdata->clan->leader1 ) && !str_cmp( argument, "clean" ) ) { FILE *fp = fopen( filename, "w" ); if ( fp ) fclose( fp ); send_to_pager( "\n\rVictories ledger has been cleared.\n\r", ch ); return; } else { send_to_pager( "\n\rLVL Character LVL Character\n\r", ch ); show_file( ch, filename ); return; } } else { send_to_char( "Huh?\n\r", ch ); return; } } void do_shove( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int exit_dir; EXIT_DATA *pexit; CHAR_DATA *victim; bool nogo; ROOM_INDEX_DATA *to_room; int chance = 0; argument = one_argument( argument, arg ); argument = one_argument( argument, arg2 ); if ( IS_NPC(ch) || !IS_SET( ch->pcdata->flags, PCFLAG_DEADLY ) ) { send_to_char("Only deadly characters can shove.\n\r", ch); return; } if ( get_timer(ch, TIMER_PKILLED) > 0) { send_to_char("You can't shove a player right now.\n\r", ch); return; } if ( arg[0] == '\0' ) { send_to_char( "Shove whom?\n\r", ch); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch); return; } if (victim == ch) { send_to_char("You shove yourself around, to no avail.\n\r", ch); return; } if ( IS_NPC(victim) || !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY ) ) { send_to_char("You can only shove deadly characters.\n\r", ch); return; } if ( ch->level - victim->level > 5 || victim->level - ch->level > 5 ) { send_to_char("There is too great an experience difference for you to even bother.\n\r", ch); return; } if ( get_timer(victim, TIMER_PKILLED) > 0) { send_to_char("You can't shove that player right now.\n\r", ch); return; } if ( (victim->position) != POS_STANDING ) { act( AT_PLAIN, "$N isn't standing up.", ch, NULL, victim, TO_CHAR ); return; } if ( arg2[0] == '\0' ) { send_to_char( "Shove them in which direction?\n\r", ch); return; } exit_dir = get_dir( arg2 ); if ( xIS_SET(victim->in_room->room_flags, ROOM_SAFE)) { send_to_char("That character cannot be shoved right now.\n\r", ch); return; } victim->position = POS_SHOVE; nogo = FALSE; if ((pexit = get_exit(ch->in_room, exit_dir)) == NULL ) nogo = TRUE; else if ( IS_SET(pexit->exit_info, EX_CLOSED) && (!IS_AFFECTED(victim, AFF_PASS_DOOR) || IS_SET(pexit->exit_info, EX_NOPASSDOOR)) ) nogo = TRUE; if ( nogo ) { send_to_char( "There's no exit in that direction.\n\r", ch ); victim->position = POS_STANDING; return; } to_room = pexit->to_room; if (xIS_SET(to_room->room_flags, ROOM_DEATH)) { send_to_char("You cannot shove someone into a death trap.\n\r", ch); victim->position = POS_STANDING; return; } if (ch->in_room->area != to_room->area && !in_hard_range( victim, to_room->area ) ) { send_to_char("That character cannot enter that area.\n\r", ch); victim->position = POS_STANDING; return; } /* Check for class, assign percentage based on that. */ /* Add 3 points to chance for every str point above 15, subtract for below 15 */ chance += (get_curr_str(ch) - 10); chance += (get_attmod(ch, victim)); /* Debugging purposes - show percentage for testing */ /* sprintf(buf, "Shove percentage of %s = %d", ch->name, chance); act( AT_ACTION, buf, ch, NULL, NULL, TO_ROOM ); */ if (chance < number_percent( )) { send_to_char("You failed.\n\r", ch); victim->position = POS_STANDING; return; } act( AT_ACTION, "You shove $M.", ch, NULL, victim, TO_CHAR ); act( AT_ACTION, "$n shoves you.", ch, NULL, victim, TO_VICT ); move_char( victim, get_exit(ch->in_room,exit_dir), 0); if ( !char_died(victim) ) victim->position = POS_STANDING; WAIT_STATE(ch, 12); /* Remove protection from shove/drag if char shoves -- Blodkai */ if ( xIS_SET(ch->in_room->room_flags, ROOM_SAFE) && get_timer(ch, TIMER_SHOVEDRAG) <= 0 ) add_timer( ch, TIMER_SHOVEDRAG, 10, NULL, 0 ); } void do_drag( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int exit_dir; CHAR_DATA *victim; EXIT_DATA *pexit; ROOM_INDEX_DATA *to_room; bool nogo; int chance = 0; argument = one_argument( argument, arg ); argument = one_argument( argument, arg2 ); if ( IS_NPC(ch) ) /* || !IS_SET( ch->pcdata->flags, PCFLAG_DEADLY ) ) */ { send_to_char("Only characters can drag.\n\r", ch); return; } if ( get_timer(ch, TIMER_PKILLED) > 0) { send_to_char("You can't drag a player right now.\n\r", ch); return; } if ( arg[0] == '\0' ) { send_to_char( "Drag whom?\n\r", ch); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch); return; } if ( victim == ch ) { send_to_char("You take yourself by the scruff of your neck, but go nowhere.\n\r", ch); return; } if ( IS_NPC(victim) ) /* || !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY ) ) */ { send_to_char("You can only drag characters.\n\r", ch); return; } if ( !xIS_SET( victim->act, PLR_SHOVEDRAG) && !IS_SET( victim->pcdata->flags, PCFLAG_DEADLY) ) { send_to_char("That character doesn't seem to appreciate your attentions.\n\r", ch); return; } if ( get_timer(victim, TIMER_PKILLED) > 0) { send_to_char("You can't drag that player right now.\n\r", ch); return; } if ( victim->fighting ) { send_to_char( "You try, but can't get close enough.\n\r", ch); return; } if( !IS_SET(ch->pcdata->flags, PCFLAG_DEADLY ) && IS_SET( victim->pcdata->flags, PCFLAG_DEADLY ) ){ send_to_char("You cannot drag a deadly character.\n\r", ch); return; } if ( !IS_SET(victim->pcdata->flags, PCFLAG_DEADLY) && victim->position > 3 ) { send_to_char("They don't seem to need your assistance.\n\r", ch ); return; } if ( arg2[0] == '\0' ) { send_to_char( "Drag them in which direction?\n\r", ch); return; } exit_dir = get_dir( arg2 ); if ( xIS_SET(victim->in_room->room_flags, ROOM_SAFE)) { send_to_char("That character cannot be dragged right now.\n\r", ch); return; } nogo = FALSE; if ((pexit = get_exit(ch->in_room, exit_dir)) == NULL ) nogo = TRUE; else if ( IS_SET(pexit->exit_info, EX_CLOSED) && (!IS_AFFECTED(victim, AFF_PASS_DOOR) || IS_SET(pexit->exit_info, EX_NOPASSDOOR)) ) nogo = TRUE; if ( nogo ) { send_to_char( "There's no exit in that direction.\n\r", ch ); return; } to_room = pexit->to_room; if (xIS_SET(to_room->room_flags, ROOM_DEATH)) { send_to_char("You cannot drag someone into a death trap.\n\r", ch); return; } if (ch->in_room->area != to_room->area && !in_hard_range( victim, to_room->area ) ) { send_to_char("That character cannot enter that area.\n\r", ch); victim->position = POS_STANDING; return; } /* Check for class, assign percentage based on that. */ /* Add 3 points to chance for every str point above 15, subtract for below 15 */ chance += (get_curr_str(ch) - 10); chance += (get_attmod(ch, victim)); /* sprintf(buf, "Drag percentage of %s = %d", ch->name, chance); act( AT_ACTION, buf, ch, NULL, NULL, TO_ROOM ); */ if (chance < number_percent( )) { send_to_char("You failed.\n\r", ch); victim->position = POS_STANDING; return; } if ( victim->position < POS_STANDING ) { sh_int temp; temp = victim->position; victim->position = POS_DRAG; act( AT_ACTION, "You drag $M into the next room.", ch, NULL, victim, TO_CHAR ); act( AT_ACTION, "$n grabs your hair and drags you.", ch, NULL, victim, TO_VICT ); move_char( victim, get_exit(ch->in_room,exit_dir), 0); if ( !char_died(victim) ) victim->position = temp; /* Move ch to the room too.. they are doing dragging - Scryn */ move_char( ch, get_exit(ch->in_room,exit_dir), 0); WAIT_STATE(ch, 12); return; } send_to_char("You cannot do that to someone who is standing.\n\r", ch); return; } void do_promote( CHAR_DATA *ch, char *argument ) { /* CHAR_DATA *victim; CLAN_DATA *clan; char arg[MAX_INPUT_LENGTH]; if ( IS_NPC( ch ) || !ch->pcdata->clan ) { send_to_char( "Huh?\n\r", ch ); return; } clan = ch->pcdata->clan; if (!str_cmp( ch->name, clan->deity ) || !str_cmp( ch->name, clan->leader )) ; else { send_to_char( "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( arg[0] == '\0' ) { send_to_char( "Syntax: promote <name> <leader/number1/number2>\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "That player is not here.\n\r", ch); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if (!victim->pcdata->clan) { send_to_char( "They must already be in your clan.\n\r", ch ); return; } clan = ch->pcdata->clan; if (victim->pcdata->clan != clan) { send_to_char( "They must already be in your clan.\n\r", ch ); return; } if (!str_cmp( argument, "leader" )) { STRFREE( clan->leader ); clan->leader = STRALLOC( victim->name ); pager_printf_color( ch, "&w%s has been promoted to leader.\n\r", victim->name ); pager_printf_color( victim, "&wYou have been promoted to leader.\n\r", victim->name ); return; } if (!str_cmp( argument, "number1" )) { STRFREE( clan->number1 ); clan->number1 = STRALLOC( victim->name ); pager_printf_color( ch, "&w%s has been promoted to first officer.\n\r", victim->name ); pager_printf_color( victim, "&wYou have been promoted to first officer.\n\r", victim->name ); return; } if (!str_cmp( argument, "number2" )) { STRFREE( clan->number2 ); clan->number2 = STRALLOC( victim->name ); pager_printf_color( ch, "&w%s has been promoted to second officer.\n\r", victim->name ); pager_printf_color( victim, "&wYou have been promoted to second officer.\n\r", victim->name ); return; } send_to_char( "You that isn't a rank.\n\r", ch ); */ return; } void show_members( CHAR_DATA *ch, char *argument, char *format ) { MEMBER_LIST *members_list; MEMBER_DATA *member; CLAN_DATA *clan; for( members_list = first_member_list; members_list; members_list = members_list->next ) { if( !str_cmp( members_list->name, argument ) ) break; } if( !members_list ) return; clan = get_clan( argument ); if ( !clan ) return; pager_printf( ch, "\n\r&cMembers of &W%s\n\r", clan->name ); pager_printf( ch,"&z------------------------------------------------------------&c\n\r" ); pager_printf( ch, "Admin: &w%s\n\r", clan->deity ); pager_printf( ch, "Leaders:&w\n\r"); pager_printf( ch, " %-12s %-12s\n\r", clan->leader1, clan->leader2 ); pager_printf( ch, " %-12s %-12s\n\r", clan->leader3, clan->leader4 ); pager_printf( ch, " %-12s %-12s\n\r", clan->leader5, clan->leader6 ); pager_printf( ch,"&z------------------------------------------------------------&c\n\r" ); pager_printf( ch, "&cName Race Kills Deaths Since\n\r\n\r" ); if( format) { if( !str_cmp( format, "kills" ) || !str_cmp( format, "deaths" ) || !str_cmp( format, "alpha" )) { MS_DATA *insert = NULL; MS_DATA *sort; MS_DATA *first_member = NULL; MS_DATA *last_member = NULL; CREATE( sort, MS_DATA, 1 ); sort->member = members_list->first_member; LINK( sort, first_member, last_member, next, prev ); for( member = members_list->first_member->next; member; member = member->next ) { insert = NULL; for( sort = first_member; sort; sort = sort->next ) { if( !str_cmp( format, "kills" )) { if( member->kills > sort->member->kills ) { CREATE( insert, MS_DATA, 1 ); insert->member = member; INSERT( insert, sort, first_member, next, prev ); break; } } else if( !str_cmp( format, "deaths" )) { if( member->deaths > sort->member->deaths ) { CREATE( insert, MS_DATA, 1 ); insert->member = member; INSERT( insert, sort, first_member, next, prev ); break; } } else if( !str_cmp( format, "alpha" )) { if( strcmp( member->name, sort->member->name ) < 0 ) { CREATE( insert, MS_DATA, 1 ); insert->member = member; INSERT( insert, sort, first_member, next, prev ); break; } } } if( insert == NULL ) { CREATE( insert, MS_DATA, 1 ); insert->member = member; LINK( insert, first_member, last_member, next, prev ); } } for( sort = first_member; sort; sort = sort->next ) if( !is_leader(ch)) pager_printf( ch, "&w%-12s %13s %6d %8d %10s\n\r", capitalize(sort->member->name ), class_table[sort->member->race]->who_name, sort->member->kills, sort->member->deaths, sort->member->since ); } for( member = members_list->first_member; member; member = member->next ) if( !str_prefix( format, member->name ) ) pager_printf( ch, "&w%-12s %13s %6d %8d %10s\n\r", capitalize(member->name ), class_table[member->race]->who_name, member->kills, member->deaths, member->since ); } else { for( member = members_list->first_member; member; member = member->next ) if( !is_leader(ch)) pager_printf( ch, "&w%-12s %13s %6d %7d %10s\n\r", capitalize(member->name), class_table[member->race]->who_name, member->kills, member->deaths, member->since ); } pager_printf( ch,"&z------------------------------------------------------------&c\n\r" ); } void remove_member( CHAR_DATA *ch ) { MEMBER_LIST *members_list; MEMBER_DATA *member; if( !ch->pcdata ) return; for( members_list = first_member_list; members_list; members_list = members_list->next ) { if( !str_cmp( members_list->name, ch->pcdata->clan_name ) ) break; } if( !members_list ) { /*bug("Remove_member: No members list",0);*/ return; } for( member = members_list->first_member; member; member = member->next ) { if( !str_cmp( member->name, ch->name ) ) { UNLINK( member, members_list->first_member, members_list->last_member, next, prev ); STRFREE( member->name ); STRFREE( member->since ); DISPOSE( member ); save_member_list( members_list ); /* if (ch->pcdata) { ch->pcdata->clan->members--; save_clan( ch->pcdata->clan ); } */ break; } } } void do_roster( CHAR_DATA *ch, char *argument ) { if( IS_NPC( ch ) || !ch->pcdata->clan || ( !is_leader(ch) /*|| !is_deity(ch)*/) ) { send_to_char( "Huh?\n\r", ch ); return; } show_members( ch, ch->pcdata->clan->name, argument ); return; } void do_members( CHAR_DATA *ch, char *argument ) { char arg1[MAX_STRING_LENGTH]; argument = one_argument( argument, arg1 ); if( argument[0] == '\0' || arg1[0] == '\0' ) { send_to_char( "Do what?\n\r", ch ); return; } if( !str_cmp( arg1, "show" ) ) { if( !str_cmp( argument, "all" ) ) { MEMBER_LIST *members_list; for( members_list = first_member_list; members_list; members_list = members_list->next ) show_members( ch, members_list->name, NULL ); return; } show_members( ch, argument, NULL ); return; } if( !str_cmp( arg1, "create" ) ) { MEMBER_LIST *members_list; CREATE( members_list, MEMBER_LIST, 1 ); members_list->name = STRALLOC( argument ); LINK( members_list, first_member_list, last_member_list, next, prev ); save_member_list( members_list ); ch_printf( ch, "Member lists \"%s\" created.\n\r", argument ); return; } if( !str_cmp( arg1, "delete" ) ) { MEMBER_LIST *members_list; MEMBER_DATA *member; for( members_list = first_member_list; members_list; members_list = members_list->next ) if( !str_cmp( argument, members_list->name ) ) { while( members_list->first_member ) { member = members_list->first_member; STRFREE( member->name ); STRFREE( member->since ); UNLINK( member, members_list->first_member, members_list->last_member, next, prev ); DISPOSE( member ); } STRFREE( members_list->name ); UNLINK( members_list, first_member_list, last_member_list, next, prev ); DISPOSE( members_list ); ch_printf( ch, "Member list \"%s\" destroyed.\n\r", argument ); return; } send_to_char( "No such list.\n\r", ch ); return; } } void save_member_list( MEMBER_LIST *members_list ) { MEMBER_DATA *member; FILE *fp; CLAN_DATA *clan; char buf[MAX_STRING_LENGTH]; if( !members_list ) { bug( "save_member_list: NULL members_list" ); return; } if( ( clan = get_clan( members_list->name )) == NULL ) { bug( "save_member_list: no such clan: %s", members_list->name ); return; } sprintf( buf, "%s%s.mem", CLAN_DIR, clan->filename ); if( ( fp = fopen( buf, "w" ) ) == NULL ) { bug( "Cannot open clan.mem file for writing", 0 ); perror( buf ); return; } fprintf( fp, "Name %s~\n", members_list->name ); for( member = members_list->first_member; member; member = member->next ) fprintf( fp, "Member %s %s %d %d %d %d\n", member->name, member->since, member->kills, member->deaths, member->level, member->race ); fprintf( fp, "End\n\n" ); fclose( fp ); } bool load_member_list( char *filename ) { FILE *fp; char buf[MAX_STRING_LENGTH]; MEMBER_LIST *members_list; MEMBER_DATA *member; sprintf( buf, "%s%s.mem", CLAN_DIR, filename ); if( ( fp = fopen( buf, "r" ) ) == NULL ) { bug( "Cannot open member list for reading", 0 ); return FALSE; } CREATE( members_list, MEMBER_LIST, 1 ); for( ; ; ) { char *word; word = fread_word( fp ); if( !str_cmp( word, "Name" ) ) { members_list->name = fread_string( fp ); continue; } else if( !str_cmp( word, "Member" ) ) { CREATE( member, MEMBER_DATA, 1 ); member->name = STRALLOC( fread_word( fp ) ); member->since = STRALLOC( fread_word( fp ) ); member->kills = fread_number( fp ); member->deaths = fread_number( fp ); member->level = fread_number( fp ); member->race = fread_number( fp ); LINK( member, members_list->first_member, members_list->last_member, next, prev ); continue; } else if( !str_cmp( word, "End" ) ) { LINK( members_list, first_member_list, last_member_list, next, prev ); fclose( fp ); return TRUE; } else { bug( "load_members_list: bad section", 0 ); fclose( fp ); return FALSE; } } } void update_member( CHAR_DATA *ch ) { MEMBER_LIST *members_list; MEMBER_DATA *member; if( IS_NPC( ch ) || !ch->pcdata->clan ) return; for( members_list = first_member_list; members_list; members_list = members_list->next ) if( !str_cmp( members_list->name, ch->pcdata->clan_name ) ) { for( member = members_list->first_member; member; member = member->next ) if ( !str_cmp( member->name, ch->name ) ) { if( ch->pcdata->clan->clan_type == CLAN_PLAIN ) { member->kills = ch->pcdata->pkills; member->deaths = ch->pcdata->pdeaths; } else { member->kills = ch->pcdata->mkills; member->deaths = ch->pcdata->mdeaths; } member->level = ch->level; return; } if( member == NULL ) { struct tm *t = localtime(¤t_time); char buf[MAX_STRING_LENGTH]; CREATE( member, MEMBER_DATA, 1 ); member->name = STRALLOC( ch->name ); member->level = ch->level; member->race = ch->race; sprintf( buf, "[%02d|%02d|%04d]", t->tm_mon+1, t->tm_mday, t->tm_year+1900 ); member->since = STRALLOC( buf ); if( ch->pcdata->clan->clan_type == CLAN_PLAIN ) { member->kills = ch->pcdata->pkills; member->deaths = ch->pcdata->pdeaths; } else { member->kills = ch->pcdata->mkills; member->deaths = ch->pcdata->mdeaths; } LINK( member, members_list->first_member, members_list->last_member, next, prev ); save_member_list( members_list ); ch->pcdata->clan->members++; save_clan( ch->pcdata->clan ); } } } void do_clandeposit( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; int amount = 0; if (IS_NPC(ch)) { send_to_char( "NPC's can't deposit zeni.\n\r", ch ); return; } if (!ch->pcdata->clan) { send_to_char( "You're not in a clan.\n\r", ch ); return; } if (argument[0] == '\0') { send_to_char( "Deposit how much?\n\r", ch ); return; } if (!is_number(argument)) { send_to_char( "You must donate zeni.\n\r", ch ); return; } amount = atoi(argument); if (amount <= 0) { send_to_char( "You must donate zeni.\n\r", ch ); return; } if( amount > ch->gold ) { send_to_char( "That's more than you have!\n\r", ch ); return; } ch->pcdata->clan->bank += amount; ch->gold -= amount; ch->pcdata->clanZeniDonated += amount; save_clan(ch->pcdata->clan); save_char_obj(ch); pager_printf(ch, "You deposit %s zeni into your clans bank account.\n\r", num_punct(amount)); sprintf(buf, "%s has deposited %s zeni into the clan bank account.\n\r", ch->name, num_punct(amount)); echo_to_clan(ch->pcdata->clan, buf); return; } void do_clanwithdraw( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; int amount = 0; if (IS_NPC(ch)) { send_to_char( "NPC's can't withdraw zeni.\n\r", ch ); return; } if (!ch->pcdata->clan) { send_to_char( "You're not in a clan.\n\r", ch ); return; } if( !is_owner(ch,ch->pcdata->clan) ) { ch_printf(ch,"Only the owner may withdraw funds from the clan bank account.\n\r"); return; } if( IS_IMMORTAL(ch) && ch->level < 63 ) { ch_printf(ch,"Access denied.\n\r"); return; } if (argument[0] == '\0') { send_to_char( "Withdraw how much?\n\r", ch ); return; } if (!is_number(argument)) { send_to_char( "You must withdraw zeni only.\n\r", ch ); return; } amount = atoi(argument); if (amount <= 0) { send_to_char( "You must WITHDRAW zeni.\n\r", ch ); return; } if( amount > ch->pcdata->clan->bank ) { send_to_char( "That's more than the clan has!\n\r", ch ); return; } if( (amount + ch->gold) > 2000000000 ) { send_to_char( "You can't carry that much!\n\r", ch ); return; } ch->pcdata->clan->bank -= amount; ch->gold += amount; save_clan(ch->pcdata->clan); save_char_obj(ch); pager_printf(ch, "You withdraw %s zeni from your clans bank account.\n\r", num_punct(amount)); sprintf(buf, "%s has withdrawn %s zeni from the clan bank account.\n\r", ch->name, num_punct(amount)); echo_to_clan(ch->pcdata->clan, buf); return; } void do_clanadmin( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; CHAR_DATA *victim; CLAN_DATA *clan; CLAN_DATA *vclan; ALLIANCE_DATA *alliance; /*ROOM_INDEX_DATA *location;*/ bool L1 = FALSE; bool L2 = FALSE; bool L3 = FALSE; bool L4 = FALSE; bool L5 = FALSE; bool L6 = FALSE; /*int tax = 0;*/ if (IS_NPC(ch)) { send_to_char( "Huh?\n\r", ch ); return; } if (!ch->pcdata->clan) { send_to_char( "You're not in a clan.\n\r", ch ); return; } if (!is_leader(ch) && !is_deity(ch)) { send_to_char( "Only the leaders of your clan can do this.\n\r", ch ); return; } argument = one_argument( argument, arg ); if (arg[0] == '\0') { ch_printf(ch,"\n\rSyntax: clanadmin (field) (value)\n\r",ch); ch_printf(ch,"\n\rField being one of the following:\n\r\n\r"); ch_printf(ch," www | recruit | outcast | promote | demote | taxrate\n\r"); ch_printf(ch," jail | release | evict | evictrank | status | &Rowner&D\n\r" ); ch_printf(ch," mrank1-7 | frank1-7 | motto | desc \n\r"); ch_printf(ch,"\n\r&RWarning: You can only transfer ownership of the clan to another clan leader,\n\r"); ch_printf(ch,"and if you do, you will not be able to get it back, till whenever the owner\n\rtransfers it back to you.&D\n\r"); return; } clan = ch->pcdata->clan; if(!str_cmp(arg, "recruit")) { do_induct(ch, argument); return; } if(!str_cmp(arg, "owner")) { if(!is_owner(ch,clan) ) { ch_printf(ch,"Only the owner may bestow ownership of this clan to another.\n\r"); return; } if ((victim = get_char_room(ch, argument)) == NULL) { send_to_char( "They are not here.\n\r", ch ); return; } if( is_deity(victim) ) { ch_printf(ch,"You can't make the clan admin the owner too.\n\r"); return; } if( !is_leader(victim) ) { ch_printf(ch,"You can only give ownership to someone who is a leader.\n\r"); return; } STRFREE(clan->owner); clan->owner = STRALLOC( victim->name ); save_clan( clan ); ch_printf(ch,"You have given ownership of the clan to %s.\n\r",victim->name ); ch_printf(victim,"%s has given you ownership of the clan.\n\r",ch->name); return; } if(!str_cmp(arg, "outcast")) { do_outcast(ch, argument); return; } if ( !str_cmp( arg, "mrank1" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank1 ); clan->mRank1 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank2" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank2 ); clan->mRank2 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank3" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank3 ); clan->mRank3 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank4" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank4 ); clan->mRank4 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank5" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank5 ); clan->mRank5 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank6" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank6 ); clan->mRank6 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "mrank7" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->mRank7 ); clan->mRank7 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank1" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank1 ); clan->fRank1 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank2" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank2 ); clan->fRank2 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank3" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank3 ); clan->fRank3 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank4" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank4 ); clan->fRank4 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank5" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank5 ); clan->fRank5 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank6" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank6 ); clan->fRank6 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "fRank7" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change rank names.\n\r"); return; } STRFREE( clan->fRank7 ); clan->fRank7 = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "motto" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change the clan motto.\n\r"); return; } STRFREE( clan->motto ); clan->motto = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if ( !str_cmp( arg, "desc" ) ) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change the clan description.\n\r"); return; } STRFREE( clan->description ); clan->description = STRALLOC( argument ); send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } if(!str_cmp(arg, "evict") || !str_cmp(arg, "evictrank")) { send_to_char( "This feature isn't implemented yet.\n\r", ch ); return; } /* if(!str_cmp(arg, "jail")) { if (!clan->clanJail) { send_to_char( "Your clan hasn't built a jail yet.\n\r", ch ); return; } if ((victim = get_char_room(ch, argument)) == NULL) { send_to_char( "They are not here.\n\r", ch ); return; } if (IS_NPC(ch) || !ch->pcdata->clan || ch->pcdata->clan != clan) { send_to_char( "They are not a member of your clan.\n\r", ch ); return; } if (is_deity(victim) || is_leader(victim)) { send_to_char( "You can't jail that person.\n\r", ch ); return; } location = get_room_index(clan->clanJail); act( AT_RED, "$n is hauled off to jail.", victim, NULL, NULL, TO_ROOM ); char_from_room( victim ); char_to_room( victim, location ); save_char_obj( victim ); act( AT_RED, "$n is tossed into the jail cell.", victim, NULL, NULL, TO_ROOM ); act( AT_RED, "You are hauled off to jail and tossed into the jail cell.", ch, NULL, victim, TO_VICT ); do_look( victim, "auto" ); } */ /* if(!str_cmp(arg, "release")) { if (!clan->clanJail) { send_to_char( "Your clan hasn't built a jail yet.\n\r", ch ); return; } if ((victim = get_char_world(ch, argument)) == NULL) { send_to_char( "Wait until they are online.\n\r", ch ); return; } if (IS_NPC(ch) || !ch->pcdata->clan || ch->pcdata->clan != clan) { send_to_char( "They are not a member of your clan.\n\r", ch ); return; } if (victim->in_room->vnum != clan->clanJail) { send_to_char( "They are not in your jail.\n\r", ch ); return; } act( AT_RED, "$n is released from jail.", victim, NULL, NULL, TO_ROOM ); char_from_room( victim ); char_to_room( victim, ch->in_room ); save_char_obj( victim ); act( AT_RED, "$n is brought in from jail.", victim, NULL, NULL, TO_ROOM ); act( AT_RED, "You've been released from jail.", ch, NULL, victim, TO_VICT ); do_look( victim, "auto" ); } */ if(!str_cmp(arg, "www")) { if( !is_owner(ch,clan) ) { ch_printf(ch,"Only the owner can change the clan website address.\n\r"); return; } STRFREE( clan->clanWebSite ); clan->clanWebSite = STRALLOC( argument ); send_to_char("Done.\n\r", ch); save_clan(clan); return; } /* if (!str_cmp( arg, "taxrate" )) { if (!is_number(argument)) { send_to_char( "Tax rate must be a number between 0 and 25.\n\r", ch ); return; } tax = atoi(argument); if (tax > 25 || tax < 0) { send_to_char( "Tax rate must be a number between 0 and 25.\n\r", ch ); return; } if (clan->bank < 250000) { send_to_char( "It costs 250,000 zeni to change the tax rate.\n\r", ch ); return; } clan->tax = tax; clan->bank -= 250000; send_to_char( "Done.\n\r", ch ); save_clan( clan ); return; } */ if ( !str_cmp( arg, "promote" ) ) { if ((victim = get_char_room(ch, argument)) == NULL) { send_to_char( "They are not here.\n\r", ch ); return; } if( ch == victim ) { ch_printf(ch,"You can't promote yourself.\n\r"); return; } if (IS_NPC(ch) || !ch->pcdata->clan || ch->pcdata->clan != clan) { send_to_char( "They are not a member of your clan.\n\r", ch ); return; } if (is_deity(victim)) { send_to_char( "You can't promote your clans admin.\n\r", ch ); return; } if (victim->pcdata->clanRank <= 2 && !is_leader(victim) && !is_owner(ch,ch->pcdata->clan) && !is_deity(ch) ) { /*send_to_char( "You can't promote someone to a leader without contacting your clan admin.\n\r", ch );*/ ch_printf(ch,"Only the clan admin or owner may promote others to a leader.\n\r"); return; } if( !str_cmp(clan->leader1,"None" )) L1 = TRUE; else L1 = FALSE; if( !str_cmp(clan->leader2,"None" )) L2 = TRUE; else L2 = FALSE; if( !str_cmp(clan->leader3,"None" )) L3 = TRUE; else L3 = FALSE; if( !str_cmp(clan->leader4,"None" )) L4 = TRUE; else L4 = FALSE; if( !str_cmp(clan->leader5,"None" )) L5 = TRUE; else L5 = FALSE; if( !str_cmp(clan->leader6,"None" )) L6 = TRUE; else L6 = FALSE; switch (victim->pcdata->clanRank) { default: send_to_char( "Unknown rank.\n\r", ch ); bug("clanadmin: undknown rank set for %s(%d)", victim->name, victim->pcdata->clanRank); return; case 7: if (victim->sex == SEX_FEMALE) { clan->fRank7Count--; clan->fRank6Count++; } else { clan->mRank7Count--; clan->mRank6Count++; } break; case 6: if (victim->sex == SEX_FEMALE) { clan->fRank6Count--; clan->fRank5Count++; } else { clan->mRank6Count--; clan->mRank5Count++; } break; case 5: if (victim->sex == SEX_FEMALE) { clan->fRank5Count--; clan->fRank4Count++; } else { clan->mRank5Count--; clan->mRank4Count++; } break; case 4: if (victim->sex == SEX_FEMALE) { clan->fRank4Count--; clan->fRank3Count++; } else { clan->mRank4Count--; clan->mRank3Count++; } break; case 3: if (victim->sex == SEX_FEMALE) { clan->fRank3Count--; clan->fRank2Count++; } else { clan->mRank3Count--; clan->mRank2Count++; } break; case 2: if( !L1 && !L2 && !L3 && !L4 && !L5 && !L6 ) { ch_printf(ch,"You can't promote any more leaders now. The leader ranks are full.\n\r"); return; } if( L1 ) clan->leader1 = STRALLOC( victim->name ); else if( L2 ) clan->leader2 = STRALLOC( victim->name ); else if( L3 ) clan->leader3 = STRALLOC( victim->name ); else if( L4 ) clan->leader4 = STRALLOC( victim->name ); else if( L5 ) clan->leader5 = STRALLOC( victim->name ); else if( L6 ) clan->leader6 = STRALLOC( victim->name ); else { ch_printf(ch,"A bug has occured in clanadmin promote. Contact an imm immediately.\n\r"); return; } if( victim->sex == SEX_FEMALE ) { clan->fRank2Count--; clan->fRank1Count++; } else { clan->mRank2Count--; clan->mRank1Count++; } break; } victim->pcdata->clanRank--; send_to_char( "Done.\n\r", ch ); save_clan( clan ); save_char_obj( victim ); sprintf(buf, "%s has been promoted to %s", victim->name, get_clanTitle(victim)); echo_to_clan(clan, buf); return; } if ( !str_cmp( arg, "demote" ) ) { if ((victim = get_char_room(ch, argument)) == NULL) { send_to_char( "They are not here.\n\r", ch ); return; } if( ch == victim ) { ch_printf(ch,"You can't demote yourself.\n\r"); return; } if (IS_NPC(ch) || !ch->pcdata->clan || ch->pcdata->clan != clan) { send_to_char( "They are not a member of your clan.\n\r", ch ); return; } if (is_deity(victim)) { send_to_char( "You can't demote your clans admin.\n\r", ch ); return; } if (victim->pcdata->clanRank <= 1 && !is_owner(ch,ch->pcdata->clan)) { /*send_to_char( "You can't demote a leader without contacting your clan admin.\n\r", ch );*/ ch_printf(ch,"Only the clan admin or owner may demote leaders.\n\r"); return; } switch (victim->pcdata->clanRank) { default: send_to_char( "Unknown rank.\n\r", ch ); bug("clanadmin: undknown rank set for %s(%d)", victim->name, victim->pcdata->clanRank); return; case 6: if (victim->sex == SEX_FEMALE) { clan->fRank7Count++; clan->fRank6Count--; } else { clan->mRank7Count++; clan->mRank6Count--; } break; case 5: if (victim->sex == SEX_FEMALE) { clan->fRank6Count++; clan->fRank5Count--; } else { clan->mRank6Count++; clan->mRank5Count--; } break; case 4: if (victim->sex == SEX_FEMALE) { clan->fRank5Count++; clan->fRank4Count--; } else { clan->mRank5Count++; clan->mRank4Count--; } break; case 3: if (victim->sex == SEX_FEMALE) { clan->fRank4Count++; clan->fRank3Count--; } else { clan->mRank4Count++; clan->mRank3Count--; } break; case 2: if (victim->sex == SEX_FEMALE) { clan->fRank3Count++; clan->fRank2Count--; } else { clan->mRank3Count++; clan->mRank2Count--; } break; case 1: if( !str_cmp(victim->name,clan->leader1) ) { STRFREE(clan->leader1); clan->leader1 = STRALLOC( "None" ); } else if( !str_cmp(victim->name,clan->leader2) ) { STRFREE(clan->leader2); clan->leader2 = STRALLOC( "None" ); } else if( !str_cmp(victim->name,clan->leader3) ) { STRFREE(clan->leader3); clan->leader3 = STRALLOC( "None" ); } else if( !str_cmp(victim->name,clan->leader4) ) { STRFREE(clan->leader4); clan->leader4 = STRALLOC( "None" ); } else if( !str_cmp(victim->name,clan->leader5) ) { STRFREE(clan->leader5); clan->leader5 = STRALLOC( "None" ); } else if( !str_cmp(victim->name,clan->leader6) ) { STRFREE(clan->leader6); clan->leader6 = STRALLOC( "None" ); } else { ch_printf(ch,"A bug has occured in clanadmin demote. Contact an imm immediately.\n\r"); } if (victim->sex == SEX_FEMALE) { clan->fRank2Count++; clan->fRank1Count--; } else { clan->mRank2Count++; clan->mRank1Count--; } break; } victim->pcdata->clanRank++; send_to_char( "Done.\n\r", ch ); save_clan( clan ); save_char_obj( victim ); sprintf(buf, "%s has been demoted to %s", victim->name, get_clanTitle(victim)); echo_to_clan(clan, buf); return; } if(!str_cmp(arg, "status")) { argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if (arg2[0] == '\0' || arg3[0] == '\0') { send_to_char( "\n\rTo change status type 'clanadmin status [clan] [allied|friendly|neutral|hostile|atwar]'.\n\r", ch ); show_alliances(ch, clan); return; } if ((vclan = get_clan(arg2)) == NULL) { send_to_char( "That's not a clan. Type 'clans' for a list.\n\r", ch ); return; } if (clan == vclan) { send_to_char( "Your clan already has a perfect alliance with its self.\n\r", ch ); return; } if(!str_cmp(arg3, "neutral")) { if (allianceStatus(clan,vclan) == ALLIANCE_NEUTRAL) { ch_printf(ch,"Your clan already is neutral with them!\n\r"); return; } alliance = get_alliance(clan, vclan); alliance->votes = 0; if( str_cmp(alliance->leader1Vote,"None") ) { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC( "None" ); } if( str_cmp(alliance->leader2Vote,"None") ) { STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC( "None" ); } if (!change_alliance(clan, vclan, ALLIANCE_NEUTRAL)) { /*send_to_char( "Error changing status. Please notify your clan admin.\n\r", ch );*/ return; } /*else send_to_char( "Status changed.\n\r", ch );*/ } else if(!str_cmp(arg3, "friendly")) { if (allianceStatus(clan,vclan) == ALLIANCE_FRIENDLY) { ch_printf(ch,"Your clan already is friendly with them!\n\r"); return; } alliance = get_alliance(clan, vclan); alliance->votes = 0; if( str_cmp(alliance->leader1Vote,"None") ) { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC( "None" ); } if( str_cmp(alliance->leader2Vote,"None") ) { STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC( "None" ); } if (!change_alliance(clan, vclan, ALLIANCE_FRIENDLY)) { /*send_to_char( "Error changing status. Please notify your clan admin.\n\r", ch );*/ return; } /*else send_to_char( "Status changed.\n\r", ch );*/ } else if(!str_cmp(arg3, "allied")) { if (allianceStatus(clan,vclan) == ALLIANCE_ALLIED) { ch_printf(ch,"Your clan already is allied with them!\n\r"); return; } alliance = get_alliance(clan, vclan); alliance->votes = 0; if( str_cmp(alliance->leader1Vote,"None") ) { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC( "None" ); } if( str_cmp(alliance->leader2Vote,"None") ) { STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC( "None" ); } if (!change_alliance(clan, vclan, ALLIANCE_ALLIED)) { /*send_to_char( "Error changing status. Please notify your clan admin.\n\r", ch );*/ return; } /*else send_to_char( "Status changed.\n\r", ch );*/ /* if (allianceStatus( clan, vclan) == ALLIANCE_ALLIED) { sprintf(buf, "&C%s and %s are now allies.\n\r", clan->name, vclan->name); echo_to_clan(clan, buf); echo_to_clan(vclan, buf); }*/ } else if(!str_cmp(arg3, "hostile")) { if (allianceStatus(clan,vclan) == ALLIANCE_HOSTILE) { ch_printf(ch,"Your clan already is hostile with them!\n\r"); return; } alliance = get_alliance(clan, vclan); alliance->votes = 0; if( str_cmp(alliance->leader1Vote,"None") ) { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC( "None" ); } if( str_cmp(alliance->leader2Vote,"None") ) { STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC( "None" ); } if (!change_alliance(clan, vclan, ALLIANCE_HOSTILE)) { /*send_to_char( "Error changing status. Please notify your clan admin.\n\r", ch );*/ return; } /*else send_to_char( "Status changed.\n\r", ch );*/ } else if(!str_cmp(arg3, "atwar")) { if (allianceStatus(clan,vclan) == ALLIANCE_ATWAR) { ch_printf(ch,"Your clan already is at war with them!\n\r"); return; } alliance = get_alliance(clan, vclan); if (alliance->votes < 2 ) { if( alliance->votes == 1 ) { if (!str_cmp(alliance->leader1Vote,ch->name) ) { ch_printf(ch,"You can't vote twice!\n\r"); return; } STRFREE(alliance->leader2Vote); alliance->leader2Vote = STRALLOC(ch->name); alliance->votes++; sprintf(buf, "%s has voted to go to war with %s!", ch->name, vclan->name ); echo_to_clan(clan, buf); ch_printf(ch,"You have cast the second of two votes neccessary to go to war. You may now change the alliance to AT WAR status.\n\r"); return; } else { STRFREE(alliance->leader1Vote); alliance->leader1Vote = STRALLOC(ch->name); alliance->votes++; sprintf(buf, "%s has voted to go to war with %s!", ch->name, vclan->name ); echo_to_clan(clan, buf); ch_printf(ch,"You have cast the first of two votes neccessary to go to war.\n\r"); return; } } else { if (!change_alliance(clan, vclan, ALLIANCE_ATWAR)) { /*send_to_char( "Error changing status. Please notify your clan admin.\n\r", ch );*/ return; } /*else alliance_towar(ch, clan, vclan);*/ } } else { send_to_char( "Choices are: allied, friendly, neutral, hostile, atwar.\n\r", ch ); return; } return; } /*send_to_char( "Syntax: [www|recruit|outcast|promote|demote|taxrate|jail|release|evict|evictrank|status]\n\r", ch );*/ do_clanadmin(ch,""); return; } void do_resetalliances( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; CLAN_DATA *aclan; ALLIANCE_DATA *alliance; for( clan = first_clan; clan; clan=clan->next ) { for(aclan = first_clan; aclan; aclan = aclan->next) { if (aclan == clan) continue; CREATE( alliance, ALLIANCE_DATA, 1 ); alliance->clan = clan; alliance->vclan = aclan; alliance->status = 0; alliance->vclanStatus = 0; alliance->votes = 0; alliance->leader1Vote = STRALLOC( "" ); alliance->leader2Vote = STRALLOC( "" ); LINK( alliance, first_alliance, last_alliance, next, prev ); } } save_alliance(); return; } void do_clanrecall( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clandata = NULL; char buf[MAX_STRING_LENGTH]; if ( !ch->desc ) return; clandata = ch->pcdata->clan; if (!clandata) { send_to_char( "You don\'t have a clan.\n\r", ch); return; } if (!clandata->recall) { send_to_char( "Your clan doesn\'t have a recall point.", ch); return; } if ( xIS_SET(ch->in_room->room_flags, ROOM_NO_RECALL) || IS_AFFECTED( ch, AFF_DEAD ) ) { send_to_char_color( "&C&wYou can\'t go to your clan from here.\n\r", ch ); return; } if ( ch->in_room->vnum == 8) { send_to_char("You're in hell--you can't go to your clan.\n\r",ch); return; } if( ch->pcdata->gohometimer > 0 ) { ch_printf( ch, "You can't go to your clan for another %d minutes", ch->pcdata->gohometimer ); return; } switch( ch->position ) { default: break; case POS_MORTAL: case POS_INCAP: case POS_DEAD: case POS_STUNNED: send_to_char_color( "&C&wYou can\'t do that, you\'re hurt too badly.\n\r", ch ); return; case POS_SITTING: case POS_RESTING: case POS_SLEEPING: do_wake( ch, "auto" ); return; case POS_FIGHTING: case POS_DEFENSIVE: case POS_AGGRESSIVE: case POS_BERSERK: case POS_EVASIVE: send_to_char_color( "&C&wNo way! You are still fighting!\n\r", ch); return; } sprintf( buf, "%s disappears to their clan\'s headquarters.", ch->name ); act( AT_GREY, buf, ch, NULL, ch, TO_ROOM ); char_from_room( ch ); char_to_room( ch, get_room_index(clandata->recall) ); sprintf( buf, "As a vortex of luminescent light forms, %s slides gracefully through into their clan headquarters.", ch->name ); act( AT_GREY, buf, ch, NULL, ch, TO_ROOM ); do_look( ch, "" ); return; }