
inherit "/std/monster";

#include "../defs.h"

#define PRZYMIOTNIKI (({({"obrzydliwy", "obrzydliwi"}), ({"makabryczny", "makabryczni"}), \
        ({"beztwarzy", "beztwarzi"}), ({"potepiony", "potepieni"}), \
        ({"jednooki", "jednoocy"}), ({"drzacy", "drzacy"}), \
        ({"stary", "starzy"}), ({"wyjacy", "wyjacy"}), \
        ({"smierdzacy", "smierdzacy"}), ({"zgnily", "zgnili"}), \
        ({"przymulony", "przymuleni"})}))

#define ILE_PRZYMIOTNIKOW 11

void
create_monster()
{
    int i, j;

    ustaw_odmiane_rasy(({"ghoul", "ghoula", "ghoulowi",
                "ghoula", "ghoulem", "ghoulu"}),
                ({"ghoule", "ghouli", "ghoulom",
                "ghouli", "ghoulami", "ghoulach"}),
                PL_MESKI_OS);

    add_prop(LIVE_I_NEVERKNOWN,1);
    set_gender(G_MALE);

    i = random(ILE_PRZYMIOTNIKOW);
    j = random(ILE_PRZYMIOTNIKOW - 1);

    if(j >= i)++j;
    dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
    dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);

    set_long("Jest to typowy przyklad zywego trupa, padlinozercy zerujacego "+
             "przewaznie na roznych cmentarzyskach. Starasz sie nie patrzyc w "+
             "miejscie gdzie kiedys byla calkiem ludzka twarz. Ten stwor napawa "+
             "cie odraza a zarazem czujesz jakby cierpienie jego potepionej duszy.\n");

    set_random_move(10,0);

    add_prop(LIVE_I_UNDEAD, 1);
    add_prop(CONT_I_HEIGHT, 180);
    add_prop(CONT_I_WEIGHT, 75000);

    set_stats(({100+random(70),55+random(100),100+random(70),20,35,120}));

    set_skill(SS_DEFENCE, 60+random(40));
    set_skill(SS_PARRY, 60+random(25));
    set_skill(SS_UNARM_COMBAT, 50+random(40));

    set_act_time(23 + random(15));
    set_cchat_time(5 + random(4));

    add_act("emote wyje: Jeeeessc!!");
    add_act("emote syczy potepienczo");
    add_act("emote przesuwa sie w twoim kierunku z wypisanym glodem na twarzy.");
    add_act("emote wydlubuje jakiegos robaka z ziemi poczym go zjada.");

    set_aggressive(1);
    set_restrain_path("/d/Imperium/Sylvania/lokacje/las/");
      set_alignment(-900);

}

