inherit "/std/monster";
inherit "/cmd/std/command_driver";
#include "../mafia.h"

object ENG= "/d/Imperium/Alderazzi/engine/engine.c";
#include "karaberzy.h"

#define ADJp ({"zolty", "skosnooki",  "dlugowlosy", "wielki","opalony","przystojny" })
#define ADJm ({ "zolci", "skosnoocy", "dlugowlosi", "wielcy","opaleni","przystojni" })

void
create_monster()
{
        int los = random(sizeof(ADJp));
        dodaj_przym(ADJp[los], ADJm[los]);
    ustaw_odmiane_rasy(({"guardiano","guardiano","guardiano","guardiano","guardiano","guardiano"}),
                ({"guardiano","guardiano","guardiano","guardiano","guardiano","guardiano"}),
                PL_MESKI_OS);
    set_long("Straznik.\n");
     add_prop("_super_wykopisty_mafioz",1);
    add_prop(LIVE_I_NEVERKNOWN,1);
    set_gender(G_MALE);

    add_prop(CONT_I_HEIGHT, 150+random(100));
    add_prop(CONT_I_WEIGHT, 75000+random(500));
    add_prop(NPC_I_NO_FEAR, 1);
    set_stats(({500+random(50),530+random(50),500,25,25,250+random(25)}));

    set_skill(SS_DEFENCE, 125+random(25));
    set_skill(SS_PARRY, 90+random(10));
    set_skill(SS_WEP_KNIFE, 130+random(90));
    set_skill(SS_2H_COMBAT, 100);
    set_act_time(10 + random(15));
    set_cchat_time(7 + random(4));
    set_aggressive("@@atak");



    add_ask(({"pomoc","wsparcie"}),
        VBFC_ME("pomos"));

    add_weapon(OBJ+"sztylet2.c");
    add_weapon(OBJ+"sztylet.c");
}


int
pomos(string str)
{

int i;
	if(ENG->czy_czlonek(TP->query_real_name())==1)
		{
	

                this_object()->command("krzyknij DO BRONI!");
                this_object()->command("wesprzyj "+this_player()->query_real_name(PL_BIE));

				return 1;
	}
	write("Carabinierzy cie nie sluchaja.\n");
	return 1;
}




void
special_attack(object cel)
{
string jak;
  object room = environment(TO); 
   int suma = 0;
    int pen = 0; 
   //suma = return_pen(TP,cel,100); 
   pen = (TP->query_skill(3)*10+TP->query_stat(1)+TP->query_stat(3)-random(300)/2);

   if (!present(cel,room)) 
   {   TP->catch_mng(QCIMIE(cel,PL_MIA)+" uciekl ci.\n");        
	TP->set_cios(0);

     
 return;  
  }      
  switch(pen)      
  {      
      case 0..10:           

 jak = "zaledwie muskajac";           
 break;    
            case 11..200:     
      
 jak = "muskajac";  
          break;
            case 201..400:
            jak = "pozostawiajac widoczne slady";
            break;
                case 401..600:
            jak = "lekko raniac";
            break;
                case 601..1000:
            jak = "raniac";
            break;
                case 1001..1200:
            jak = "powaznie raniac";
            break;
                case 1201..1500:
            jak = "bardzo ciezko raniac";
            break;
                case 1501..1800:
            jak = "masakrujac";
            break;
            default:
            jak = "prawie zabijajac";
            
        }
//DAMAGE

   cel->hit_me(pen, W_SLASH, 1000, TO, -1 );

//OPIS GDY ZABIL CIOSEM
   if (cel->query_hp()<1)
    {
TO->catch_msg("Zauwazasz luke w obronie swego przeciwnika - "+
                 QIMIE(cel,PL_NAR)+" i szybko ja wykorzystujesz. Tnies na oslep celujac "
		+"w nieosloniete cialo wroga. Po chwili widzisz efekty - martwe cialo "
		+"pod twymi stopami.\n");
   tell_room(room,""+QCIMIE(TO,PL_MIA)+" zauwaza luke w obronie swego przeciwnika - "+
              QIMIE(cel,PL_BIE)+" i szybko ja wykorzystuje. Tnie na oslep celujac "
		+"w nieosloniete cialo wroga. Po chwili widac efekty tej pracy - "
		+"martwe cialo lezy u stop "+QCIMIE(TO,PL_DOP)+".\n",({TO,cel}));
  cel->catch_msg("Walczac z "+QIMIE(TO,PL_NAR)+" popelniasz krytyczny blad i odslaniasz "
                +"sie. Przeciwnik bezlitosnie wykorzystuje ta sytuacje tnac w twe "
		+"nieosloniete cialo. Padasz martw"+cel->koncowka("y","a")+" u stop "
		+QIMIE(TO,PL_DOP)+".\n");
                 
                 cel->set_hp(0);
                 cel->do_die(TO);

    return;
    }
    
    
//OPISY GDY NIE ZABIL
TO->catch_msg("Celujac w nieosloniete cialo "+QIMIE(cel,PL_DOP)+" wyprowadzasz szybka "
		+"kontre swoimi sztyletami "+jak+" przeciwnika.\n");
    cel->catch_msg(QCIMIE(TO,PL_MIA)+" celujac w twe nieosloniete cialo wyprowadza "
		+"szybka kontre swoimi sztyletami "+jak+".\n");
    tell_room(room,""+QCIMIE(TO,PL_MIA)+" celujac w nieoslonite cialo "+QIMIE(cel,PL_DOP)
		+" wyprowadza szybka kontre swoimi sztyletami "+jak+".\n", ({TO,cel}));
    
  // czas=3.0;



}