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("Odwracasz wzrok z przerazeniem kiedy probujesz "+
	    "dostrzec caly ogrom tej postaci...\n");

    ustaw_odmiane_rasy(({"demon","demona","demonowi","demona","demonem",
      "demonie"}),({"demony","demonow","demonom","demona", 
      "demonami","demonach"}),PL_MESKI_OS);

    
    dodaj_przym("czarny","czarni");
    dodaj_przym("makabryczny","makabryczni");

    set_gender(G_MALE);
    set_stats(({ 200, 200, 250, 1, 1, 200}));

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

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

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

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

    
}



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