server/server/c_party.C

/*
 * static char *rcsid_c_party_c =
 *   "$Id$";
 */

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2002 Mark Wedel & Crossfire Development Team
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The authors can be reached via e-mail at crossfire-devel@real-time.com
*/

#include <global.h>
#ifndef __CEXTRACT__
#include <sproto.h>
#endif
#include <spells.h>

#ifdef COZY_SERVER
// used for pet monster logic etc.
int same_party (partylist *a, partylist *b)
{
  return a == b && a;
}
#endif

static partylist * firstparty=NULL; /* Keeps track of first party in list */
static partylist * lastparty=NULL; /*Keeps track of last party in list */

partylist* get_firstparty(void)
{
        return firstparty;
}

void remove_party(partylist *target_party);

/* Forms the party struct for a party called 'params'. it is the responsibility
 * of the caller to ensure that the name is unique, and that it is placed in the 
 * main party list correctly */
static partylist *form_party(object *op, const char *params) {

    partylist * newparty;

    newparty = (partylist *)malloc(sizeof(partylist));
    newparty->partyname = strdup_local(params);
    newparty->total_exp=0;
    newparty->kills=0;
    newparty->passwd[0] = '\0';
    newparty->next = NULL;
    newparty->partyleader = strdup_local(op->name);
    new_draw_info_format(NDI_UNIQUE, 0, op,
        "You have formed party: %s",newparty->partyname);       
    op->contr->party=newparty;
    return newparty;
}

void remove_party(partylist *target_party) {
    partylist *tmpparty;
    partylist *previousparty;
    partylist *nextparty;
    player *pl;
    
    if (firstparty==NULL) {
        LOG(llevError, "remove_party(): I was asked to remove party %s, but no parties are defined",
            target_party->partyname);
        return;
    }
    for (pl=first_player;pl!=NULL;pl=pl->next)
        if (pl->party==target_party) pl->party=NULL;
    
    /* special case-ism for parties at the beginning and end of the list */
    if (target_party==firstparty) {
        firstparty=firstparty->next;
        if (target_party->partyleader) free(target_party->partyleader);
        if (target_party->partyname) free(target_party->partyname);
        free(target_party);
        return; 
    }
    else if (target_party == lastparty) {
        for (tmpparty=firstparty;tmpparty->next!=NULL;tmpparty=tmpparty->next) {
            if (tmpparty->next==target_party) {
                lastparty=tmpparty;
                if (target_party->partyleader) free(target_party->partyleader);
                if (target_party->partyname) free(target_party->partyname);
                free(target_party); 
                lastparty->next=NULL;
                return;
            }
        }
    }
    for (tmpparty=firstparty;tmpparty->next!=NULL;tmpparty=tmpparty->next)
        if (tmpparty->next == target_party) {
            previousparty=tmpparty;
            nextparty=tmpparty->next->next; 
            /* this should be safe, because we already dealt with the lastparty case */
        
            previousparty->next=nextparty;
            if (target_party->partyleader) free(target_party->partyleader);
            if (target_party->partyname) free(target_party->partyname);
            free(target_party); 
            return;
        }
}

/* Remove unused parties, this could be made to scale a lot better. */
void obsolete_parties(void) {
    int player_count;
    player *pl;
    partylist *party;
        partylist* next = NULL;

    if (!firstparty) return; /* we can't obsolete parties if there aren't any */
    for (party=firstparty; party!=NULL; party=next) {
        next = party->next;
        player_count=0; 
        for (pl=first_player;pl!=NULL;pl=pl->next)
            if (pl->party==party) player_count++;
        if (player_count == 0)
            remove_party(party);
    }
}

#ifdef PARTY_KILL_LOG
void add_kill_to_party(partylist *party, char *killer, char *dead, long exp)
{
  int i,pos;

  if(party==NULL) return;
  if(party->kills>=PARTY_KILL_LOG)
    {
      pos=PARTY_KILL_LOG-1;
      for(i=0;i<PARTY_KILL_LOG-1;i++)
        memcpy(&(party->party_kills[i]),&(party->party_kills[i+1]),
               sizeof(party->party_kills[0]));
    }
  else
    pos=party->kills;
  party->kills++;
  party->total_exp+=exp;
  party->party_kills[pos].exp=exp;
  strncpy(party->party_kills[pos].killer,killer,MAX_NAME);
  strncpy(party->party_kills[pos].dead,dead,MAX_NAME);
  party->party_kills[pos].killer[MAX_NAME]=0;
  party->party_kills[pos].dead[MAX_NAME]=0;
}
#endif

int confirm_party_password(object *op) {
    partylist *tmppartylist;
    for(tmppartylist = firstparty; tmppartylist != NULL;tmppartylist = tmppartylist->next) {
        if(!strcmp(op->contr->party_to_join->partyname, tmppartylist->partyname)) {
            if(strcmp(op->contr->write_buf+1,tmppartylist->passwd) == 0)
                return 0;
            else
                return 1;
        }
    }
    return 1;
}

void receive_party_password(object *op, char k) {
 
  if(confirm_party_password(op) == 0) {
    partylist* joined_party = op->contr->party_to_join;
    char buf[ MAX_BUF ];
    op->contr->party = op->contr->party_to_join;
    op->contr->party_to_join = NULL;
    new_draw_info_format(NDI_UNIQUE, 0,op,
        "You have joined party: %s\n",joined_party->partyname);
    snprintf( buf, MAX_BUF, "%s joins party %s", op->name, joined_party->partyname );
    send_party_message( op, buf );
    op->contr->state = ST_PLAYING;
    return;
  }
  else {
    new_draw_info(NDI_UNIQUE, 0,op,"You entered the wrong password");
    op->contr->party_to_join = NULL;
    op->contr->state = ST_PLAYING;
    return;
  }
}

void send_party_message(object *op,char *msg)
{
  player *pl;
  for(pl=first_player;pl!=NULL;pl=pl->next)
    if(pl->ob->contr->party==op->contr->party && pl->ob!=op)
        new_draw_info(NDI_WHITE, 0, pl->ob, msg);
}

int command_gsay(object *op, char *params)
{
  char party_params[MAX_BUF];

  if (!params) return 0;
  strcpy(party_params, "say "); 
  strcat(party_params,params);
  command_party(op,party_params);
  return 0;
}


int command_party (object *op, char *params)
{
  char buf[MAX_BUF];
  partylist *tmpparty, *oldparty;  /* For iterating over linked list */
  char * currentparty;   /* For iterating over linked list */

  if(params == NULL) {
        if(op->contr->party==NULL) {
          new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
          new_draw_info(NDI_UNIQUE, 0,op,"For help try: party help");
        }
        else {
          currentparty = op->contr->party->partyname;
          new_draw_info_format(NDI_UNIQUE, 0, op,
                "You are a member of party %s.", currentparty);
        }
        return 1;
      }
  if(strcmp(params, "help")==0) {
    new_draw_info(NDI_UNIQUE, 0,op,"To form a party type: party form <partyname>");
    new_draw_info(NDI_UNIQUE, 0,op,"To join a party type: party join <partyname>");
    new_draw_info(NDI_UNIQUE, 0,op,"If the party has a passwd, it will you prompt you for it.");
    new_draw_info(NDI_UNIQUE, 0,op,"For a list of current parties type: party list");
    new_draw_info(NDI_UNIQUE, 0,op,"To leave a party type: party leave");
    new_draw_info(NDI_UNIQUE, 0,op,"To change a passwd for a party type: party passwd <password>");
    new_draw_info(NDI_UNIQUE, 0,op,"There is an 8 character max");
    new_draw_info(NDI_UNIQUE, 0,op,"To talk to party members type: party say <msg>");
    new_draw_info(NDI_UNIQUE, 0,op,"To see who is in your party: party who");
#ifdef PARTY_KILL_LOG
    new_draw_info(NDI_UNIQUE, 0,op,"To see what you've killed, type: party kills");
#endif
    return 1;
  }
#ifdef PARTY_KILL_LOG
  if(!strncmp(params, "kills",5))
    {
      int i,max;
      char chr;
      char buffer[80];
      float exp;

      if(op->contr->party==NULL)
        {
          new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
          return 1;
        }
      tmpparty = op->contr->party;
      if(!tmpparty->kills)
        {
          new_draw_info(NDI_UNIQUE,0,op,"You haven't killed anything yet.");
          return 1;
        }
      max=tmpparty->kills-1;
      if(max>PARTY_KILL_LOG-1) max=PARTY_KILL_LOG-1;
      new_draw_info(NDI_UNIQUE,0,op,
                    "Killed          |          Killer|     Exp"); 
      new_draw_info(NDI_UNIQUE,0,op,
                    "----------------+----------------+--------");
      for(i=0;i<=max;i++)
        {
          exp=tmpparty->party_kills[i].exp;
          chr=' ';
          if(exp>1000000) { exp/=1000000; chr='M'; }
          else
            if(exp>1000) { exp/=1000; chr='k'; }
          sprintf(buffer,"%16s|%16s|%6.1f%c",
                  tmpparty->party_kills[i].dead,
                  tmpparty->party_kills[i].killer,exp,chr);
          new_draw_info(NDI_UNIQUE,0,op,buffer);
        }
      exp=tmpparty->total_exp;
      chr=' ';
      if(exp>1000000) { exp/=1000000; chr='M'; }
      else
        if(exp>1000) { exp/=1000; chr='k'; }
      new_draw_info(NDI_UNIQUE,0,op,
                    "----------------+----------------+--------");
      sprintf(buffer,"Totals: %d kills, %.1f%c exp",tmpparty->kills,
              exp,chr);
      new_draw_info(NDI_UNIQUE,0,op,buffer);
      return 1;
    }
#endif /* PARTY_KILL_LOG */
  if(strncmp(params, "say ", 4)==0)
    {
         if(op->contr->party==NULL)
            {
              new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
              return 1;
            }
         params += 4;
         currentparty = op->contr->party->partyname;
         snprintf(buf,MAX_BUF-1, "[%s] %s says: %s", currentparty, op->name, params);
         send_party_message(op,buf);
         new_draw_info_format(NDI_WHITE, 0,op,"[%s] You say: %s", currentparty, params);
         return 1;
    }

  if(strncmp(params, "form ",5) == 0) {
    int player_count;
    player *pl;

    params += 5;
    if (op->contr->party) oldparty = op->contr->party;
    else oldparty = NULL;
 
    if (firstparty) {
        for (tmpparty = firstparty; tmpparty != NULL;tmpparty = tmpparty->next) {
            if (!strcmp(tmpparty->partyname, params)) {
                new_draw_info_format(NDI_UNIQUE, 0,op,
                "The party %s already exists, pick another name",params);
                return 1;
            }
        }
    lastparty->next=form_party(op, params);
    lastparty = lastparty->next;
    }
    else {
        firstparty=form_party(op, params);
        lastparty=firstparty;
    }
    /* 
     * The player might have previously been a member of a party, if so, he will be leaving
     * it, so check if there are any other members and if not, delete the party
     */
    player_count=0; 
    if (oldparty) {
        for (pl=first_player;pl->next!=NULL;pl=pl->next) {
            if (pl->party==oldparty) player_count++;
        }
        if (player_count == 0)
            remove_party(oldparty);
    }
    return 0;
  } /* form */

  if(strcmp(params, "leave")==0) {
    if(op->contr->party==NULL)
      {
        new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
        return 1;
      }
    currentparty = op->contr->party->partyname;
    new_draw_info_format(NDI_UNIQUE, 0, op,
        "You leave party %s.",currentparty);
    sprintf(buf,"%s leaves party %s.",op->name,currentparty);
    send_party_message(op,buf);
    op->contr->party=NULL;
    return 1;
  }
  if(strcmp(params, "who")==0) {
    player *pl;
    tmpparty = op->contr->party;
    if(op->contr->party==NULL) {
      new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
      return 1;
    }
    new_draw_info_format(NDI_UNIQUE, 0, op,
        "Members of party: %s.", op->contr->party->partyname);
    for(pl=first_player;pl!=NULL;pl=pl->next)
      if(pl->ob->contr->party==op->contr->party) {
          if (settings.set_title == TRUE) {
              if(pl->ob->contr->own_title[0]!='\0')
                  sprintf(buf,"%3d %s the %s",
                      pl->ob->level,pl->ob->name,pl->ob->contr->own_title);
              else
                  sprintf(buf,"%3d %s the %s",
                      pl->ob->level,pl->ob->name,pl->ob->contr->title);
          } else
              sprintf(buf,"%3d %s the %s",
                  pl->ob->level,pl->ob->name,pl->ob->contr->title);
        new_draw_info(NDI_UNIQUE, 0,op,buf);
      }
    return 1;
  } /* leave */

  if(strncmp(params, "passwd ", 7) == 0) {
    partylist *tmplist;

    params += 7;

    if(op->contr->party == NULL) {
      new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of a party");
      return 1;
    }

    if(strlen(params) > 8) {
      new_draw_info(NDI_UNIQUE, 0,op,"The password must not exceed 8 characters");
      return 1;
    }

    tmplist = firstparty;
    while(tmplist != NULL) {
      if(tmplist == op->contr->party) {
        strcpy(tmplist->passwd,params);
            new_draw_info_format(NDI_UNIQUE, 0, op,
                    "The password for party %s is %s", tmplist->partyname,tmplist->passwd);
        snprintf( buf, MAX_BUF, "Password for party %s is now %s, changed by %s",
            tmplist->partyname, tmplist->passwd, op->name );
        send_party_message(op,buf);
        return 0;
      }
      tmplist = tmplist->next;
    }
    return 0;
  } /* passwd */

  if(strcmp(params, "list") == 0) {
    partylist * tmplist;

    tmplist = firstparty;

    if(firstparty == NULL) {
      new_draw_info(NDI_UNIQUE, 0,op,"There are no parties active right now");
      return 1;
    }

    new_draw_info(NDI_UNIQUE, 0,op,"Party name                       Leader");
    new_draw_info(NDI_UNIQUE, 0,op,"----------                       ------");

    while(tmplist != NULL) {
      new_draw_info_format(NDI_UNIQUE, 0,op,
        "%-32s %s",tmplist->partyname
              ,tmplist->partyleader);
      tmplist = tmplist->next;
    }
    return 0;
  } /* list */

  if(strncmp(params,"join ",5) == 0) {

    params += 5;

    /* Can't join a party cause non exist */
    if(firstparty == NULL) {
      new_draw_info_format(NDI_UNIQUE, 0, op,
        "Party: %s does not exist.  You must form it first",params);
      return 1;
    }

    /* Special case if thier is only one party */
    if(firstparty->next == NULL) {
      if(strcmp(firstparty->partyname,params) != 0) {
        new_draw_info_format(NDI_UNIQUE, 0,op,
            "Party: %s does not exist. You must form it first",params);
        return 1;
      }
      else {
        if(op->contr->party == firstparty) {
          new_draw_info_format(NDI_UNIQUE, 0, op,
                "You are already in party: %s"
                  ,firstparty->partyname);
          return 1;
        }
        /* found party player wants to join */
        if(firstparty->passwd[0] == '\0') {
          op->contr->party = firstparty;
          new_draw_info_format(NDI_UNIQUE, 0, op,
                "You have joined party: %s",firstparty->partyname);
          snprintf( buf, MAX_BUF, "%s joins party %s", op->name, firstparty->partyname );
          send_party_message( op, buf );
          return 0;
        }
        else {
          get_party_password(op,firstparty);
          return 0;
        }
      }
    }

    tmpparty = firstparty;
    while(tmpparty != NULL) {
      if(strcmp(tmpparty->partyname,params) == 0) {
        if(op->contr->party == tmpparty) {
          new_draw_info_format(NDI_UNIQUE, 0, op,
                "You are already a member of party: %s"
                  ,tmpparty->partyname);
          return 1;
        }
        else {
          if(tmpparty->passwd[0] == '\0') {
            new_draw_info_format(NDI_UNIQUE, 0, op,
                        "You have joined party: %s",tmpparty->partyname);
            op->contr->party = tmpparty;
            snprintf( buf, MAX_BUF, "%s joins party %s", op->name, tmpparty->partyname );
            send_party_message( op, buf );
            return 0;
          }
          else {
            get_party_password(op, tmpparty);
            return 0;
          }
        }
      }
      else
        tmpparty = tmpparty->next;
    }

    new_draw_info_format(NDI_UNIQUE, 0,op,
        "Party %s does not exist.  You must form it first.",params);
    return 1;
  } /* join */

  new_draw_info(NDI_UNIQUE, 0,op,"To form a party type: party form <partyname>");
  new_draw_info(NDI_UNIQUE, 0,op,"To join a party type: party join <partyname>");
  new_draw_info(NDI_UNIQUE, 0,op,"If the party has a passwd, it will you prompt you for it.");
  new_draw_info(NDI_UNIQUE, 0,op,"For a list of current parties type: party list");
  new_draw_info(NDI_UNIQUE, 0,op,"To leave a party type: party leave");
  new_draw_info(NDI_UNIQUE, 0,op,"To change a passwd for a party type: party passwd <password>");
  new_draw_info(NDI_UNIQUE, 0,op,"There is an 8 character max");
  new_draw_info(NDI_UNIQUE, 0,op,"To talk to party members type: party say <msg>");
  new_draw_info(NDI_UNIQUE, 0,op,"To see who is in your party: party who");
#ifdef PARTY_KILL_LOG
  new_draw_info(NDI_UNIQUE, 0,op,"To see what you've killed, type: party kills");
#endif
  return 1;
}
Revision:	1.1
Committed:	Sun Aug 13 17:16:04 2006 UTC (17 years, 9 months ago) by elmex
Content type:	text/plain
Branch:	MAIN
Log Message:	Made server compile with C++. Removed cfanim plugin and crossedit. C++ here we come.
#	User	Rev	Content
1	elmex	1.1	/*
2			* static char *rcsid_c_party_c =
3			* "$Id$";
4			*/
5
6			/*
7			CrossFire, A Multiplayer game for X-windows
8
9			Copyright (C) 2002 Mark Wedel & Crossfire Development Team
10			Copyright (C) 1992 Frank Tore Johansen
11
12			This program is free software; you can redistribute it and/or modify
13			it under the terms of the GNU General Public License as published by
14			the Free Software Foundation; either version 2 of the License, or
15			(at your option) any later version.
16
17			This program is distributed in the hope that it will be useful,
18			but WITHOUT ANY WARRANTY; without even the implied warranty of
19			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20			GNU General Public License for more details.
21
22			You should have received a copy of the GNU General Public License
23			along with this program; if not, write to the Free Software
24			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25
26			The authors can be reached via e-mail at crossfire-devel@real-time.com
27			*/
28
29			#include <global.h>
30			#ifndef __CEXTRACT__
31			#include <sproto.h>
32			#endif
33			#include <spells.h>
34
35			#ifdef COZY_SERVER
36			// used for pet monster logic etc.
37			int same_party (partylist a, partylist b)
38			{
39			return a == b && a;
40			}
41			#endif
42
43			static partylist * firstparty=NULL; /* Keeps track of first party in list */
44			static partylist * lastparty=NULL; /Keeps track of last party in list /
45
46			partylist* get_firstparty(void)
47			{
48			return firstparty;
49			}
50
51			void remove_party(partylist *target_party);
52
53			/* Forms the party struct for a party called 'params'. it is the responsibility
54			* of the caller to ensure that the name is unique, and that it is placed in the
55			* main party list correctly */
56			static partylist form_party(object op, const char *params) {
57
58			partylist * newparty;
59
60			newparty = (partylist *)malloc(sizeof(partylist));
61			newparty->partyname = strdup_local(params);
62			newparty->total_exp=0;
63			newparty->kills=0;
64			newparty->passwd[0] = '\0';
65			newparty->next = NULL;
66			newparty->partyleader = strdup_local(op->name);
67			new_draw_info_format(NDI_UNIQUE, 0, op,
68			"You have formed party: %s",newparty->partyname);
69			op->contr->party=newparty;
70			return newparty;
71			}
72
73			void remove_party(partylist *target_party) {
74			partylist *tmpparty;
75			partylist *previousparty;
76			partylist *nextparty;
77			player *pl;
78
79			if (firstparty==NULL) {
80			LOG(llevError, "remove_party(): I was asked to remove party %s, but no parties are defined",
81			target_party->partyname);
82			return;
83			}
84			for (pl=first_player;pl!=NULL;pl=pl->next)
85			if (pl->party==target_party) pl->party=NULL;
86
87			/* special case-ism for parties at the beginning and end of the list */
88			if (target_party==firstparty) {
89			firstparty=firstparty->next;
90			if (target_party->partyleader) free(target_party->partyleader);
91			if (target_party->partyname) free(target_party->partyname);
92			free(target_party);
93			return;
94			}
95			else if (target_party == lastparty) {
96			for (tmpparty=firstparty;tmpparty->next!=NULL;tmpparty=tmpparty->next) {
97			if (tmpparty->next==target_party) {
98			lastparty=tmpparty;
99			if (target_party->partyleader) free(target_party->partyleader);
100			if (target_party->partyname) free(target_party->partyname);
101			free(target_party);
102			lastparty->next=NULL;
103			return;
104			}
105			}
106			}
107			for (tmpparty=firstparty;tmpparty->next!=NULL;tmpparty=tmpparty->next)
108			if (tmpparty->next == target_party) {
109			previousparty=tmpparty;
110			nextparty=tmpparty->next->next;
111			/* this should be safe, because we already dealt with the lastparty case */
112
113			previousparty->next=nextparty;
114			if (target_party->partyleader) free(target_party->partyleader);
115			if (target_party->partyname) free(target_party->partyname);
116			free(target_party);
117			return;
118			}
119			}
120
121			/* Remove unused parties, this could be made to scale a lot better. */
122			void obsolete_parties(void) {
123			int player_count;
124			player *pl;
125			partylist *party;
126			partylist* next = NULL;
127
128			if (!firstparty) return; /* we can't obsolete parties if there aren't any */
129			for (party=firstparty; party!=NULL; party=next) {
130			next = party->next;
131			player_count=0;
132			for (pl=first_player;pl!=NULL;pl=pl->next)
133			if (pl->party==party) player_count++;
134			if (player_count == 0)
135			remove_party(party);
136			}
137			}
138
139			#ifdef PARTY_KILL_LOG
140			void add_kill_to_party(partylist party, char killer, char *dead, long exp)
141			{
142			int i,pos;
143
144			if(party==NULL) return;
145			if(party->kills>=PARTY_KILL_LOG)
146			{
147			pos=PARTY_KILL_LOG-1;
148			for(i=0;i<PARTY_KILL_LOG-1;i++)
149			memcpy(&(party->party_kills[i]),&(party->party_kills[i+1]),
150			sizeof(party->party_kills[0]));
151			}
152			else
153			pos=party->kills;
154			party->kills++;
155			party->total_exp+=exp;
156			party->party_kills[pos].exp=exp;
157			strncpy(party->party_kills[pos].killer,killer,MAX_NAME);
158			strncpy(party->party_kills[pos].dead,dead,MAX_NAME);
159			party->party_kills[pos].killer[MAX_NAME]=0;
160			party->party_kills[pos].dead[MAX_NAME]=0;
161			}
162			#endif
163
164			int confirm_party_password(object *op) {
165			partylist *tmppartylist;
166			for(tmppartylist = firstparty; tmppartylist != NULL;tmppartylist = tmppartylist->next) {
167			if(!strcmp(op->contr->party_to_join->partyname, tmppartylist->partyname)) {
168			if(strcmp(op->contr->write_buf+1,tmppartylist->passwd) == 0)
169			return 0;
170			else
171			return 1;
172			}
173			}
174			return 1;
175			}
176
177			void receive_party_password(object *op, char k) {
178
179			if(confirm_party_password(op) == 0) {
180			partylist* joined_party = op->contr->party_to_join;
181			char buf[ MAX_BUF ];
182			op->contr->party = op->contr->party_to_join;
183			op->contr->party_to_join = NULL;
184			new_draw_info_format(NDI_UNIQUE, 0,op,
185			"You have joined party: %s\n",joined_party->partyname);
186			snprintf( buf, MAX_BUF, "%s joins party %s", op->name, joined_party->partyname );
187			send_party_message( op, buf );
188			op->contr->state = ST_PLAYING;
189			return;
190			}
191			else {
192			new_draw_info(NDI_UNIQUE, 0,op,"You entered the wrong password");
193			op->contr->party_to_join = NULL;
194			op->contr->state = ST_PLAYING;
195			return;
196			}
197			}
198
199			void send_party_message(object op,char msg)
200			{
201			player *pl;
202			for(pl=first_player;pl!=NULL;pl=pl->next)
203			if(pl->ob->contr->party==op->contr->party && pl->ob!=op)
204			new_draw_info(NDI_WHITE, 0, pl->ob, msg);
205			}
206
207			int command_gsay(object op, char params)
208			{
209			char party_params[MAX_BUF];
210
211			if (!params) return 0;
212			strcpy(party_params, "say ");
213			strcat(party_params,params);
214			command_party(op,party_params);
215			return 0;
216			}
217
218
219			int command_party (object op, char params)
220			{
221			char buf[MAX_BUF];
222			partylist tmpparty, oldparty; /* For iterating over linked list */
223			char * currentparty; /* For iterating over linked list */
224
225			if(params == NULL) {
226			if(op->contr->party==NULL) {
227			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
228			new_draw_info(NDI_UNIQUE, 0,op,"For help try: party help");
229			}
230			else {
231			currentparty = op->contr->party->partyname;
232			new_draw_info_format(NDI_UNIQUE, 0, op,
233			"You are a member of party %s.", currentparty);
234			}
235			return 1;
236			}
237			if(strcmp(params, "help")==0) {
238			new_draw_info(NDI_UNIQUE, 0,op,"To form a party type: party form <partyname>");
239			new_draw_info(NDI_UNIQUE, 0,op,"To join a party type: party join <partyname>");
240			new_draw_info(NDI_UNIQUE, 0,op,"If the party has a passwd, it will you prompt you for it.");
241			new_draw_info(NDI_UNIQUE, 0,op,"For a list of current parties type: party list");
242			new_draw_info(NDI_UNIQUE, 0,op,"To leave a party type: party leave");
243			new_draw_info(NDI_UNIQUE, 0,op,"To change a passwd for a party type: party passwd <password>");
244			new_draw_info(NDI_UNIQUE, 0,op,"There is an 8 character max");
245			new_draw_info(NDI_UNIQUE, 0,op,"To talk to party members type: party say <msg>");
246			new_draw_info(NDI_UNIQUE, 0,op,"To see who is in your party: party who");
247			#ifdef PARTY_KILL_LOG
248			new_draw_info(NDI_UNIQUE, 0,op,"To see what you've killed, type: party kills");
249			#endif
250			return 1;
251			}
252			#ifdef PARTY_KILL_LOG
253			if(!strncmp(params, "kills",5))
254			{
255			int i,max;
256			char chr;
257			char buffer[80];
258			float exp;
259
260			if(op->contr->party==NULL)
261			{
262			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
263			return 1;
264			}
265			tmpparty = op->contr->party;
266			if(!tmpparty->kills)
267			{
268			new_draw_info(NDI_UNIQUE,0,op,"You haven't killed anything yet.");
269			return 1;
270			}
271			max=tmpparty->kills-1;
272			if(max>PARTY_KILL_LOG-1) max=PARTY_KILL_LOG-1;
273			new_draw_info(NDI_UNIQUE,0,op,
274			"Killed \| Killer\| Exp");
275			new_draw_info(NDI_UNIQUE,0,op,
276			"----------------+----------------+--------");
277			for(i=0;i<=max;i++)
278			{
279			exp=tmpparty->party_kills[i].exp;
280			chr=' ';
281			if(exp>1000000) { exp/=1000000; chr='M'; }
282			else
283			if(exp>1000) { exp/=1000; chr='k'; }
284			sprintf(buffer,"%16s\|%16s\|%6.1f%c",
285			tmpparty->party_kills[i].dead,
286			tmpparty->party_kills[i].killer,exp,chr);
287			new_draw_info(NDI_UNIQUE,0,op,buffer);
288			}
289			exp=tmpparty->total_exp;
290			chr=' ';
291			if(exp>1000000) { exp/=1000000; chr='M'; }
292			else
293			if(exp>1000) { exp/=1000; chr='k'; }
294			new_draw_info(NDI_UNIQUE,0,op,
295			"----------------+----------------+--------");
296			sprintf(buffer,"Totals: %d kills, %.1f%c exp",tmpparty->kills,
297			exp,chr);
298			new_draw_info(NDI_UNIQUE,0,op,buffer);
299			return 1;
300			}
301			#endif /* PARTY_KILL_LOG */
302			if(strncmp(params, "say ", 4)==0)
303			{
304			if(op->contr->party==NULL)
305			{
306			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
307			return 1;
308			}
309			params += 4;
310			currentparty = op->contr->party->partyname;
311			snprintf(buf,MAX_BUF-1, "[%s] %s says: %s", currentparty, op->name, params);
312			send_party_message(op,buf);
313			new_draw_info_format(NDI_WHITE, 0,op,"[%s] You say: %s", currentparty, params);
314			return 1;
315			}
316
317			if(strncmp(params, "form ",5) == 0) {
318			int player_count;
319			player *pl;
320
321			params += 5;
322			if (op->contr->party) oldparty = op->contr->party;
323			else oldparty = NULL;
324
325			if (firstparty) {
326			for (tmpparty = firstparty; tmpparty != NULL;tmpparty = tmpparty->next) {
327			if (!strcmp(tmpparty->partyname, params)) {
328			new_draw_info_format(NDI_UNIQUE, 0,op,
329			"The party %s already exists, pick another name",params);
330			return 1;
331			}
332			}
333			lastparty->next=form_party(op, params);
334			lastparty = lastparty->next;
335			}
336			else {
337			firstparty=form_party(op, params);
338			lastparty=firstparty;
339			}
340			/*
341			* The player might have previously been a member of a party, if so, he will be leaving
342			* it, so check if there are any other members and if not, delete the party
343			*/
344			player_count=0;
345			if (oldparty) {
346			for (pl=first_player;pl->next!=NULL;pl=pl->next) {
347			if (pl->party==oldparty) player_count++;
348			}
349			if (player_count == 0)
350			remove_party(oldparty);
351			}
352			return 0;
353			} /* form */
354
355			if(strcmp(params, "leave")==0) {
356			if(op->contr->party==NULL)
357			{
358			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
359			return 1;
360			}
361			currentparty = op->contr->party->partyname;
362			new_draw_info_format(NDI_UNIQUE, 0, op,
363			"You leave party %s.",currentparty);
364			sprintf(buf,"%s leaves party %s.",op->name,currentparty);
365			send_party_message(op,buf);
366			op->contr->party=NULL;
367			return 1;
368			}
369			if(strcmp(params, "who")==0) {
370			player *pl;
371			tmpparty = op->contr->party;
372			if(op->contr->party==NULL) {
373			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of any party.");
374			return 1;
375			}
376			new_draw_info_format(NDI_UNIQUE, 0, op,
377			"Members of party: %s.", op->contr->party->partyname);
378			for(pl=first_player;pl!=NULL;pl=pl->next)
379			if(pl->ob->contr->party==op->contr->party) {
380			if (settings.set_title == TRUE) {
381			if(pl->ob->contr->own_title[0]!='\0')
382			sprintf(buf,"%3d %s the %s",
383			pl->ob->level,pl->ob->name,pl->ob->contr->own_title);
384			else
385			sprintf(buf,"%3d %s the %s",
386			pl->ob->level,pl->ob->name,pl->ob->contr->title);
387			} else
388			sprintf(buf,"%3d %s the %s",
389			pl->ob->level,pl->ob->name,pl->ob->contr->title);
390			new_draw_info(NDI_UNIQUE, 0,op,buf);
391			}
392			return 1;
393			} /* leave */
394
395			if(strncmp(params, "passwd ", 7) == 0) {
396			partylist *tmplist;
397
398			params += 7;
399
400			if(op->contr->party == NULL) {
401			new_draw_info(NDI_UNIQUE, 0,op,"You are not a member of a party");
402			return 1;
403			}
404
405			if(strlen(params) > 8) {
406			new_draw_info(NDI_UNIQUE, 0,op,"The password must not exceed 8 characters");
407			return 1;
408			}
409
410			tmplist = firstparty;
411			while(tmplist != NULL) {
412			if(tmplist == op->contr->party) {
413			strcpy(tmplist->passwd,params);
414			new_draw_info_format(NDI_UNIQUE, 0, op,
415			"The password for party %s is %s", tmplist->partyname,tmplist->passwd);
416			snprintf( buf, MAX_BUF, "Password for party %s is now %s, changed by %s",
417			tmplist->partyname, tmplist->passwd, op->name );
418			send_party_message(op,buf);
419			return 0;
420			}
421			tmplist = tmplist->next;
422			}
423			return 0;
424			} /* passwd */
425
426			if(strcmp(params, "list") == 0) {
427			partylist * tmplist;
428
429			tmplist = firstparty;
430
431			if(firstparty == NULL) {
432			new_draw_info(NDI_UNIQUE, 0,op,"There are no parties active right now");
433			return 1;
434			}
435
436			new_draw_info(NDI_UNIQUE, 0,op,"Party name Leader");
437			new_draw_info(NDI_UNIQUE, 0,op,"---------- ------");
438
439			while(tmplist != NULL) {
440			new_draw_info_format(NDI_UNIQUE, 0,op,
441			"%-32s %s",tmplist->partyname
442			,tmplist->partyleader);
443			tmplist = tmplist->next;
444			}
445			return 0;
446			} /* list */
447
448			if(strncmp(params,"join ",5) == 0) {
449
450			params += 5;
451
452			/* Can't join a party cause non exist */
453			if(firstparty == NULL) {
454			new_draw_info_format(NDI_UNIQUE, 0, op,
455			"Party: %s does not exist. You must form it first",params);
456			return 1;
457			}
458
459			/* Special case if thier is only one party */
460			if(firstparty->next == NULL) {
461			if(strcmp(firstparty->partyname,params) != 0) {
462			new_draw_info_format(NDI_UNIQUE, 0,op,
463			"Party: %s does not exist. You must form it first",params);
464			return 1;
465			}
466			else {
467			if(op->contr->party == firstparty) {
468			new_draw_info_format(NDI_UNIQUE, 0, op,
469			"You are already in party: %s"
470			,firstparty->partyname);
471			return 1;
472			}
473			/* found party player wants to join */
474			if(firstparty->passwd[0] == '\0') {
475			op->contr->party = firstparty;
476			new_draw_info_format(NDI_UNIQUE, 0, op,
477			"You have joined party: %s",firstparty->partyname);
478			snprintf( buf, MAX_BUF, "%s joins party %s", op->name, firstparty->partyname );
479			send_party_message( op, buf );
480			return 0;
481			}
482			else {
483			get_party_password(op,firstparty);
484			return 0;
485			}
486			}
487			}
488
489			tmpparty = firstparty;
490			while(tmpparty != NULL) {
491			if(strcmp(tmpparty->partyname,params) == 0) {
492			if(op->contr->party == tmpparty) {
493			new_draw_info_format(NDI_UNIQUE, 0, op,
494			"You are already a member of party: %s"
495			,tmpparty->partyname);
496			return 1;
497			}
498			else {
499			if(tmpparty->passwd[0] == '\0') {
500			new_draw_info_format(NDI_UNIQUE, 0, op,
501			"You have joined party: %s",tmpparty->partyname);
502			op->contr->party = tmpparty;
503			snprintf( buf, MAX_BUF, "%s joins party %s", op->name, tmpparty->partyname );
504			send_party_message( op, buf );
505			return 0;
506			}
507			else {
508			get_party_password(op, tmpparty);
509			return 0;
510			}
511			}
512			}
513			else
514			tmpparty = tmpparty->next;
515			}
516
517			new_draw_info_format(NDI_UNIQUE, 0,op,
518			"Party %s does not exist. You must form it first.",params);
519			return 1;
520			} /* join */
521
522			new_draw_info(NDI_UNIQUE, 0,op,"To form a party type: party form <partyname>");
523			new_draw_info(NDI_UNIQUE, 0,op,"To join a party type: party join <partyname>");
524			new_draw_info(NDI_UNIQUE, 0,op,"If the party has a passwd, it will you prompt you for it.");
525			new_draw_info(NDI_UNIQUE, 0,op,"For a list of current parties type: party list");
526			new_draw_info(NDI_UNIQUE, 0,op,"To leave a party type: party leave");
527			new_draw_info(NDI_UNIQUE, 0,op,"To change a passwd for a party type: party passwd <password>");
528			new_draw_info(NDI_UNIQUE, 0,op,"There is an 8 character max");
529			new_draw_info(NDI_UNIQUE, 0,op,"To talk to party members type: party say <msg>");
530			new_draw_info(NDI_UNIQUE, 0,op,"To see who is in your party: party who");
531			#ifdef PARTY_KILL_LOG
532			new_draw_info(NDI_UNIQUE, 0,op,"To see what you've killed, type: party kills");
533			#endif
534			return 1;
535			}