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

#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>
#include <wa_types.h>

string *losowy_przym()
{
    string *lp;
    string *lm;
    string *lp2;
    string *lm2;
    int i;
    int j;
    lp=({ "niski" ,"kulejacy" ,"jeczacy" ,"jednooki"});
    lm=({ "niskie" ,"kulejace" ,"jeczace","jednookie"});
    lp2=({"smierdzacy","owrzodzony","potezny","chrapliwy"});
    lm2=({"smierdzace","owrzodzone","potezne","chrapliwe"});
    i=random(4);
    j=random(4);
    return ({ lp[i] , lm[i], lp2[j], lm2[j] });
}
create_monster()
{
    string *przm = losowy_przym();  
    ustaw_odmiane_rasy( ({"ghoul","ghoula","ghoulowi","ghoula","ghoulem","ghoulu"}),
                                                ({"ghoule","ghouli","ghoulom","ghoule","ghoulami","ghoulach"}),PL_MESKI_NOS_ZYW);

    add_prop(LIVE_I_NEVERKNOWN, 1);
    set_gender(G_MALE);
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm[2], przm[3] ); 

    set_stats(({ 190, 230, 170, 120, 120, 170})); 
    set_long("Istota ktora masz przed soba jeszcze " +
                     "do niedawna z pewnoscia byla czlowiekiem. " +
                     "Teraz jednak nic na to nie wskazuje.Dlugie " +
                     "brudne oblepione ziemia paznokcie sluza mu do " +
                     "rozkopywania grobow w celu poszukiwania " +
                     "pozywienia.Tluste czesciowo wyrwane wlosy " +
                     "pozlepiane sa ziemia i zakrzepla " +
                     "krwia.Dziwnym metnym wzrokiem wodzi dookola " +
                     "w poszukiwaniu ofiary.Mimo powolnych ruchow i " +
                     "ospalosci moze byc bardzo niebezpieczny.\n");
    set_act_time(35);
    add_act("emote wyciaga w Twoim kierunku swoje brudne rece.");
    add_act("emote jeczy: mieessssso.....");
    add_act("emote przekrzywia glowe i wpatruje sie w Ciebie niepokojacym wzrokiem.");
    add_act("emote kustyka niezdarnie w Twoim kierunku.");;
    set_skill(SS_UNARM_COMBAT, 80); 
    set_skill(SS_DEFENCE, 80);
    set_skill(SS_BLIND_COMBAT, 15);
    set_skill(SS_AWARENESS, 1);
    
}