inherit "/d/Imperium/std/chaos";

#include "local.h"

void
create_zwierz()
{
}

void
create_chaos()
{ 

ustaw_nazwe(  ({"zwierzoczlek","zwierzoczleka","zwierzoczlekowi",
		"zwierzoczleka","zwierzoczlekiem","zwierzoczleku"}),
	      ({"zwierzoludzie","zwierzoludzi","zwierzoludziom",
		"zwierzoludzi","zwierzoludziom","zwierzoludziach"}),
              PL_MESKI_OS);
                                                                                                   
ustaw_odmiane_rasy(({"zwierzoczlek","zwierzoczleka","zwierzoczlekowi",
		     "zwierzoczleka","zwierzoczlekiem","zwierzoczleku"}),
		   ({"zwierzoludzie","zwierzoludzi","zwierzoludziom",
		     "zwierzoludzi","zwierzoludziom","zwierzoludziach"}),
            	     PL_MESKI_OS);

  set_all_hitloc_unarmed(15);

  set_act_time(12+random(12));
  
  add_act("emote wydaje z siebie serie dzikich dzwiekow.");
  add_act("emote skrzeczy wsciekle.");
  add_act("emote krzyczy cos w dziwnym, nosowym jezyku.");
  add_act("emote rozglada sie dziko.");
  add_act("emote smieje sie piskliwie.");
  add_act("emote drapie sie po glowie.");
  add_act("emote wciaga glosno powietrze w nozdrza.");
  add_act("emote fuka dziko.");
  add_act("emote szczerzy zeby w zwierzecym usmiechu.");
  

  set_cact_time(5+random(10));
  
  add_cact("emote uskakuje wyjatkowo zwinnie w bok.");
  add_cact("emote oblizuje sie ze smakiem. Slina kapie mu obficie z pyska.");
  add_cact("emote wyje w zwierzecej furii.");
  add_cact("emote klnie w niezrozumialym dialekcie.");

  set_aggressive(1);
  set_random_move(10);

  create_zwierz();
}

void
attacked_by(object ob)
{
    if (member_array(ob,query_enemy(-1))>-1) return;
    
    if (ob != this_object()->query_follow())
    {
        if (ob->query_average_stat() > 40)
        {
            command("zasmiej sie dziko");
            set_alarm(0.5, 0.0, &set_follow(ob, 0.5));
            ::attacked_by(ob);
            return;
        }
        else        
           set_alarm(0.5, 0.0, &set_follow(ob, 0.75));
    }
    ::attacked_by(ob);
}

void
attack_object(object ob)
{
    if (member_array(ob,query_enemy(-1))>-1) return;
    
    if (ob != this_object()->query_follow())
    {
        if(ob->query_average_stat() > 40)
        {
            command("zasmiej sie dziko");
            set_follow(ob, 0.5);
            ::attack_object(ob);
            return;
        }
        set_follow(ob, 0.75);
    }

    ::attack_object(ob);
}