inherit "/d/Imperium/std/monster";
#include "mezon.h"

public void
zrob_emota()
{

}

void
czykrasnal()
{
   string rasa=TP->query_rasa();
   
   if (!CAN_SEE(TO,TP)) return;
   
   if (rasa=="krasnolud"||rasa=="krasnoludka")
      {
         zrob_emota();
         command("zabij " + OB_NAME(TP));
      }
}

init_living()
{
   set_alarm(0.9,0.0,"czykrasnal");
}

attacked_by(object wrog)
{
   command("krzyknij Pomocy!");
   
   set_alarm(0.5,0.0,"pomocy");
   
   ::attacked_by(wrog);
}

int
czy_nasz_ork(object ob)
{
   return member_array("/d/Imperium/Kraina/RUINY/npc/std_ork.c",inherit_list(TO))>-1;
}

object *
filter_orkowie(object *arr)
{
   return filter(arr,czy_nasz_ork);
}

pomocy()
{
   (filter_orkowie(IN(ENTO))-({TO}))->wesprzyj(TO);
}