inherit "/d/Imperium/std/monster.c";
inherit "/std/act/add_things.c";
inherit "/std/act/action";

#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include "local.h"
#include <wa_types.h>
#include <filter_funs.h>

#define WEP HOME + "bronie/noz2.c"
#define ARM HOME + "bronie/plaszcz.c"

string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "zakapturzony","wysoki","szczuply","niski","zgarbiony"});
 lm=({ "zakapturzeni","wysocy","szczupli","niscy","zgarbieni"});
 i=random(5);

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

 }

create_monster()
{
string *przm = losowy_przym();                
    set_long(capitalize(przm[0])+" wyznawca Chaosu. Jest ubrany w ciemnobrazowa szate, ciemne spodnie i wysokie"+
                                 " buty z cholewami. Przy grubym, skorzanym pasie ma pochewke na sztylet i kilka"+
                                 " woreczkow. Na twarzy ma fanatyczny grymas i wydaje sie byc calkowicie pochloniety"+
                                 " modlami do swojego mrocznego boga.\n");
             
    dodaj_nazwy(({ "wyznawca", "wyznawcy", "wyznawcy", "wyznawce",
        "wyznawca", "wyznawcy" }), ({ "wyznawcy", "wyznawcow",
        "wyznawcom", "wyznawcow", "wyznawcami", "wyznawcach" }),
        PL_MESKI_OS);
    
    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    dodaj_przym( przm[0], przm[1] );  

    set_gender(G_MALE);
      
    add_prop(LIVE_I_NEVERKNOWN, 1);

    set_stats(({25+random(30),35+random(30),20+random(30),30,33,51}));
    set_hp(this_object()->query_max_hp());
    set_skill(SS_DEFENCE, random(10)+15);
    set_skill(SS_PARRY, random(10)+10);
    set_skill(SS_WEP_KNIFE,random(30)+10);    
    set_chat_time(45+random(10));
    set_act_time(32+random(10));
    
    add_act("emote mruczy jakas modlitwe.");
    add_act("emote pochyla glowe i zdaje sie cos mamrotac.");
    add_act("emote wyjmuje z jednego z woreczkow garsc szarawego proszku i posypuje nim posadzke, tworzac jakis wzor.");
    add_act("emote podchodzi do oltarza i sztyletem wycina jakis znak na ciele.");
    add_act("emote pochyla w modlitwie glowe.");
    add_act("emote dotyka reka czola, kleka i rysuje na posadzce jakis wzor.");
    add_act("emote spiewnie cos recytuje.");
    add_act("emote wklada dlonie w rekawy szaty i potakujac glowa w takt swych slow obchodzi sale do okola, nie zwracajac na ciebie uwagi.");

    add_chat("Nostro deli con asurge!");
    add_chat("Rum caseri rumma caste.");
    add_chat("Cetri mana son valla, sunt herba vialla.");
    add_chat("Tsien satti nas otre mala.");
    add_chat("Sur responsa Tsien caris!");
    
    add_cchat("Nostra terri re!");
    add_cchat("Tsien cie ukarze!");
    add_cchat("Jeszcze dzis twoj duch stanie przed Panem!");
    add_cchat("Niech Stworca-Niszczyciel zabierze twa dusze!");
    add_cchat("Bracia, nie przerywajcie modlow! Musimy wykonac misje!");
    add_cchat("Na siedem piekiel, odwazny jestes, smiertelniku. Wkrotce spotkasz mojego Pana!");
    
    add_cact("emote wskazuje na ciebie otwarta dlonia. Czujesz, ze twoje serce zatrzymalo sie na chwile!");
    add_cact("emote blyska oczami i obraca sztylet w dloni.");
    add_cact("emote szykuje sie do zadania decydujacego pchniecia.");
    add_cact("emote lekko zacina cie swoim sztyletem. Dretwieja ci rece!\nNa szczescie szybko odzyskujesz czucie w dloniach.");

    set_alignment(-200);

    add_weapon(WEP);
    add_armour(ARM);        
}


public void
wesprzyj(object ob)
{
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Zginiesz gnido!"); break;
            case 1: command("krzyknij Tu spotkasz swa smierc!"); break;
            case 2: command("zasmiej sie diabel"); break;
            case 3: command("krzyknij Pozalujesz chlystku!"); break;
        }
        return ;
    }
}

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

void
attacked_by(object wrog)
{
    command("krzyknij Wesprzyjcie mnie, Bracia!!");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}