/*    /verbs/players/party.c
 *    from the Dead Souls  Object Library
 *    party
 *    party WRD
 *    party WRD WRD
 *    party WRD LIV
 *    created by Descartes of Borg 951121
 */



#include <lib.h>
#include <daemons.h>
#include "include/party.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("party");
    SetRules("WRD", "WRD WRD", "WRD LIV");
    SetErrorMessage("You must specify an action, see \"help party\".");
}

int livings_are_remote() { return 1; }

mixed can_party_wrd(string cmd) {
    if( !cmd ) return 0;
    switch( cmd ) {
    case "disband":
	return (mixed)PARTY_D->CanRemoveParty(this_player());

    case "leave":
	return (mixed)PARTY_D->CanLeaveParty(this_player());

    default:
	return "That doesn't seem to be something you can do.";
    }
}

mixed can_party_wrd_wrd(string cmd, string party) {
    if( !cmd || !party ) return 0;
    if(cmd == "invite"){
	if(!party || !present(party,environment(this_player()))){
	    return "That person isn't here.";
	}
	if(!living(present(party,environment(this_player())))){
	    return "That is not a living thing.";
	}
    }
    switch(cmd) {
    case "create":
	return (mixed)PARTY_D->CanCreateParty(this_player(), party);

    case "join":
	return (mixed)PARTY_D->CanJoinParty(this_player(), party);

    default:
	return "It doesn't work that way.";
    }
}

mixed can_party_wrd_liv(string cmd) {
    if( !cmd ) return 0;    
    switch(cmd) {
    case "invite":
    case "leader":
    case "remove":
	return 1;

    default:
	return "That is an unknown party action.";
    }
}

mixed do_party_wrd(string cmd) {
    switch(cmd) {
    case "disband":
	return (mixed)PARTY_D->eventRemoveParty(this_player());

    case "leave":
	return (mixed)PARTY_D->eventLeaveParty(this_player());
    }
}

mixed do_party_wrd_wrd(string cmd, string party) {
    switch(cmd) {
    case "create":
	return (mixed)PARTY_D->eventCreateParty(this_player(), party);

    case "join":
	return (mixed)PARTY_D->eventJoinParty(this_player(), party);
    }
}

mixed do_party_wrd_liv(string cmd, object targ) {
    mixed foo;
    switch(cmd) {
    case "invite":
	foo = (mixed)PARTY_D->CanInviteMember(this_player(), targ);
	break; 
    case "leader":
	foo = (mixed)PARTY_D->CanChangeLeader(this_player(), targ);
	break;    
    case "remove":
	foo = (mixed)PARTY_D->CanRemoveMember(this_player(), targ);
	break;
    default:
	return "You fail to do that.";
    }
    if( stringp(foo) ) 
	return this_player()->eventPrint(foo), 1;    
    if( !foo || !intp(foo) ) return foo;
    switch(cmd) {
    case "invite":
	return (mixed)PARTY_D->eventInviteMember(this_player(), targ);

    case "leader":
	return (mixed)PARTY_D->eventChangeLeader(this_player(), targ);

    case "remove":
	return (mixed)PARTY_D->eventRemoveMember(this_player(), targ);
    }
}

string GetHelp(string str) {
    return ("Syntax: <party create PARTY>\n"
      "        <party disband>\n"
      "        <party invite PLAYER>\n"
      "        <party join PARTY>\n"
      "        <party leader PLAYER>\n"
      "        <party leave>\n"
      "        <party remove PLAYER>\n\n"
      "This command is the interface to the Dead Souls party system.  "
      "A party is simply a group of players who are adventuring "
      "together.  The advantage of a party is that it allows people "
      "to share the bounties of a quest or other such venture "
      "together. It allows such things as group completions of quests. "
      "For example, if the party completes a quest, each member of the "
      "party is credited with completing the quest.  Note that in "
      "order to get such credit, the party must be together upon "
      "completion of the quest.\n\nNOTE: In order to invite someone "
      "into your party, they must be in the same room as you. Also, "
      "joining a party does not mean you automatically follow the "
      "leader. To do that, you must use the \"lead\" and \"follow\" "
      "commands.");
}