inherit "/d/Imperium/std/monster.c";
#include "mezon.h"

#include "/d/Imperium/Varn/zabojcy/zabojcy_zabici.h"

#define PRZYMIOTNIKI ({ ({"wielki","wielcy"}), ({"brudny","brudni"}), ({"przygarbiony","przygarbieni"}), \
                         ({"potworny","potworni"}), ({"umiesniony","umiesnieni"}),\
                         ({"dziki","dzicy"}),({"jaskiniowy","jaskiniowi"}) })

#define LICZBA_PRZYMIOTNIKOW 7


void
create_monster()
{
        int i, j;
        i = random(LICZBA_PRZYMIOTNIKOW);
        j = random(LICZBA_PRZYMIOTNIKOW - 1);
        if(j >= i)
          ++j;
        dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
        dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);

      ustaw_nazwe(({"troll", "trolla", "trollowi", "trolla",
                "trollem", "trollu"}), ({"trolle", "trolli",
                "trollom", "trolle", "trollami", "trollach"}), PL_MESKI_NOS_ZYW);
      ustaw_odmiane_rasy(({"troll", "trolla", "trollowi", "trolla",
                "trollem", "trollu"}), ({"trolle", "trolli",
                "trollom", "trolle", "trollami", "trollach"}), PL_MESKI_NOS_ZYW);


        set_long("Masz przed soba gorskiego trolla, jednego z najbardziej "+
            "potwornych monstrow, jakie wydala na swiat Matka Ziemia. "+
            "Bez watpienia byla to sprawka bogow Chaosu. Osobnik, ktorego widzisz "+
            "przed soba, jest caly porosniety grubym futrem, ma nieproporcjonalnie "+
            "wielka glowe, zas z paszczy wystaja mu dlugie, krzywe kly.\n");


       set_gender(G_MALE);

     set_skill(SS_DEFENCE, 20 + random(25));
     set_skill(SS_WEP_CLUB, 25 + random(20));
     set_skill(SS_PARRY, 20 + random(25));
     set_skill(SS_BLIND_COMBAT, 80 + random(20));
     set_skill(SS_AWARENESS, 60 + random(20));

     set_all_hitloc_unarmed(10); /* gruboskorny skubaniec */
     set_alignment(-800);
     add_prop(CONT_I_HEIGHT, 230 + random(30));
     add_prop(CONT_I_WEIGHT, 280000 + random(20000));

     set_aggressive(1);
     set_restrain_path(({NPATH + "jaskinie/"}));
     add_prop(LIVE_I_NEVERKNOWN, 1);

     set_stats(({140 + random(15), 62 + random(10), 110 + random(15), 100, 100, 100 }));

     set_act_time(10 + random(10));
     add_act("emote beka przerazliwie.");
     add_act("emote slini sie.");
     add_act("emote usmiecha sie krzywo.");
     add_act("emote szczerzy przegnile kly.");
     add_act("podskakuje ociezale.");
     

     set_cact_time(random(5));
     add_cact("emote przymierza sie do precyzyjnego ciosu !");
     add_cact("emote na przekor swej wagi, zrecznie doskakuje do ciebie!");
     add_cact("emote bierze potezny zamach !");
     add_cact("krzyknij Ug!!");
    
     
    add_weapon(NPATH + "bronie/o_maczuga.c");

    set_aggressive(1);
}

public void
wesprzyj(object ob)
{
    if (query_attack())
    {
        return ;
    }
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Do boju!"); break;
            case 1: command("krzyknij Waaaaaagh!"); break;
            case 3: command("krzyknij Krwiiiii!"); break;
            case 4: command("krzyknij Smierci!!"); break;
        }
        return ;
    }

    switch(random(5))
    {
        case 0: command("powiedz do "+OB_NAME(ob)+" O Mamo !!!"); break;
        case 1: command("powiedz do "+OB_NAME(ob)+" Sam se radz."); break;
        case 2: command("powiedz do "+OB_NAME(ob)+" Chyba zartujesz ?!"); break;
        case 3: command("powiedz do "+OB_NAME(ob)+" He, he. Ja Ci nie pomoge...");
        				break;
        case 4: command("powiedz Ratunku!");
    }
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}

void
attacked_by(object wrog)
{
    command("krzyknij Pomocy !!");
    set_alarm(0.1, 0.0, "pomocy");
    return ::attacked_by(wrog);
}