inherit "/d/Imperium/std/monster";

#include "mith.h"

void
create_monster()
{
    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(-590);

    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(({ 40, 15, 60, 5, 5, 100 }));

    set_skill(SS_DEFENCE, 20);
    set_skill(SS_WEP_SWORD, 30);
    set_skill(SS_SHIELD_PARRY, 30);
    set_skill(SS_BLIND_COMBAT, 50); // i tak nie uzywa wzroku

    set_cact_time(10);

    add_cact("Oczy szkieleta rozblyskuja nieziemskim ogniem.");
    add_cact("emote jakby na chwile zglupial, pozbawiony kontroli. Szybko "
                    +"jednak opanowywuje sie i kontynuuje walke.");

    add_weapon(BRONIE + "sz_miecz.c");
    add_armour(BRONIE + "sz_tarcza.c");
    add_armour(ZBROJE + "sz_helm.c");

    set_aggressive(1);

    add_prop(LIVE_I_UNDEAD, 25);
    add_prop(LIVE_I_NO_CORPSE, 1);
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(LIVE_I_NEVERKNOWN,1);
}

do_die(object killer)
{
        tell_room(environment(killer), "Szkielet rozsypuje sie w proch.\n");
        ::do_die(killer);
}