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/maczuga.c"
#define ARM HOME + "bronie/kkolcza.c"
#define SNOT HOME + "bronie/snotsc.c"

create_monster()
{
    
    ustaw_nazwe(({"opluj","opluja","oplujowi","opluja",
                  "oplujem","opluju"}),allocate(6),PL_MESKI_OS);

    ustaw_odmiane_rasy(PL_GOBLIN);
    add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);

    dodaj_przym("muskularny","muskularni");
    dodaj_przym("okrutny","okrutni");

    set_long("Prawa reka nieslawnego dowodcy bandy orkow terroryzujacych okolice. "+
             "Jest niesamowicie silny, glupi i lojalny. Jesli bys mial ochote "+
             "zaatakowac go, wiedz, ze swoj przydomek zawdziecza wlasnie dokonaniom na "+
             "polu bitwy.\n");
    
    set_gender(G_MALE); /* male = 0, female = 1, other = 2 */

    set_stats(({69,55,69,16,12,88}));

    set_skill(SS_WEP_CLUB, 70);
    set_skill(SS_DEFENCE, 66);
    set_skill(SS_PARRY, 54);
    
    set_chat_time(40+random(15));
    set_act_time(40+random(16));
    
    add_act("emote ziewa.");
    add_act("emote podrzuca resztki snotlinga, klaszcze i lapie je z powrotem.");
    add_act("emote wiaze snotlinga w wezel 'Osemke'.");
    add_act("emote trzyma baka, trzyma, trzyma, no nie, jednak puscil.");
    
    add_cchat("Zabije cie!");
    add_cchat("GRRRRRRRRRRRRRRRRRRRRRRRRRRRRR!");
    add_cchat("lupu, cupu i po klopocie.");
    add_cchat("ALARM! INTRUZI W OBOZIE!!");

    set_alignment(-330);

    add_weapon(WEP);
    add_armour(ARM);
    clone_object(SNOT)->move(TO);
}


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 Przybywam szefie!"); break;
            case 2: command("krzyknij Trzymaj sie Wodzu!"); 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 Szefie !! Pomoz !!");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}