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

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

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

int i = 0;

#define A1 "/d/Imperium/Nuln/lokacje/plac"
#define A2 "/d/Imperium/Nuln/lokacje/poln"
#define A3 "/d/Imperium/Nuln/lokacje/poln1"
#define A4 "/d/Imperium/Nuln/lokacje/poln2"
#define A5 "/d/Imperium/Nuln/lokacje/glowna"
#define A6 "/d/Imperium/Nuln/lokacje/glowna1"
#define A7 "/d/Imperium/Nuln/lokacje/ulica_6"
#define A8 "/d/Imperium/Nuln/lokacje/kranc"

int
atak()
{
    if (!interactive(TP))
	return 1;

    if (TP->query_prop("wypatrzony") >= 3)
	{
	TP->attack_object(TO);
	}
	
	TP->add_prop("wypatrzony",TP->query_prop("wypatrzony")+1);
	return 0;
}

void
create_monster()
{
    ustaw_odmiane_rasy(({"terminator","terminatora","terminatorowi","terminatora",
	"terminatorem","terminatorze"}),({"terminatorzy","terminatorow","terminatorom",
	"terminatory",	"terminatorami","terminatorach"}),PL_MESKI_OS);
    
    
    dodaj_przym("wielki","wielcy");
    dodaj_przym("pancerny","pancerni");

    set_long("Na potezna sylwetka terminatora sklada sie niesamowicie "+
	"ciezki pancerz, ktory chroni kazdy element ciala, ktore zapewne "+
	"wewnatrz i tak nie ma. Nie masz pojecia jak to cos funkcjonuje, "+
	"aczkolwiek mozesz sie domyslac iz jest to przybysz z innej "+
	"planety. W dloniach dzierzy olbrzymi przyrzad niewiadomo do czego "+
	"sluzacy.\n");
    
    set_skill(SS_SHIELD_PARRY, 100);
    set_skill(SS_WEP_SWORD,100);
    set_skill(SS_DEFENCE,100);
    set_skill(SS_AWARENESS,100);
    set_skill(SS_PARRY,100);
    set_skill(SS_SHIELD_PARRY,85);
    

    set_stats (({300,200,350,30,30,100}));

    
    set_cchat_time(30 + random(20));
    
    add_cchat("Nie rozumiem smiertelnikow...");
    add_cchat ("Mozesz conajwyzej oblizac mego stalowego kutasa.");
    add_cchat("Odejdz!");
    add_cchat("Zjebany ryju!");
    add_cchat("Takie kabaty jak ty wpierdalam na sniadanie i popijam smarem "+
	"do chlodnic...\n");
    
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(NPC_I_NO_RUN_AWAY,1);
    
    add_armour("/d/Imperium/vic/ug/cyb_plate");    
    
    set_restrain_path(({A1,A2,A3,A4,A5,A6,A7,A8}));
     set_random_move(1);

    set_aggressive("@@atak");
    set_npc_react(1);
}   



void
attacked_by(object wrog)
{
object par;
setuid();
seteuid(getuid());
    par=clone_object("/std/paralyze");
    par->set_fail_message("Nie zdolasz mu teraz uciec!\n");
    par->set_stop_message("Czujesz, ze paraliz mija.\n");
    par->set_remove_time(15);
    par->move(wrog);
    
    command("krzyknij Lac pierdolca!");
    command("emote szczerzy rzad stalowych zebow.");
    set_follow(wrog,0.1,1);
    
    return ::attacked_by(wrog);
}





void
special_attack( object ob )
{

    if ( i == 3 || !interactive(ob))
	{
	ob->catch_msg(""+QCIMIE(TO,PL_MIA)+" wycelowuje w ciebie z "+
	    "pieciolufowego urzadzenia, a ty czujesz potworny bol "+
	     "kiedy grad pociskow rani twoje cialo!\n");
	tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" wycelowuje w "+
	""+QIMIE(ob,PL_BIE)+", a grad pociskow z pieciolufowego "+
	"mechanizmu dzierzonego przez terminatora rani "+ob->koncowka("go","ja")+" "+
	"bardzo mocno!\n",({TP,ob}));
	ob->reduce_hit_point(800);
	if (ob->query_hp()<1)
	ob->do_die();
	i=0;
	}	
i++;


}