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

#include "szturmix.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"




void
create_undead()
{
    int a;
        int i, j;
        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(-900);

    set_long(" Szkielet jest kupa magicznie ozywionych kosci. Ukladaja sie "
               +"one w ksztalt czlowieka, jednak wydaje ci sie, jakby kilku "
               +"czesci brakowalo. Nie jestes jednak w stanie tego dokladniej "
               +"stwierdzic, gdyz poszczegolne kosci szybko sie poruszaja, "
               +"jakgdyby pozornie wiszac. Dokladny opis ozywienca utrudniaja takze "
               +"przeswity miedzy koscmi. Puste oczodoly "
               +"lsnia niesamowitym blaskiem, kiedy potwor patrzy na ciebie.\n");

    set_stats(({ 110, 80, 130, 2, 2, 100 }));

    set_skill(SS_DEFENCE, 100);
    set_skill(SS_WEP_SWORD, 100);
    set_skill(SS_WEP_AXE, 100);
    set_skill(SS_WEP_POLEARM, 100);
    set_skill(SS_2H_COMBAT, 100);
    set_skill(SS_SHIELD_PARRY , 60);
    set_skill(SS_PARRY, 90);
    set_skill(SS_BLIND_COMBAT, 90); // i tak nie uzywa wzroku
    set_aggressive(1);
    set_cact_time(10);
    set_random_move(4,0);
    set_restrain_path(CMENTARZ);
    add_cact("Oczy szkieleta rozblyskuja nieziemskim ogniem.");
    add_cact("emote zadziera glowe ku niebu.");

     a=random(6);
        switch(a)
            {
            case 0:
            add_weapon(SPPATH+"szmiecz");
            add_weapon(SPPATH+"szmiecz");
            add_armour(SPPATH + "szhelm");
            add_armour(SPPATH + "szkolczuga");
            break;
            
            case 1:
            add_weapon(SPPATH+"sztopor");
            add_armour(SPPATH + "sztarcza");
            add_armour(SPPATH + "szkirys");
            break;
            case 2:
            add_weapon(SPPATH+"szwlocznia");
            add_armour(SPPATH + "szrekawice");
            add_armour(SPPATH + "szhelm");
            break;
            case 3:
            add_weapon(SPPATH+"szwlocznia");
            add_armour(SPPATH + "szbuty");
            add_armour(SPPATH + "szhelm");
            break;
            case 4:
            add_weapon(SPPATH+"szmiecz");
            add_armour(SPPATH + "szkolczuga");
            add_armour(SPPATH + "szhelm");
            break;
            case 5:
            add_weapon(SPPATH+"szwlocznia");
            add_armour(SPPATH + "szkolczuga");
            add_armour(SPPATH + "szhelm");
            break;
            case 5:
            add_weapon(SPPATH+"sztopor");
            add_armour(SPPATH + "szkolczuga");
            add_armour(SPPATH + "szbuty");
            add_armour(SPPATH + "szrekawice");
            break;
            }

    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(" materializuje sie.");
    jak_znikac(" dematerializuje sie pod wplywem pierwszych promieni slonca.");
    jak_znikac_podczas_walki(" dematerializuje sie pod wplywem pierwszych promieni slonca.");
    
}

do_die(object killer)
{
        tell_room(environment(killer), "Szkielet 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");
}