inherit "/d/Imperium/std/undead";
inherit "/std/combat/humunarmed";

#include "../local.h"

object GEM="/d/Standard/gems/mobs";
#define LIVE_I_NO_FLESH	"_live_i_no_flesh"

void
create_undead()
{
        int s;

    ustaw_nazwe(({"struchlec","struchlca","struchlcowi","struchlca","struchlcem","struchlcu"}), ({"struchlce","struchlcow","struchlcom","struchlce","struchlcami","struchlcach"}), PL_MESKI_NOS_ZYW);
    ustaw_odmiane_rasy(({"struchlec","struchlca","struchlcowi","struchlca","struchlcem","struchlcu"}), ({"struchlce","struchlcow","struchlcom","struchlce","struchlcami","struchlcach"}), PL_MESKI_NOS_ZYW);
dodaj_przym("wielki","wielcy");
dodaj_przym("grozny","grozni");
    set_gender(G_MALE);

    set_alignment(-1000);

    set_long("Struchlec, czyli jeden z nieumarlych. Moze byc bardzo grozny "
	+"dla jednego podroznego, jednak dwoje dobrze wyszkolonych wojow "
	+"powinno dac rade.\n");

    set_stats(({ 100, 50, 120, 5, 5, 100 }));
    set_skill(SS_2H_COMBAT,80);
    set_skill(SS_DEFENCE, 50);
    set_skill(SS_WEP_SWORD, 76);
    set_skill(SS_WEP_WARHAMMER, 60);
    set_skill(SS_SHIELD_PARRY, 40);
    set_skill(SS_BLIND_COMBAT, 100); // i tak nie uzywa wzroku

    set_cact_time(10);

    add_armour(OBJ+"nagolenniki.c");
    add_armour(OBJ+"naramienniki.c");
    add_armour(OBJ+"napiersnik.c");
    s=random(2);
	switch(s)
		{
		case 0:
    		add_weapon(OBJ + "serpentyna.c");
    		add_weapon(OBJ + "serpentyna.c");
		break;
		case 1:
    		add_weapon(OBJ + "obuch.c");
    		add_weapon(OBJ + "obuch.c");
		break;	

		}

    set_aggressive(1);

    add_prop(LIVE_I_UNDEAD, 125);
    add_prop(LIVE_I_NO_CORPSE, 1);
    add_prop(LIVE_I_NO_FLESH, 1);
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(LIVE_I_NEVERKNOWN,1);
setuid();
seteuid(getuid());
clone_object(GEM->losujkamien("struchlec"))->move(this_object());
   clone_object(GEM->losujkamien("struchlec"))->move(this_object()); 
}

do_die(object killer)
{
        tell_room(environment(killer), "Struchlec rozsypuje sie w proch.\n");
        ::do_die(killer);
}

void
notify_you_killed_me()
{
    set_alarm(0.2,0.0,"ograbiamy");  
}    

void
ograbiamy()
{
    command("wez wszystko z ciala");
}
