/* /daemon/party.c
* from the Dead Souls Object Library
* manages parties
* created by Descartes of Borg 951120
*/
#include <lib.h>
#include <save.h>
#include <daemons.h>
#include <message_class.h>
#include "include/party.h"
inherit LIB_DAEMON;
mapping Parties;
static void create() {
daemon::create();
Parties = ([]);
if( unguarded((: file_size(SAVE_PARTIES __SAVE_EXTENSION__) :)) > 0 )
unguarded((: restore_object(SAVE_PARTIES) :));
SetNoClean(1);
SetSaveFile(SAVE_PARTIES);
foreach(mixed key, mixed val in Parties){
mixed array members = this_object()->GetPartyMembers(key);
members -= ({ 0 });
if(!sizeof(members)) map_delete(Parties, key);
}
}
mixed array GetParties(){
return keys(Parties);
}
mapping GetPartiesMap(){
return copy(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.";
eventSave();
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!";
eventSave();
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->eventSendChannel("System", pname, (string)targ->GetName() + " is now "
"the leader.");
eventSave();
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);
eventSave();
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);
eventSave();
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.");
eventSave();
return 1;
}
mixed eventLeaveParty(object who) {
mixed ret = eventRemoveMember(who, who);
eventSave();
return ret;
}
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);
eventSave();
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);
eventSave();
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 });
}
