inherit "/std/monster.c";
#include <ss_types.h>
#include <pl.h>
#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>

string *losowy_przym()
{
string *lp;
string *lm;
int i;
lp=({ "duzy", "niewysoki", "wielki", "maly"});
lm=({ "duzi", "niewysocy", "wielcy", "mali"});
i=random(4);

return ({ lp[i] , lm[i] });

}
string *losowy_przym2()
{
string *lp;
string *lm;
int i;

lp=({ "glupi", "tepawy", "silny", "owlosiony"});
lm=({ "glupi", "tepawi", "silni", "owlosieni"});
i=random(4);

return ({ lp[i] , lm[i] });

}

void
create_monster()
{
    string *przm = losowy_przym();
    string *przm2 = losowy_przym2();

    ustaw_odmiane_rasy(({ "goryl", "goryla", "gorylowi", "goryla", 
"gorylem", "gorylu"}), ({ "goryle", "gorylow", "gorylom", "goryle", 
"gorylami", "gorylach"}), PL_MESKI_NOS_ZYW);

    dodaj_nazwy(({ "goryl", "goryla", "gorylowi", "goryla", 
"gorylem", "gorylu"}), ({ "goryle", "gorylow", "gorylom", "goryle", 
"gorylami", "gorylach"}), PL_MESKI_NOS_ZYW);

    dodaj_przym( przm[0], przm[1] );               
    dodaj_przym( przm2[0], przm2[1] );

    set_long("Jest to przedstawiciel rasy malp. Jest dosyc duzy, ale " +
             "za to pewnie bardzo glupi. Jest jednym z podwladnych krola " +
             "ktory zapewne gdzies tutaj mieszka. Ale, by dotrzec do " +
             "krola musialbys przejsc po trupach tych oto podwlasnych.\n");

    set_stats(({ 200+random(50), 175+random(50), 225+random(50),
75+random(50), 75+random(50), 250+random(50) }));


    set_skill(SS_UNARM_COMBAT,150+random(25));
    set_skill(SS_PARRY,100);
    set_skill(SS_DEFENCE,150+random(10));
    add_prop(LIVE_I_NEVERKNOWN, 1);
    set_aggressive(1);
    set_all_hitloc_unarmed(100);
    set_attack_unarmed(1, 100, 200, W_BLUDGEON, 100, "lapa");
}