/*    /daemon/party.c
 *    from the Dead Souls  Object Library
 *    manages parties
 *    created by Descartes of Borg 951120
 */

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

inherit LIB_DAEMON;

mapping Parties;

static void create() {
    daemon::create();
    SetNoClean(1);
    Parties = ([]);
}

mixed CanChangeLeader(object who, object targ) {
    class party p;
    string pname;

    if( !(p = Parties[pname]) ) return "No such party exists.";
    if( p->Leader != who )
        return "You must be the party leader in order to change leaders.";
    if( member_array(targ, p->Members) == -1 )
        return (string)targ->GetName() + " is not in the party.";
    return 1;
}

mixed CanCreateParty(object who, string name) {
    if( Parties[name] ) return "A party by that name already exists.";
    if( member_array(name, (string *)CHAT_D->GetChannels()) != -1 )
        return "You cannot use the name " + name + " for your party.";
    if( (string)who->GetParty() ) return "You are already in a party!";
    return 1;
}

mixed CanInviteMember(object who, object member) {
    string pname;

    pname = (string)who->GetParty();
    if( !Parties[pname] ) return "There is no such party!";
    if( ((class party)Parties[pname])->Leader != who )
        return "Only the party leader may add members!";
    if( (string)member->GetParty() )
        return (string)member->GetName() + " is already in a party.";
    if( environment(member) != environment(who) )
        return (string)member->GetName() + " must be somewhere near you.";
    return 1;
}

mixed CanJoinParty(object who, string pname) {
    if( !Parties[pname] ) return "There is no such party.";
    if( member_array(who, ((class party)Parties[pname])->Invited) == -1 )
        return "You have not been invited to join that party.";
    if( (string)who->GetParty() ) return "You are already in a party.";
    if( environment(who) != environment(((class party)Parties[pname])->Leader) )
        return "You are nowhere the leader of the party.";
    return 1;
}

mixed CanLeaveParty(object who) {
    class party p;
    string pname;

    pname = (string)who->GetParty();
    if( !pname || !(p = Parties[pname]) ) return "There is no such party.";
    if( member_array(who, p->Members) == -1 )
        return "You are not in that party.";
    return 1;
}

mixed CanRemoveMember(object who, object targ) {
    class party p;
    string pname;

    pname = (string)who->GetParty();
    if( !(p = Parties[pname]) ) return "There is no such party.";
    if( p->Leader != who ) return "Only the party leader may remove people.";
    return 1;
}	

mixed CanRemoveParty(object who) {
    class party p;
    string pname;

    pname = (string)who->GetParty();
    if( !(p = Parties[pname]) ) return "There is no such party!";
    if( p->Leader != who )
        return "Only the party leader may disband the party.";
    return 1;
}

mixed eventChangeLeader(object who, object targ) {
    class party p;
    string pname;

    pname = (string)who->GetParty();
    p = Parties[pname];
    p->Leader = targ;
    CHAT_D->eventSend("System", pname, (string)targ->GetName() + " is now "
      "the leader.");
    return 1;
}

mixed eventCreateParty(object who, string name) {
    class party this_party;

    if( (string)who->SetParty(name) != name )
        return "There was some bizarre problem sticking you in a party.";
    this_party = new(class party);
    this_party->Leader = who;
    this_party->Members = ({ who });
    this_party->Invited = ({});
    Parties[name] = this_party;
    who->eventPrint("Party " + name + " successfully created.", MSG_SYSTEM);
    return 1;
}

mixed eventInviteMember(object who, object targ) {
    class party this_party;
    string name;

    name = (string)who->GetParty();
    this_party = Parties[name];
    this_party->Invited += ({ targ });
    CHAT_D->eventSendChannel("System", name, (string)targ->GetName() +
      " has been invited to join the party.");    
    call_out((: RemoveInvitiation :), 60, name, targ);
    targ->eventPrint("You have been invited to join the party \"" + name +
      "\".\nType \"party join " + name + "\" in 60 "
      "seconds to join.", MSG_SYSTEM);
    return 1;
}

mixed eventJoinParty(object who, string name) {
    class party this_party;
    mixed tmp;

    if( (tmp = CanJoinParty(who, name)) != 1 ) return tmp;
    this_party = Parties[name];
    if( (string)who->SetParty(name) != name )
        return "Bogus error in joining party.";
    this_party->Invited -= ({ who });
    this_party->Members += ({ who });
    CHAT_D->eventSendChannel("System", name, (string)who->GetName() +
      " has joined the party.");    
    return 1;
}

mixed eventLeaveParty(object who) {
    return eventRemoveMember(who, who);
}

mixed eventRemoveMember(object who, object targ) {
    class party p;
    object ob = 0;
    string name;

    p = Parties[name = (string)who->GetParty()];
    if( targ == p->Leader ) {
        if( sizeof(p->Members) == 1 ) return eventRemoveParty(who);
        else {
            foreach(ob in p->Members) if( ob != targ ) break;
            if( !ob ) return eventRemoveParty(who);
            else {
                p->Leader = ob;
                ob->eventPrint("You are now the leader of the party " + name +
                  ".", MSG_SYSTEM);
            }
        }
    }
    targ->SetParty(0);
    if( Parties[name] ) {
        p->Members -= ({ targ });
        CHAT_D->eventSendChannel("System", name, (string)targ->GetName() +
          " is no longer in the party.");
    }
    targ->eventPrint("You are no longer a member of the party " + name +
      ".", MSG_SYSTEM);
    return 1;
}

mixed eventRemoveParty(object who) {
    object ob;
    string name;

    name = (string)who->GetParty();
    CHAT_D->eventSendChannel("System", name, "The party " + name + " has been "
      "disbanded.");
    foreach(ob in ((class party)Parties[name])->Members)
    ob->SetParty(0);
    map_delete(Parties, name);
    return 1;
}

object GetPartyLeader(string name) {
    class party p;
    string nom;

    foreach(nom, p in Parties) if( nom == name ) return p->Leader;
    return 0;
}

object *GetPartyMembers(string name) {
    class party p;
    string nom;

    foreach(nom, p in Parties) if( nom == name ) return p->Members;
    return 0;
}

static void RemoveInvitiation(string name, object who) {
    if( !Parties[name] ) return;
    if( member_array(who, ((class party)Parties[name])->Invited) == -1 )
        return;
    ((class party)Parties[name])->Invited -= ({ who });
}