#include <lib.h>
#include "include/clan.h"
private class ClanClass Clan;
private int isWelcomed;
static void create(){
Clan = new(class ClanClass);
Clan->leader = 0;
Clan->name = 0;
Clan->objectName = 0;
Clan->skill = 0;
isWelcomed = 0;
}
static void init(){
if(!present(this_object(), this_player())) return;
if((string)this_player()->GetClan() != (string)GetClanName()) return;
if((string)this_player()->GetKeyName() == (string)GetLeader()){
add_action("eventBring", "bring");
add_action("eventInitiate", "initiate");
add_action("eventRetire", "retire");
}
this_player()->eventPrint("\n");
if(!isWelcomed){
this_player()->AddChannel(GetClanName());
eventWelcome(this_player());
isWelcomed = 1;
}
}
mixed CanJoin(object ob){ return 1; }
string GetAffectLong(object ob){
if(!ob || !living(ob)) return 0;
return ob->GetName() + " is a member of the "
+ pluralize(GetClanName()) + ".";
}
string SetLeader(string str){
if(!user_exists(str)) error("No such user: " + str
+ ". You must have a real leader.");
if(!stringp(Clan->leader))
Clan->leader = str;
return Clan->leader;
}
string GetLeader(){ return Clan->leader; }
string SetClanName(string str){
if(!stringp(Clan->name)) Clan->name = str;
return Clan->name;
}
string GetClanName(){ return Clan->name; }
string SetClanObject(string str){
if(!stringp(Clan->objectName)) Clan->objectName = str;
return Clan->objectName;
}
string GetClanObject(){ return Clan->objectName; }
string SetClanSkill(string str){
if(!stringp(Clan->skill)) Clan->skill = str;
return Clan->skill;
}
string GetClanSkill(){ return Clan->skill; }
int eventBring(string str){
object who;
if(!str) return notify_fail("Bring whom?\n");
who = find_player(lower_case(str));
if(!who)
return notify_fail(who->GetName() + " is nowhere to be found.\n");
if((string)who->GetClan() != (string)GetClanName())
return notify_fail(who->GetName() + " is not one of you!\n");
if( environment(who)->GetProperty("no teleport")
|| environment(this_player())->GetProperty("no teleport")
|| environment(this_player())->GetProperty("no magic"))
return notify_fail("A magic force blocks your powers.\n");
if(present(who, environment(this_player())))
return notify_fail(capitalize(str) + " is here.\n");
if((int)this_player()->GetMagicPoints() < 70)
return notify_fail("Too low on magic power.\n");
this_player()->AddMagicPoints(-70);
who->eventPrint("%^CYAN%^Your clan leader summons you.%^RESET%^");
who->eventMoveLiving(environment(this_player()));
if(!present(who, environment(this_player())))
this_player()->eventPrint("%^CYAN%^" + capitalize(str)
+ " is beyond your reach.%^RESET%^");
return 1;
}
int eventInitiate(string str){
object initiate;
object clanObject;
mixed ret;
if(!str) return notify_fail("Initiate whom?\n");
initiate = present(lower_case(str), environment(this_player()));
if(!initiate || !living(initiate))
return notify_fail("No one of that nature here.\n");
if(stringp(ret = CanJoin(initiate))) return notify_fail(ret);
else if(!ret) return ret;
if((int)this_player()->GetMagicPoints() < 300)
return notify_fail("Too low on magic power.\n");
if(initiate->GetClan())
return notify_fail("You may only initiate people without clan "
+ "affiliation.\n");
initiate->SetClan((string)GetClanName());
initiate->SetSkill(GetClanSkill(), 1, 1);
if(clanObject = new((string)GetClanObject()))
clanObject->eventMove(initiate);
this_player()->AddMagicPoints(-300);
eventJoin(initiate);
return 1;
}
void eventJoin(object ob){
ob->eventPrint("%^YELLOW%^You are now a member of the "
+ pluralize((string)GetClanName()) + ".%^RESET%^");
environment(ob)->eventPrint("%^YELLOW%^" +(string)ob->GetName()
+ " is now a member of the "
+ pluralize((string)GetClanName()) + ".%^RESET%^", ob);
}
int eventRetire(string str){
object retiree;
object clanObject;
if(!str) return notify_fail("Retire whom?\n");
retiree = present(lower_case(str), environment(this_player()));
if(!retiree || !living(retiree))
return notify_fail("No one of that nature here.\n");
if((string)retiree->GetClan() != (string)GetClanName())
return notify_fail(retiree->GetName() + " is not one of us!\n");
clanObject = present(GetClanName() + "_clan_object", retiree);
if(!clanObject) error("Problem with clan object.");
clanObject->eventDestruct();
retiree->SetClan(0);
// retiree->SetSkill(GetClanSkill(), 1, 1); We need to remove skill here.
eventUnjoin(retiree);
return 1;
}
void eventUnjoin(object ob){
ob->eventPrint("%^RED%^You are no longer a member of the "
+ pluralize((string)GetClanName()) + ".%^RESET%^");
environment(ob)->eventPrint("%^RED%^" + (string)ob->GetName()
+ " is no longer a member of the "
+ pluralize((string)GetClanName()) + ".%^RESET%^", ob);
}
void eventWelcome(object ob){
ob->eventPrint("%^YELLOW%^Welcome, fellow " + (string)GetClanName()
+ ".%^RESET%^");
}
