inherit "/d/Imperium/std/undead";
inherit "/std/combat/humunarmed";

#include "../local.h"
#include <money.h>

#define LIVE_I_NO_FLESH	"_live_i_no_flesh"
object GEM="/d/Standard/gems/mobs";
void
create_undead()
{
        int s;


    ustaw_odmiane_rasy(({"kosciotrup","kosciotrupa","kosciotrupowi","kosciotrupa","kosciotrupem","kosciotrupie"}), ({"kosciotrupy","kosciotrupy","kosciotrupom","kosciotrupy","kosciotrupami","kosciotrupach"}), PL_MESKI_NOS_ZYW);
dodaj_przym("potezny","potezni");
dodaj_przym("krwiozerczy","krwiozerczy");
    set_gender(G_MALE);

    set_alignment(-10000);

    set_long("Kosciotrup - kupa magicznie ozywionych kosci. Ten jest uzbrojony po zeby, widac "
	+"za zycia byl wielkim wojakiem i bardzo znaczaca osoba. Spoglada ku tobie "
	+"syczac wsciekle.\n");

    set_stats(({ 300, 690, 550, 100, 100, 240 }));
    set_skill(SS_DEFENCE, 180);
    set_skill(SS_WEP_WARHAMMER, 120);
    set_skill(SS_SHIELD_PARRY, 90);
    set_skill(SS_PARRY,160);
    set_skill(SS_BLIND_COMBAT, 160); // i tak nie uzywa wzroku

   // set_combat_speed(500);
         MONEY_MAKE_PC (random(50))->move(TO);
    add_armour(OBJ+"zbrojaplytowa.c");
    add_armour(OBJ+"buty3.c");
    add_armour(OBJ+"przylbica.c");
    s=random(2);
	switch(s)
		{
		case 0:
    		add_weapon(OBJ + "labrys.c");
		break;
		case 1:
    		add_weapon(OBJ + "nadziak.c");
    		add_armour(OBJ + "tarcza.c");
		break;	

		}

    set_aggressive(1);
setuid();
seteuid(getuid());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadweak"))->move(this_object());
clone_object(GEM->losujkamien("undeadstrong"))->move(this_object());
    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);

    
}

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");
}