inherit "/std/monster.c";
#include <macros.h>
#include <stdproperties.h>
#include <ss_types.h>


#define TO this_object()
#define TP this_player()

int
atak()
{
    if (TP->query_prop(LIVE_I_UNDEAD))
	return 0;
	return 1;
}

void
create_monster()
{
int a,b;

string *p1 = ({"zbielaly","wysuszony","krwiorzerczy","szalenczy",
	    "zly","zlowrogi","upiorny","przeklety"});
string *p2 = ({"zbielali","wysuszeni","krwiorzerczy","szalenczy",
	    "zli","zlowrodzy","upiorni","przekleci"});
	    
string *c1 = ({"wysoki","krepy","przygarbiony","szybki","zwinny"});
string *c2 = ({"wysocy","krepi","przygarbieni","szybcy","zwinni"});



    ustaw_odmiane_rasy(({"szkielet","szkieletu","szkieletowi","szkielet","szkieletem",
	"szkielecie"}),({"szkielety","szkieletow","szkieletom","szkielety",
	"szkieletami","szkieletach"}),PL_MESKI_NOS_NZYW);
	
    a=random(sizeof(p1));
    b=random(sizeof(c1));
        
    set_living_name("dark_skeleton");
	    
    dodaj_przym(p1[a],p2[a]);
    dodaj_przym(c1[b],c1[b]);
    
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(LIVE_I_UNDEAD,100);
    add_prop(LIVE_I_NO_CORPSE,1);

    set_long("Zwyczajny, swiezo wygrzebany szkielet.\n");

    set_stats(({90,80,90,20,20,150}));

    set_aggressive("@@atak");
    
    set_skill(SS_DEFENCE,50);
    set_skill(SS_PARRY,50);
    set_skill(SS_WEP_SWORD,60);
    set_skill(SS_WEP_AXE,60);
    set_skill(SS_UNARM_COMBAT,80);
    set_skill(LIVE_I_SEE_INVIS,1);
    set_skill(LIVE_I_SEE_DARK,100);
    
    set_npc_react(1);
}