inherit "/d/Imperium/std/potwor.c";

#include <ss_types.h>
#include <wa_types.h>
#include <macros.h>
#include <stdproperties.h>
#define PRZYMIOTNIKI ({({"potezny","potezni"}),({"czarny","czarni"}), \
                       ({"wlochaty","wlochata"}),({"brudny","brudni"}), \
                       ({"zakrwawiony","zakrwawieni"})})
#define LICZBA_PRZYMIOTNIKOW 5
void
create_potwor()
{   int i, j;

    ustaw_nazwe(({ "bestia", "bestii","bestii", "bestie","bestia","bestii"}),
                 ({ "bestie", "bestii","bestiom","bestie","bestiami",
"bestiach" }),
                    PL_ZENSKI);
     ustaw_odmiane_rasy(({ "bestia", "bestii","bestii", "bestie","bestia","best-
ii"}),
                 ({ "bestie", "bestii","bestiom","bestie","bestiami",
"bestiach" }),
                    PL_ZENSKI);

    set_long("Jest to dziwne niewielkie zwierzatko. Odrazu widzisz "
           + "ze nie pasuje do tego swiata. Patrzysz na to cos "
           + "i probujesz zgadnac jakiej plci jest to zwierzatko. "
           + "A moze ono w ogole czegos takiego nie ma? Hmmm. "
           + "Musisz nad tym kiedys "
           + "sie zastanowic. Narazie tylko widzisz jak to cos "
           + "chmyczy, bryczy i gmyczy do wszystkich i wszystkiego. "
           + "Gdy przygladasz sie uwazniej zauwazasz dwa kly, "
           + "ktore wystaja z czegos, czego nikt by nie nazwal paszcza. "
           + "Czyli widzisz przed soba cos odrazajacego, ale jednoczescie "
           + "przyciagajacego, bo nigdy czegos takiego nie widziales. "
           + "I nie wiadomo czy kiedys jeszcze sie z tym spotkasz.\n");

    set_gender(G_FEMALE);
  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]);

    set_random_move(20);
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(CONT_I_WEIGHT, 270000);
    add_prop(CONT_I_HEIGHT, 165);

    set_stats(({ 105, 80, 45, 40, 50, 45}));

    set_skill(SS_DEFENCE, 45);


    set_hitloc_unarmed(2, ({4,4,5}), 30, "pysk");
    set_hitloc_unarmed(8, ({3,3,3}), 50, "tulow");
    set_hitloc_unarmed(1, ({2,3,3}), 20, "lape");
    set_attack_unarmed(1, 10, 35, W_IMPALE,  40, "klami");
    set_attack_unarmed(4, 20, 10, W_BLUDGEON, 30, "prawa lapa");
    set_attack_unarmed(3, 20, 10, W_BLUDGEON, 30, "lewa lapa");
    set_alignment(-100);
    set_aggressive(1);
    set_act_time(10 + random(10));
    add_act("emote wyje przerazliwie.");
    add_act("emote otwiera szeroko pysk.");
    add_act("emote tupie lapami o ziemie.");
}