//Autor: Dalador, poprawki i bronie oraz reszta Dhor
// Opis: ot, normalne szkielety ... ;)


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

#include "dhor.h"

#define PRZYMIOTNIKI ({({"grozny","grozni"}), ({"potworny","potworni"}),({"grzechoczacy","grzechoczacy"}), \
                        ({"silny","silni"}), ({"oszalaly","oszalali"}), \
                        ({"krwiozerczy","krwiozerczy"}),({"rozklekotany","rozklekotani"})})
#define LICZBA_PRZYMIOTNIKOW 7

#define LIVE_I_NO_FLESH	"_live_i_no_flesh"

mixed BRON = ({ BRONIE + "miecz2.c",
                BRONIE + "miecz3.c",
                BRONIE + "miecz5.c",
                BRONIE + "miecz6.c",
   	        BRONIE + "szabla2.c",
   	        BRONIE + "szabla3.c",
   	        BRONIE + "wlocznia1.c",
   	        BRONIE + "topor2.c",
   	        BRONIE + "topor3.c" });

mixed TARCZE = ({ ZBROJE + "tarcza1.c",
		  ZBROJE + "tarcza2.c",
		  ZBROJE + "tarcza3.c"
		  		       });

mixed HELMY = ({ ZBROJE + "misiurka.c",
                 ZBROJE + "misiurka2.c",
                 ZBROJE + "w_helm2.c",
                 ZBROJE + "salada.c" });

mixed ZBROJA = ({ ZBROJE + "kolczuga01.c",
                  ZBROJE + "kolczuga02.c",
                  ZBROJE + "kolczuga04.c",
                  ZBROJE + "kolczuga05.c",
                  ZBROJE + "kolczuga06.c"
			});
mixed ZBROJA2= ({ ZBROJE + "kirys1.c",
                  ZBROJE + "kirys3.c",
                  ZBROJE + "kirys4.c"
                  
                   });

mixed INNE = ({ ZBROJE + "lewy_nar1.c",
		ZBROJE + "lewy_nar2.c",
		ZBROJE + "lewy_nar3.c",
		ZBROJE + "prawy_nar1.c",
		ZBROJE + "prawy_nar2.c",
		ZBROJE + "prawy_nar3.c"
		                       });
		
		
void
create_undead()
{
        int i, j, tmp;
        i = random(LICZBA_PRZYMIOTNIKOW);
        j = random(LICZBA_PRZYMIOTNIKOW - 1);

        if(j >= i)
           ++j;
        dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
        dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);
    ustaw_nazwe(({"szkielet", "szkieleta", "szkieletowi", "szkielet", "szkieletem",
        "szkielecie"}), ({"szkielety", "szkieletow", "szkieletom",
        "szkielety", "szkieletami", "szkieletach"}), PL_MESKI_NOS_NZYW);
    ustaw_odmiane_rasy(({"szkielet", "szkieleta", "szkieletowi", "szkielet", "szkieletem",
        "szkielecie"}), ({"szkielety", "szkieletow", "szkieletom",
        "szkielety", "szkieletami", "szkieletach"}),PL_MESKI_NOS_NZYW);

    set_gender(0);

    set_alignment(-150);

    set_long("Masz przed soba straszna istote, zbudowana z samych niemal "+
    "kosci, tylko gdzieniegdzie pokrytych strzepkami martwej tkanki i "+
    "jakiegos oblesnego mazidla. Smukla czaszka, krwawy korpus i kosciste "+
    "konczyny tworza makabryczny widok, jakiego moglby sie przerazic "+
    "nawet najodwazniejszy wojownik. Istota ta wyglada na niezbyt zwinna, "+
    "ale silna i dosc wytrzymala, w kazdym razie, zaczynanie z nia "+
    "jakichkolwiek sporow nie wydaje sie najlepszym pomyslem na "+
    "spedzenie wolnego czasu. \n");


    set_stats(({ 65, 45, 60, 10, 10, 80 }));

    set_skill(SS_DEFENCE, 35);
    set_skill(SS_WEP_SWORD, 50);
    set_skill(SS_PARRY, 40);
    set_skill(SS_2H_COMBAT, 70);
    set_skill(SS_WEP_POLEARM, 45);
    set_skill(SS_WEP_AXE, 55);
    set_skill(SS_SHIELD_PARRY, 70);
    set_skill(SS_BLIND_COMBAT, 90); // przeciez nie ma oczu ...

    set_cact_time(10);

    add_cact("Slyszysz chrzest kosci wydawany przez szkielet");
    add_cact("emote wpatruje sie w ciebie pustymi oczodolami");
    add_cact("emote bierze solidny zamach !");
    add_cact("emote proboje sie przebic przez twoja obrone");
    
                    
// najpierw zbroja

	if (random(2))
	{
	tmp = random(sizeof(INNE));
	add_armour(INNE[tmp]);
	tmp = random (sizeof(ZBROJA2));
	add_armour(ZBROJA2[tmp]);
	}
	else
	{
	tmp = random(sizeof(ZBROJA));
	add_armour(ZBROJA[tmp]);
	}



// a teraz helmik
      
	tmp = random(sizeof(HELMY));
	add_armour(HELMY[tmp]);
	
// tu beda inne gadzety 

	tmp = random(sizeof(TARCZE));
	add_armour(TARCZE[tmp]);


// no i w koncu bron
	tmp = random(sizeof(BRON));
	add_weapon(BRON[tmp]);
	
           
    set_aggressive(1);

    add_prop(CONT_I_HEIGHT, 155 + random(20));
    add_prop(CONT_I_WEIGHT, 50000 + random(40000));
    add_prop(CONT_I_VOLUME, 50000 + random(40000));
    add_prop(NPC_M_NO_ACCEPT_GIVE, " patrzy na ciebie z pogarda. \n");
    add_prop(OBJ_S_WIZINFO, "by Dhor '99\n");

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

    jak_pojawiac_sie(" wychodzi z ziemi tuz przed toba !");
    jak_znikac(" rozpada sie w proch pod wplywem pierwszych promieni slonca.");
    jak_znikac_podczas_walki(" rozpada sie w pyl pod wplywem pierwszych promieni slonca.");
    

}

do_die(object killer)
{
        tell_room(environment(killer), "Szkielet rozsypuje sie w proch w naglym blysku swiatla.\n");
        // clone_object(/std/kosci.c);
        
        ::do_die(killer);
}

void
notify_you_killed_me()
{
    set_alarm(0.2,0.0,"hiena");  
}    

void
hiena()
{
    command("wez wszystko z ciala");
}