inherit "/std/monster";     
inherit "/std/combat/unarmed";  
#include <filter_funs.h>
#include <ss_types.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <cmdparse.h>
#include <macros.h>
#include <pl.h>
#include <options.h>
#include <money.h>
#include <macros.h>
#include <formulas.h>
void
create_monster()
{
    add_prop(LIVE_I_NEVERKNOWN,1);


    ustaw_odmiane_rasy( ({"hirik", "hirika", "hirikowi", "hirika",
                "hirikiem", "hiriku"}), ({"hiriki", "hirikow",
                "hirikom", "hiriki", "hirikami", "hirikach"}), PL_MESKI_NOS_ZYW);

    dodaj_przym("oslizgly", "oslizgli");
    dodaj_przym("walcowaty", "walcowaci");


    set_long("Potwor bedacy przedstawicielem duzej pijawki (albo czegos w tym guscie)."+ 
             "Zywi sie krwia, ich slina zawiera hirudyne srodek hamujacy krzepniecie "+
             "krwi co moze doprowadzic ofiare do wykrwawienia sie na smierc..\n");

    set_gender(G_MALE);
    set_random_move(5);
    set_exp_factor(150);
    add_prop(CONT_I_WEIGHT, 44000); 
   set_aggressive(1);
    add_prop(CONT_I_HEIGHT, 140);   

    set_attack_unarmed(1, 40, 15, W_IMPALE,  30, "zabkami wokol ssawki");
    set_attack_unarmed(4, 40, 10, W_BLUDGEON, 70, "oblym cielskiem");

    set_hitloc_unarmed(0, 190, 20, "leb");
    set_hitloc_unarmed(1, 190, 60, "walcowaty odwlok");
    set_hitloc_unarmed(4, 190, 20, "segment cielska");

    set_skill(SS_BLIND_COMBAT, 100);
    set_stats(({270, 30, 220, 90, 101, 124}));
    MONEY_MAKE_GC (random(50))->move(this_object());

    set_skill(SS_DEFENCE,10);
    set_alignment(-200);

    set_cact_time(5);
    add_cact("emote wlecze sie powoli w kierunku twoich nog.");
    add_cact("emote pluje swiezo wyssana krwia.");
    add_cact("emote rzuca sie na ciebie zaczynajac ssac krew z nogi. Poteznym kopnieciem odrzucasz ja "+
             "na bezpieczna odleglosc.\n");

}