/* podstawowy szkielet 
 * napisane przez Alfena
 */

#include  "local.h"
#include <stdproperties.h>
#include <pl.h>
#include <wa_types.h>
#include <const.h>
#include <ss_types.h>


inherit GPATH + "std/undead";
inherit "/std/combat/unarmed";

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

void
create_szkielet()
{
}


void
create_undead()
{
	ustaw_odmiane_rasy(({ "szkielet", "szkieleta", "szkieletowi", "szkielet",
            "szkieletem", "szkielecie" }), ({ "szkielety", "szkieletow",
            "szkieletom", "szkielety", "szkieletami", "szkieletach" }),
            PL_MESKI_NOS_NZYW);
            
	set_gender(G_MALE);
	
	dodaj_przym("pozolkly","pozolkli");
	
	set_long("Pozokle kosci, sterczace zebiska moga oznaczac tylko jedno -"+
		" nieumarlego wojownika. Sluge, ktoremu nic nie straszne. "+
		"Na jego piersiach widnieje znak chaosu, a w oczach lsnia "+
		"czerwone plomienie. Straszliwe szpony lekko lsnia"+
		" nieziemskim zielonkawym swiatlem .\n");
		
	add_prop(LIVE_I_NO_CORPSE, 1);
	add_prop(LIVE_I_SEE_DARK, 10);
	add_prop(LIVE_I_UNDEAD, 1);
	add_prop(NPC_I_NO_FEAR, 1);
	add_prop(OBJ_I_VOLUME, 350);
	add_prop(OBJ_I_WEIGHT, 50000);
	
	set_alignment(-500-random(200));
	
	
	set_attack_unarmed(W_RIGHT, 40, 50, W_SLASH, 45, 
		"dlugimi ostrymi szponami");
	set_attack_unarmed(W_LEFT, 40, 50, W_SLASH, 45, 
		"dlugimi ostrymi szponami");
	set_attack_unarmed(1, 40, 50, W_IMPALE, 45, 
		"pozoklymi zebiskami");
	set_hitloc_unarmed(A_HEAD, ({200, 200, 1}), 10, "pozolka czaszke");
	set_hitloc_unarmed(A_R_ARM, ({200, 200, 1}), 10, "prawe szponiaste ramie");
	set_hitloc_unarmed(A_L_ARM, ({200, 200, 1}), 10, "lewe szponiaste ramie");
	set_hitloc_unarmed(A_TORSO, ({200, 200, 1}), 60, "pozokle zebra");
	set_hitloc_unarmed(A_LEGS, ({200, 200, 1}), 30, "pozolke kosci nog");
	
	set_skill(SS_DEFENCE, 30);
	set_skill(SS_UNARM_COMBAT, 40);
	set_skill(SS_WEP_SWORD, 50);
	set_skill(SS_AWARENESS, 50);
	set_skill(SS_PARRY, 40);
	set_skill(SS_SHIELD_PARRY, 30);
	set_skill(SS_HUNTING, 40);
	
	set_aggressive("@@attack_him");
	set_npc_react(1);
}

int
attack_him()
{
   return (!TP->query_prop(IMPERIUM_I_STWOR_CHAOSU));
}