clan.c

Go to the documentation of this file.

#if defined(macintosh)
#include <types.h>
#include <time.h>
#else
#include <sys/types.h>
#include <sys/time.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>                /* For execl in copyover() */
#include "merc.h"
#include "interp.h"
#include "recycle.h"
#include "tables.h"
#include "lookup.h"


void do_who_clan (CHAR_DATA *ch, char *argument)
{
    DESCRIPTOR_DATA *d;
    char buf[MAX_STRING_LENGTH];
    char buf2[MAX_STRING_LENGTH];
    CHAR_DATA *victim;
    BUFFER *buffer;
    int numchar;
    bool rgfClan[MAX_CLAN];  
    register int iClan;
    bool fClanRestrict = FALSE;
        int nNumber;
        int iLevelLower;
        int iLevelUpper;
    bool fLeader;
    bool fRecruiter;
    int clan;
    int space;
        iLevelLower    = 0;
        iLevelUpper    = MAX_LEVEL;
        fLeader = FALSE;
        fRecruiter = FALSE;
    for (iClan = 0; iClan < MAX_CLAN; iClan++)
            rgfClan[iClan] = FALSE;

    nNumber = 0;
    for ( ;; )
    {
        char arg[MAX_STRING_LENGTH];

        argument = one_argument( argument, arg );
        if ( arg[0] == '\0' )
            break;

        if ( is_number( arg ) )
        {
            switch ( ++nNumber )
            {
            case 1: iLevelLower = atoi( arg ); break;
            case 2: iLevelUpper = atoi( arg ); break;
            default:
                send_to_char( "Only two level numbers allowed.\n\r", ch );
                return;
            }
        }
        else
        {
            if (!str_prefix(arg,"leader"))
                fLeader = TRUE;
            else if (!str_prefix(arg, "recruiter"))
                fRecruiter = TRUE;
        else
        {
                iClan = clan_lookup(arg);       

            if (iClan)
                {
                fClanRestrict = TRUE;
                    rgfClan[iClan] = TRUE;
                }
                else
                {
                    send_to_char("That's not a valid race, class, clan, or kingdom.\n\r",ch);
                    return;
            }
        }
        }
    }

    buffer = new_buf();
    numchar=0;
    for (d=descriptor_list;d;d=d->next)
    {

            if ( d->connected != CON_PLAYING || !can_see( ch, d->character ) )
                continue;

            victim   = ( d->original != NULL ) ? d->original : d->character;
            

        if (victim->clan == 0)
        {
          continue;
        }
       
             clan = victim->clan;
                buf[0] = '\0';
                    buf2[0] = '\0';
            sprintf(buf, "[%2d %6s] ",
            victim->level,
            victim->race < MAX_PC_RACE ? pc_race_table[victim->race].who_name: "");
            
            
            sprintf(buf2,"%-16s", clan_table[victim->clan].who_name);
                        space = (20 - strlen(buf2));
                        for( ; space > 0;space--)
                        {
                            strcat(buf2, " ");
                        }
                        strcat(buf,buf2);
            sprintf(buf2,"%-11s %-9s%-9s\n\r",
            victim->name, IS_SET (victim->cclan, CLAN_LEADER) ? "({WLEADER{x) " : " ",
            IS_SET (victim->cclan, CLAN_REC) ? "({WRECRUITER{x) " : "");
            strcat(buf,buf2);
        
        add_buf(buffer,buf);
        numchar++; 
    
    }
        
    sprintf(buf, "Total: %d.\n\r",numchar);
    add_buf(buffer,buf);
        page_to_char(buf_string(buffer),ch);
        free_buf(buffer);
    return;
}






void do_clan_guild (CHAR_DATA *ch, char *argument)
{

if (IS_SET(ch->cclan, CLAN_REC ))

        {
    

    
    
    
//  char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
        char buf[MAX_STRING_LENGTH];
    CHAR_DATA *victim;
    //argument = one_argument (argument, arg1);
        //argument = one_argument (argument, arg2); 



    if (argument == '\0')
            {
             send_to_char ("Syntax: cguild <char> \n\r", ch);
             return;
                }
    if (ch->clan == 0)
    {
        send_to_char("You are not in a clan!\n\r",ch);
        return;
    }

    if ((victim = get_char_world (ch, argument)) == NULL)
            {
              send_to_char ("They aren't playing.\n\r", ch);
              return;
                }

    if (IS_NPC(victim))
    {
        send_to_char ("They aren't playing.\n\r",ch);
        return;
    }

    if (victim->clan != 0)
    {
        send_to_char("They are already in a clan!\n\r",ch);
        return;
    }

    
    
    /*   if (!str_prefix (arg2, "none"))
             {
                          send_to_char ("They are now clanless.\n\r", ch);
                  send_to_char ("You are now a member of no clan!\n\r", victim);
                  victim->clan = 0;
                  return;
             }
    
*/
/*if (clan_table[clan].independent)
    {
        sprintf (buf, "They are now a %s.\n\r",ch->clan);
        send_to_char (buf, ch);
        sprintf (buf, "You are now a %s.\n\r", ch->clan);
        send_to_char (buf, victim);
    }   
else
{
                sprintf (buf, "They are now a member of clan %s.\n\r",
                     capitalize (ch->clan));
                     send_to_char (buf, ch);
                sprintf (buf, "You are now a member of clan %s.\n\r",
                capitalize (ch->clan));
                            }
*/
        /*sprintf (buf, "They are now a member of clan %s.\n\r",clan_table[ch->clan].who_name);
        send_to_char(buf,ch);
        sprintf (buf, "You have been guilded into %s by %s.\n\r", clan_table[ch->clan].who_name,ch->name);
        send_to_char(buf, victim);*/
        sprintf(buf, "%s %s\n\r", victim->name, clan_table[ch->clan].join_string);
        send_to_all("",buf);

        victim->clan = ch->clan;
        return; 
    }
    else
    {
        send_to_char("You are not recruiter.\n\r",ch);
        return;
    }
}
void do_set_guild (CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
char buf[MAX_STRING_LENGTH];
    if (IS_SET(ch->cclan, CLAN_LEADER) || ch->level > 52)
    {
        if(argument == '\0')
        {
            send_to_char("Who would you like to set recruiter status to?\n\r",ch);
                return;
        }
        if(argument == ch->name)
        {
            send_to_char("But you can already guild!\n\r",ch);
                return;
        }
        if ((victim = get_char_world (ch, argument)) == NULL)
        {
                send_to_char ("They aren't playing.\n\r", ch);
                    return;
            }
        if (victim->clan != ch->clan)
        {
            send_to_char("They are not a member of your clan.\n\r",ch);
                return;
        }
        SET_BIT (victim->cclan, CLAN_REC);
                sprintf(buf, "You are now set to guild in %s.\n\r",clan_table[ch->clan].who_name);
        send_to_char(buf,victim);
        sprintf(buf, "%s is now set to guild in %s.\n\r",victim->name, clan_table[ch->clan].who_name);
        send_to_char(buf,ch);
    }
    else
    {
        send_to_char("You must be a clan leader to set guild status.\n\r",ch);
        return;
    }


                 
        

        
    return;
}
void do_set_leader (CHAR_DATA *ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
      char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
      int clan;
argument = one_argument (argument, arg1);
argument = one_argument (argument, arg2);

if (arg1[0] == '\0' || arg2[0] == '\0')
{
    send_to_char("Syntax -- 'setleader <char> <clan>\n\r",ch);
        return;
}

    
if (ch->level < 58)

{
    send_to_char("You must be a level 58 or above immortal to accomplish this task. Sorry.\n\r",ch);
    return;
}
if ((victim = get_char_world (ch, arg1)) == NULL)
{
    send_to_char ("They are not playing at the moment.\n\r",ch);
    return;
}
if ((clan = clan_lookup(arg2)) == 0)
{
    send_to_char("There is no such clan.\n\r",ch);
    return;
}

sprintf(buf, "You are now the leader of %s.\n\r",clan_table[clan].who_name);
send_to_char(buf,victim);
sprintf(buf, "%s is now the leader of %s.\n\r",victim->name, clan_table[clan].who_name);
send_to_char(buf, ch);
SET_BIT(victim->cclan, CLAN_LEADER);
SET_BIT(victim->cclan, CLAN_REC);
    

}

void do_remove_leader (CHAR_DATA *ch, char *argument)
{
    CHAR_DATA *victim;
    char buf[MAX_STRING_LENGTH];
    if (ch->level < 58)
    {
        send_to_char("You must be atleast level 59 to accomplish this.\n\r",ch);
        return;
    }
    
    if (argument[0]== '\0')
    {
        send_to_char("Argument - 'removeleader <who>'\n\r",ch);
        return;
    }
    if ((victim = get_char_world (ch, argument)) == NULL)
    {
        send_to_char("They are not playing at the moment.\n\r",ch);
        return;
    }
    if (victim->clan == 0)
    {
        send_to_char("They are not in a clan.\n\r",ch);
        return;
    }
    if (!IS_SET(victim->cclan, CLAN_LEADER))
    {
        send_to_char("They are not a clan leader.\n\r",ch);
        return;
    }
    if (IS_SET(victim->cclan, CLAN_LEADER))
    {
        sprintf(buf,"You are no longer a leader of %s.\n\r", clan_table[victim->clan].who_name);
        send_to_char(buf,victim);
        sprintf(buf, "%s is no longer the leader of %s.\n\r", victim->name, clan_table[victim->clan].who_name);
        send_to_char(buf,ch);
        REMOVE_BIT(victim->cclan, CLAN_LEADER);
        REMOVE_BIT(victim->cclan, CLAN_REC);
    }
    return;
}
void do_remove_recruiter (CHAR_DATA *ch, char *argument)
{
    CHAR_DATA *victim;
    char buf[MAX_STRING_LENGTH];

    if (ch->level < 58)
    {
        send_to_char("You must be atleast level 59 to do this.\n\r",ch);
        return;
    }   
    if (argument[0]== '\0')
    {
        send_to_char("Argument - 'removerecruiter <who>'\n\r",ch);
        return;
    }
    if ((victim = get_char_world (ch, argument)) == NULL)
    {
        send_to_char("They are not playing at the moment.\n\r", ch);
        return;
    }
    if (!IS_SET(victim->cclan, CLAN_REC))
    {   
        send_to_char("They are not a recruiter.\n\r",ch);
        return;
    }
    if (IS_SET(victim->cclan, CLAN_REC))
    {
        sprintf(buf, "You are no longer a recruiter for %s.\n\r", clan_table[victim->clan].who_name);
        send_to_char(buf,victim);
        sprintf(buf, "%s is not longer a recruiter for %s.\n\r", victim->name, clan_table[victim->clan].who_name);
        send_to_char(buf,ch);
        REMOVE_BIT(victim->cclan, CLAN_REC);
    }
    return;

    
}

---