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

void
create_monster()
{
    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("gigantyczny", "gigantyczni");
    dodaj_przym("owlosiony", "owlosioni");

    set_long("Jest to ogromny goryl. Patrzac na niego opanowywuje cie " +
             "groza. Sadzac po jego posturze i zachowaniu wnioskujesz " +
             "iz jest to krol gorylow. Na mysl przychodzi ci tylko " +
             "jedno - uciekaj! konfrontacja z nim nie nalezalaby do " +
             "najlepszych pomyslow.\n");

    set_stats(({ 250, 200, 250, 100, 100, 300 }));

    set_skill(SS_UNARM_COMBAT,200+random(50));
    set_skill(SS_PARRY,150);
    set_skill(SS_DEFENCE,250+random(25));
    add_prop(LIVE_I_NEVERKNOWN, 1);
    set_aggressive(1);
    set_all_hitloc_unarmed(250);
    add_weapon("/d/Imperium/arun/banan.c");

}