inherit "/std/monster";


#include <macros.h>
#include <stdproperties.h>
#include <pl.h>
#include <wa_types.h>
#include <ss_types.h>
#include </sys/cmdparse.h>

#define A_BITE  0
#define A_LCLAW 1
#define A_RCLAW 2
#define H_HEAD 0
#define H_BODY 1


int
atakuj()
{
    if ( this_player()->query_prop("chaosnik") )
	return 0;
    if ( interactive(this_player()) )
	return 1;
		
}

void
create_monster()
{

    set_long("Ogar...\n");

    ustaw_odmiane_rasy(({"ogar","ogara","ogarowi","ogara","ogarem",
      "ogarze"}),({"ogary","ogarow","ogarom","ogary", 
      "ogarami","ogarach"}),PL_MESKI_OS);

    
    dodaj_przym("kolczasty","kolczasci");
    dodaj_przym("potezny","potezni");

    set_gender(G_MALE);
    set_stats(({ 400, 100, 120, 1, 1, 100}));

    set_alignment(-1000);
    set_aggressive("@@atakuj");
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(OBJ_I_WEIGHT, 300000);
    add_prop(OBJ_I_VOLUME, 100000);

    set_skill(SS_DEFENCE, 70);
    set_skill(SS_UNARM_COMBAT, 90);

    set_attack_unarmed(A_BITE,  10, 13, W_IMPALE, 40, "szponami");

    set_hitloc_unarmed(H_HEAD, ({ 5,4,5 }), 20, "rogaty leb");
    set_hitloc_unarmed(H_BODY, ({ 5,6,3 }), 80, "kolczasty korpus");    

    
}



void
gon( object ob )
{
set_follow( ob, 0.1, 1 ); 
}


void
attacked_by(object wrog)
{
   if ((wrog->query_prop("chaosnik")) || (wrog->query_rasa() == "wojownik chaosu")) this_object()->destruct();
   ::attacked_by(wrog);
}