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", "zolty", "wielki", "maly", "zielonkawy"});
lm=({ "duzi", "zolci", "wielcy", "mali", "zielonkawi"});
i=random(5);

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

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

lp=({ "zakrzywiony", "gruboskory", "dojrzaly", "niedojrzaly"});
lm=({ "zakrzywieni", "gruboskorzy", "dojrzali", "niedojrzali"});
i=random(4);

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

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

    ustaw_odmiane_rasy(({ "banan", "banana", "bananowi", "banan", 
"bananem", "bananie"}), ({ "banany", "bananow", "bananom", "banany", 
"bananami", "bananach"}), PL_MESKI_NOS_ZYW);

    dodaj_nazwy(({ "banan", "banana", "bananowi", "banan", 
"bananem", "bananie"}), ({ "banany", "bananow", "bananom", "banany", 
"bananami", "bananach"}), PL_MESKI_NOS_ZYW);

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

    set_long("Jest do niewiarygodnie duzy banan. Dziwisz sie, ze on " +
             "wogole stoi. Przygladajac mu sie dokladniej mozesz " +
             "wyroznic poszczegolne konczyny a takze oczy.\n");

    set_stats(({ 250+random(50), 300+random(50), 250+random(50), 
500+random(50), 500+random(50), 300+random(50) }));


    set_skill(SS_UNARM_COMBAT,250+random(25));
    set_skill(SS_PARRY,200);
    set_skill(SS_DEFENCE,250+random(50));
    add_prop(LIVE_I_NEVERKNOWN, 1);
    set_aggressive(1);
    set_all_hitloc_unarmed(100);
}