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

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

#define TO this_object()
#define TP this_player()




void
create_monster()
{
    ustaw_odmiane_rasy(({"czlowiek","czlowieka","czlowiekowi","czlowieka",
	"czlowiekiem","czlowieku"}),({"ludzie","ludzi","ludziom","ludzi",
	"ludzmi","ludziach"}),PL_MESKI_OS);
    
    
    dodaj_przym("srogi","srodzy");
    dodaj_przym("ciemnooki","ciemnoocy");

    set_long("Jest to uzbrojony po zeby kapitan gwardii w Nuln. "+
	"Slyna z wielkiej sily i umiejetnosci, ktore doceni kazdy "+
	"wojownik.\n");

    set_skill(SS_SHIELD_PARRY, 100);
    set_skill(SS_WEP_SWORD,100);
    set_skill(SS_DEFENCE,95);
    set_skill(SS_AWARENESS,100);
    set_skill(SS_PARRY,95);
    set_skill(SS_SHIELD_PARRY,85);
    

    set_stats (({300,200,300,30,30,100}));
    
    
    set_cchat_time(30 + random(20));
    
    add_cchat("Zarac ci rozwale ten zakuty leb smierdzaca kupo gnoju!");
    add_cchat ("Zasrales mi pol garnizonu! Nadszedl czas zaplaty!");
    add_cchat("Twoje zycie jest jak wiater w mym zadzie!");
    
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(NPC_I_NO_RUN_AWAY,1);
    
    add_weapon("/d/Imperium/vic/ug/kpt_sword");
    add_armour("/d/Imperium/vic/ug/kpt_helm");
    add_armour("/d/Imperium/vic/ug/kpt_kirys");
    add_armour("/d/Imperium/vic/ug/kpt_narl");
    add_armour("/d/Imperium/vic/ug/kpt_narp");
    add_armour("/d/Imperium/vic/ug/kpt_nagolen");
    add_armour("/d/Imperium/vic/ug/kpt_puklerz");
    add_armour("/d/Imperium/vic/ug/kpt_puklerz");    
     
}   



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





void
ublok( object ofiara )
{
ofiara->remove_stun();
ofiara->catch_msg("Odzyskujesz swiadomosc umyslu.\n");
}

void
special_attack( object ob )
{
int stun;
stun = random(100);


    if ( stun < 35 )
	{
	ob->catch_msg(""+QCIMIE(TO,PL_MIA)+" z wielkim impetem uderza cie "+
	    "w glowe swoim ciezkim puklerzem! Tracisz orietacje!\n");
	tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" "+
	"wykonuje potezny zamach ciezkim, stalowym puklerzem "+
	"ogluszajac "+QIMIE(ob,PL_BIE)+".\n",({TP,ob}));
		ob->add_stun();	
		ob->set_fatigue(ob->query_fatigue()-200);
	set_alarm(8.0,0.0,"ublok",ob);
	
	}	
	

}