inherit "/d/Imperium/std/zwierze";

#include "/d/Imperium/Sylvania/defs.h"

#define PRZYMIOTNIKI (({({"obrzydliwy", "obrzydliwi"}), ({"makabryczny", "makabryczni"}), \
        ({"krwiozerczy", "krwiozerczy"}), ({"potepiony", "potepieni"}), \
        ({"oslopyski", "oslopyski"}), ({"kudlaty", "kudlaci"}), \
        ({"obslizgly", "obslizgli"}), ({"grozny", "grozni"}), \
        ({"krepy", "krepi"}), ({"przerazajacy", "przerazajacy"}), \
        ({"koscisty", "koscisci"})}))

#define ILE_PRZYMIOTNIKOW 11

void
create_zwierze()
{
    int i, j;

    ustaw_odmiane_rasy(({"mutant", "mutanta", "mutantowi",
                "mutanta", "mutantem", "mutancie"}),
                ({"mutanci", "mutantow", "mutantom",
                "mutantow", "mutantami", "mutantach"}),
                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("Paskudna mutacja powstala przy udziale ciemnej magii panaszacej sie tutaj. "+
             "prawdopodbnie kiedys byl to mieszkaniec tutajszych okolic teraz jednak zamienil "+
             "sie w szalenca kreature kierujaca sie dzikimi instynktami.\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_attack_unarmed(40, 40, 40,W_IMPALE, 100,"zebami");
    set_attack_unarmed(40, 40, 40,W_SLASH, 100,"pazurami");
    set_attack_unarmed(40, 40, 40,W_BLUDGEON, 100,"ogonem");
    set_hitloc_unarmed(1, ({30,40,50}), 30,"korpus");
    set_hitloc_unarmed(2, ({20,30,40}), 70,"glowe");


    add_act("emote syczy.");
    add_act("emote ryczy przerazajaco.");

    set_aggressive(1);
    set_restrain_path("/d/Imperium/Sylvania/lokacje/drakenhof/");
    set_alignment(-1000);

}