inherit "/std/monster";
#include "szturmix.h"
string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "zly"  ,"mily"  ,"uwazny"  ,"potezny"  ,"krzepki"});
 lm=({ "zli"  ,"mili"  ,"uwazni" ,"potezni"  ,"krzepcy"});
 i=random(5);

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

string *losowy_przym2()
 {
 string *lpc;
 string *lmc;
 int j;
 lpc=({ "szczuply"  ,"bardzo chudy"  ,"dlugonosy"  ,"zadowolony"  ,"zmeczony"});
 lmc=({ "szczupli"  ,"bardzo chudzi"  ,"dlugonosi" ,"zadowoleni"  ,"zmeczeni"});
 j=random(5);

 return ({ lpc[j] , lmc[j] });

 }

void
create_monster()
{
    string *przm;                
    string *przm2;
    przm = losowy_przym();
    przm2 = losowy_przym2();



    ustaw_odmiane_rasy(({"halabardnik", "halabardnika", "halabardnikowi",
                "halabardnika", "halabardnikiem", "halabardniku"}),
                ({"halabardnicy", "halabardnikow", "halabardnikom",
                "halabardnikow", "halabardnikami", "halabardnikach"}),
                PL_MESKI_OS);
    set_long("Jest to badz co badz zadowolony z siebie czlowiek, ktory "
	+"najczesciej stoi na strazy. Musial stoczyc juz niejedna "
	+"zwycieska walke - na jego ciele widnieja liczne blizny i rany. "
	+"Jego ubior stanowia wykonane w tutejszej kuzni zbroje dla "
	+"zolnierzy. I choc cos cie kusi, aby sie z nim sprawdzic to "
	+"nie wiesz czy to nie byloby bledne posuniecie...\n");

    add_prop(LIVE_I_NEVERKNOWN,1);
    set_gender(G_MALE);
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm2[0], przm2[1] );
    set_random_move(3,0);
    set_restrain_path(LOK+"koszary/");


    add_prop(CONT_I_HEIGHT, 150+random(100));
    add_prop(CONT_I_WEIGHT, 55000+random(500));

    set_stats(({55+random(10),60+random(10),110+random(10),55,15,50+random(40)}));

    set_skill(SS_DEFENCE, 50+random(10));
    set_skill(SS_PARRY, 90+random(10));
    set_skill(SS_WEP_POLEARM, 90+random(10));
    set_act_time(10 + random(15));
    set_cchat_time(1 + random(4));
    set_alignment(400);
    add_act("emote stoi nieruchomo.");
    add_act("emote usmiecha sie pod nosem.");
    add_act("emote spoglada w twoja strone.");
    add_act("emote mowi: Lepiej stad idz.");
    add_act("emote mowi: Tutaj nie jest wcale bezpiecznie.");


    add_cchat("Zabije cie jak psa!");
    add_cchat("Gin!");
    add_cchat("Nie pokonasz mnie!");
    add_cchat("Uwazaj, teraz cie zabije!");

    add_weapon(SPPATH + "hhalabarda.c");
    add_armour(SPPATH + "hhelm.c");
    add_armour(SPPATH + "hnapierch.c");
}
public void
wesprzyj_zol(object ob)
{
    command("wesprzyj " + OB_NAME(ob));
}

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

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