party.c

Go to the documentation of this file.

/*
 * Crossfire -- cooperative multi-player graphical RPG and adventure game
 *
 * Copyright (c) 1999-2014 Mark Wedel and the Crossfire Development Team
 * Copyright (c) 1992 Frank Tore Johansen
 *
 * Crossfire is free software and comes with ABSOLUTELY NO WARRANTY. You are
 * welcome to redistribute it under certain conditions. For details, please
 * see COPYING and LICENSE.
 *
 * The authors can be reached via e-mail at <crossfire@metalforge.org>.
 */

#include "global.h"

#include <stdlib.h>
#include <string.h>

#include "sproto.h"

static partylist *firstparty = NULL; 
static partylist *lastparty = NULL;  
partylist *party_form(object *op, const char *partyname) {
    partylist *party;
    char buf[MAX_BUF];

    strlcpy(buf, partyname, sizeof(buf));
    replace_unprintable_chars(buf);

    if (party_find(buf) != NULL)
        return NULL;

    party_leave(op);
    party = (partylist *)malloc(sizeof(partylist));
    party->partyname = strdup_local(buf);
#ifdef PARTY_KILL_LOG
    party->total_exp = 0;
    party->kills = 0;
#endif
    party->passwd[0] = '\0';
    party->next = NULL;
    party->partyleader = strdup_local(op->name);
    draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_SUCCESS,
                         "You have formed party: %s",
                         party->partyname);
    op->contr->party = party;

    if (lastparty) {
        lastparty->next = party;
        lastparty = lastparty->next;
    } else {
        firstparty = party;
        lastparty = firstparty;
    }

    return party;
}

void party_join(object *op, partylist *party) {
    char buf[MAX_BUF];

    if (op->contr->party == party) {
        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_ERROR,
                             "You are already a member of party: %s",
                             party->partyname);
        return;
    }

    party_leave(op);

    op->contr->party = party;
    draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_SUCCESS,
                         "You have joined party: %s\n",
                         party->partyname);
    snprintf(buf, MAX_BUF, "%s joins party %s", op->name, party->partyname);
    party_send_message(op, buf);
}

static void remove_if_unused(partylist *party) {
    for (player *pl = first_player; pl != NULL; pl = pl->next) {
        if (pl->party == party)
            return;
    }
    party_remove(party);
}

void party_leave(object *op) {
    char buf[MAX_BUF];

    partylist *party = op->contr->party;
    if (party == NULL) {
        return;
    }

    draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_SUCCESS,
                         "You leave party %s.",
                         party->partyname);
    snprintf(buf, sizeof(buf), "%s leaves party %s.", op->name, party->partyname);
    party_send_message(op, buf);
    op->contr->party = NULL;
    remove_if_unused(party);
}

partylist *party_find(const char *partyname) {
    partylist *party;

    for (party = firstparty; party; party = party->next) {
        if (strcmp(party->partyname, partyname) == 0)
            return party;
    }
    return NULL;
}

void party_remove(partylist *party) {
    partylist *previousparty;
    partylist **walk;
    player *pl;

    previousparty = NULL;
    for (walk = &firstparty; *walk != NULL; walk = &(*walk)->next) {
        if (*walk == party) {
            if (party == lastparty)
                lastparty = previousparty;
            *walk = party->next;
            for (pl = first_player; pl != NULL; pl = pl->next) {
                if (pl->party == party)
                    pl->party = NULL;
            }
            free(party->partyleader);
            free(party->partyname);
            free(party);
            return;
        }
        previousparty = *walk;
    }
    LOG(llevError, "party_remove: I was asked to remove party %s, but it could not be found.\n",
        party->partyname);
}

partylist *party_get_first(void) {
    return firstparty;
}

partylist *party_get_next(const partylist *party) {
    return party->next;
}

void party_obsolete_parties(void) {
    partylist *party;
    partylist *next;
    for (party = firstparty; party != NULL; party = next) {
        next = party->next;
        remove_if_unused(party);
    }
}

const char *party_get_password(const partylist *party) {
    return party->passwd;
}

void party_set_password(partylist *party, const char *password) {
    strlcpy(party->passwd, password, sizeof(party->passwd));
    replace_unprintable_chars(party->passwd);
}

int party_confirm_password(const partylist *party, const char *password) {
    return strcmp(party->passwd, password) == 0;
}

void party_send_message(object *op, const char *message) {
    player * const self = op->contr;
    partylist * const party = self->party;

    for (player *pl = first_player; pl != NULL; pl = pl->next)
        if (pl->party == party && pl != self)
            draw_ext_info(NDI_WHITE, 0, pl->ob, MSG_TYPE_COMMUNICATION, MSG_TYPE_COMMUNICATION_PARTY,
                          message);
}

const char *party_get_leader(const partylist *party) {
    return party->partyleader;
}

#ifdef PARTY_KILL_LOG

void party_add_kill(partylist *party, const char *killer, const char *dead, long exp) {
    int i, pos;

    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