inherit "/obj/monster";
static object myfriend;
void set_friend(object friend)
{
myfriend = friend;
}
void event_fight_in_progress(object ob1,object ob2)
{
if(ob1 && ob1 != myfriend)
::attack_by(ob1);
if(ob2 && ob2 != myfriend)
::attack_by(ob2);
}
void attack_by(object ob)
{
if(ob == myfriend)
{
tell_room(environment(this_object()),"The "+this_object()->query_cap_name()+" sighs and returns to the grave.\n");
call_out("dest_me",0);
}
::attack_by(ob);
}
void attack_ob(object ob)
{
if(ob == myfriend) return;
::attack_ob(ob);
}