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

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

#define WEP HOME + "bronie/sztylet1.c"
#define ARM HOME + "bronie/kkolcza.c"

create_monster()
{
    int i;

    ustaw_nazwe( ({ "krepus", "krepusa", "krepusowi", "krepusa", "krepusem",
        "krepusie" }), allocate(6), PL_MESKI_OS);
        
    ustaw_odmiane_rasy(PL_ORK);
    
    dodaj_przym("mocarny", "mocarni");
    dodaj_przym("potezny", "potezni");
    
    set_long("Nieslawny dowodca bandy orkow terroryzujacych okolice. "+
             "Krepus Mocarny we wlasnej osobie. Te krzywe kly, cuchnacy oddech, "+
             "ubrudzone krwia i jedzeniem ubranie... Tak. Nie ma watpliwosci. To on.\n");
             
    set_gender(G_MALE); /* male = 0, female = 1, other = 2 */

    set_stats(({48,43,54,26,26,67}));
    set_skill(SS_WEP_KNIFE, 50);
    set_skill(SS_DEFENCE, 55);
    set_skill(SS_PARRY,56);
    
    set_chat_time(45+random(10));
    set_act_time(45+random(10));
    
    add_act("emote patrzy na ciebie spode lba.");
    add_act("emote ziewa.");
    add_act("emote pogania zolnierzy do szybszej pracy.");
    add_act("emote ostrzy miecz.");
    
    add_chat("Co za kretyni!");
    add_chat("Pracujcie szybciej, durnie!");
    add_chat("Heh, heh, oni pracuja a wszystkie lupy i tak sa moje...");
    add_chat("Co tu robisz, robaku!");
    
    add_cchat("Zabije cie!");
    add_cchat("Umrzesz w meczarniach! Moj miecz splynie twoja krwia!");
    add_cchat("Zabije cie jak psa!");
    add_cchat("STRAZE!! INTRUZI!!");
    add_cchat("ZABIJE CIE!!");
    add_cchat("ALARM! INTRUZI W OBOZIE!!");
    set_alignment(-230);
    
    add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);
    
    add_armour(ARM);
    add_weapon(WEP);
    
}

void
add_introduced(string imie)
{
    set_alarm(2.0,0.0,"return_intro",imie);
}

varargs void
return_intro(string kto)
{
    command("przedstaw sie " + find_player(kto)->query_real_name(PL_CEL));
}

string
query_presentation()
{
    return"Krepus Mocarny, Szef Bandy, ork";
}

public void
wesprzyj(object ob)
{
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Do boju!"); break;
            case 1: command("krzyknij Bic mojego asystenta?"); break;
            case 2: command("krzyknij Zginiesz!"); break;
            case 3: command("krzyknij Pozalujesz chlystku!"); break;
        }
        return ;
    }

    switch(random(2))
    {
        case 0: command("powiedz O Mamo !!!"); break;
        case 1: command("powiedz Ratunku!");
    }
}

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

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