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

#include "../local.h"


#define LIVE_I_NO_FLESH	"_live_i_no_flesh"

void
create_undead()
{

int s;
    ustaw_odmiane_rasy(({"licz","licza","liczowi","licza","liczem","liczu"}), ({"licze","liczow","liczom","licze","liczami","liczow"}),PL_MESKI_NOS_ZYW);

    set_gender(G_MALE);
    dodaj_przym("grubokoscisty","grubokoscisci");
    dodaj_przym("niebezpieczny","niebezpieczni");
    set_alignment(-1590);

    set_long("Licz, czyli szkielet mag. Ozywiony magicznie, fanatycznie sluzy "
	+"Chaosowi, a konkretnie Nagashowi.\n");

    set_stats(({ 60, 78, 50, 5, 5, 100 }));

    set_skill(SS_DEFENCE, 50);
    set_skill(SS_WEP_KNIFE, 50);
    set_skill(SS_2H_COMBAT, 40);
    set_skill(SS_WEP_WARHAMMER, 30);
    set_skill(SS_SHIELD_PARRY, 60);
    set_skill(SS_BLIND_COMBAT, 65); // i tak nie uzywa wzroku

    add_armour(OBJ+"helm3.c");
    add_armour(OBJ+"kolczuga3.c");
    add_armour(OBJ+"rekawice2.c");
    s=random(2);
	switch(s)
		{
		case 0:
    		add_weapon(OBJ + "sztylet.c");
    		add_weapon(OBJ + "sztylet.c");
                add_armour(OBJ + "puklerz.c");
                add_armour(OBJ + "puklerz.c");
		break;
		case 1:
    		add_weapon(OBJ + "obuch.c");
                add_armour(OBJ + "tarcza.c");
		break;	

		}

    set_aggressive(1);

    add_prop(LIVE_I_UNDEAD, 25);
    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);
    add_prop(LIVE_I_SEE_INVIS,5);
  
    
}

void
attacked_by(object ob)
{
tell_room(environment(TO),"Licz wykonuje ruch reka i z klebow dymu wylania sie piec szkieletow.\n");
clone_object(NPC+"szkielet.c")->move(environment(ob));
clone_object(NPC+"szkielet2.c")->move(environment(ob));
clone_object(NPC+"szkielet.c")->move(environment(ob));
clone_object(NPC+"szkielet2.c")->move(environment(ob));
clone_object(NPC+"szkielet.c")->move(environment(ob));

}
void
attack_object(object ob)
{
tell_room(environment(TO),"Licz wykonuje ruch reka i z klebow dymu wylania sie piec szkieletow.\n");
clone_object(NPC+"szkielet.c")->move(environment(ob));
clone_object(NPC+"szkielet2.c")->move(environment(ob));
clone_object(NPC+"szkielet.c")->move(environment(ob));
clone_object(NPC+"szkielet2.c")->move(environment(ob));
clone_object(NPC+"szkielet.c")->move(environment(ob));
}