private string *TrainedSkills = ({});
private int Befriendable, Trainable, Commandable;
private object Owner = 0;
mixed direct_befriend_liv(){
return 1;
}
mixed direct_abandon_liv(){
return 1;
}
mixed direct_train_liv(){
return this_object()->CanTrain();
}
mixed direct_train_liv_to_str(){
return this_object()->CanTrain();
}
mixed direct_untrain_liv(){
return this_object()->CanTrain();
}
mixed direct_untrain_liv_to_str(){
return this_object()->CanTrain();
}
mixed direct_command_liv(){
return this_object()->CanCommand();
}
mixed direct_command_liv_to_str(){
return this_object()->CanCommand();
}
object GetMountOwner(){
return Owner;
}
object SetMountOwner(object who){
if(who) Owner = who;
return Owner;
}
int SetCanBefriend(int i){
if(!i) Befriendable = 0;
else Befriendable = i;
return Befriendable;
}
int CanBefriend(object who){
int owner_char = -1;
int player_char = -1;
if(!Befriendable) return 0;
if(Owner && objectp(Owner)) owner_char = Owner->GetStat("charisma")["level"];
player_char = who->GetStat("charisma")["level"];
if(player_char > Befriendable && player_char > owner_char) return 1;
return 0;
}
int CanAbandon(object who){
if(!Befriendable) return 0;
if(Owner && Owner == who) return 1;
else return 0;
}
int SetCanTrain(int i){
if(!i) Trainable = 0;
else Trainable = 1;
return Trainable;
}
int CanTrain(){
return Trainable;
}
int CanUnTrain(){
return Trainable;
}
int SetCanCommand(int i){
if(!i) Commandable = 0;
else Commandable = 1;
return Commandable;
}
int eventBefriend(object who){
if(!CanBefriend(who)){
write("You fail to befriend "+this_object()->GetName()+".");
say(who->GetName()+" fails to befriend "+this_object()->GetName()+
". "+capitalize(nominative(who))+" looks very silly!");
return 1;
}
write("You befriend "+this_object()->GetName()+".");
say(who->GetName()+" befriends "+this_object()->GetName()+
". Awwww, it's such a cute sight to see!");
Owner = who;
return 1;
}
int eventAbandon(object who){
if(!CanAbandon(who)){
write("You can't abandon "+this_object()->GetName()+".");
return 1;
}
write("You abandon "+this_object()->GetName()+".");
say(who->GetName()+" abandons "+this_object()->GetName()+
". How sad!");
Owner = 0;
return 1;
}
varargs int eventTrainLiving(object who, string what){
if(what) what = replace_string(what, "to ", "");
if(!who) who = this_player();
if(Owner != who){
write("You are not this mount's owner.");
return 0;
}
if(what && member_array(what, TrainedSkills) != -1){
write(this_object()->GetName()+" already possesses that skill.");
return 1;
}
if(!what || what == "") return 1;
else {
tell_player(who,"You train "+this_object()->GetShort()+".");
tell_room(environment(who),who->GetName()+" trains "+
this_object()->GetShort()+".", ({ who,this_object() }) );
TrainedSkills += ({ what });
}
return 1;
}
varargs int eventUnTrainLiving(object who, string what){
if(what) what = replace_string(what, "to ", "");
if(!who) who = this_player();
if(Owner != who){
write("You are not this mount's owner.");
return 0;
}
if(!what || what == ""){
Owner = 0;
}
if(what && member_array(what, TrainedSkills) != -1){
TrainedSkills -= ({ what });
}
tell_player(who,"You untrain "+this_object()->GetShort()+".");
tell_room(environment(who),who->GetName()+" untrains "+
this_object()->GetShort()+".", ({ who,this_object() }) );
return 1;
}
string *GetTrainedSkilles(){
return copy(TrainedSkills);
}
string *SetTrainedSkills(string *skills){
if(skills) TrainedSkills = skills;
return copy(TrainedSkills);
}
string eventCommandNPC(object who, string cmd){
//if(this_object()->GetStat("intelligence") < 10
return "foo";
}
