//Sierzant, patrolujacy miasto Nuln
//Copyright (c) 1997 Tigran Latchinian "Tigr"
//Ostatnie zmiany wprowadzone 22.05.1997
inherit "/std/monster";

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

#define MIECZ NPATH + "/bronie/miecz.c"
#define KOLCZ NPATH + "/zbroje/kolczuga2.c"
#define GWARD NPATH + "/npc/guard7.c"

#define PRZYM ({({"wysoki","wysocy"}),({"barczysty","barczysci"}),({"postawny","postawni"}),({"ciemnooki","ciemnoocy"}),({"krotkobrody","krotkobrodzi"}),({"ogorzaly","ogorzali"})})
#define LPRZYM 6

druzyna(object *gw)
{
    object sierz;
    int i;
    
    sierz = this_object();
    
    for (i=0; i , sizeof(gw); i++){
      gw[i]->move_living("M",environment(sierz));
      team_join(gw[i]);
    }
}

void
create_monster()
{
    int i,j;
    object gw1,gw2,sierz;
    
 u   seteuid(getuid());
    
    sierz = this_object();
    
    i = random(LPRZYM);
    j = random(LPRZYM-1);
    
    if (j>=i)
    	++j;
    
    ustaw_nazwe(({"sierzant","sierzanta",
	    	  "sierzantowi","sierzanta",
        	  "sierzantem","sierzancie"}),
        	    
        	({"sierzanci","sierzantow",
        	  "sierzantom","sierzantow",
        	  "sierzantami","sierzantach"}),PL_MESKI_OS);
        
    set_gender(G_MALE);
       
    set_living_name("_tigr_live_guard_8");
    
    set_long("Sierzant rozkazuje patrolowi w czasie dyzuru. Jest doswiadczonym w walkach gwardzista, ktory awansowal w spokojnych czasach.\n");
    
    ustaw_odmiane_rasy(({"sierzant","sierzanta",
	    	  	 "sierzantowi","sierzanta",
        	  	 "sierzantem","sierzancie"}),
        	    
        	       ({"sierzanci","sierzantow",
        	  	 "sierzantom","sierzantow",
        	 	 "sierzantami","sierzantach"}),PL_MESKI_OS);
    
    dodaj_przym(PRZYM[i][0],PRZYM[i][1]);
    dodaj_przym(PRZYM[j][0],PRZYM[j][1]);
    
    add_prop(CONT_I_WEIGHT, 79000);
    add_prop(CONT_I_HEIGHT, 183);
    add_prop(LIVE_I_NEVERKNOWN, 1);
    
    mieszkaniec_nuln();

//    set_random_move(120);
    
    set_stats(({68,62,69,50,48,93}));
    
    set_skill(SS_WEP_SWORD, 40 + random(5));
    set_skill(SS_UNARM_COMBAT, 35 + random(10));
    set_skill(SS_DEFENCE, 35 + random(10));
    set_skill(SS_PARRY, 35 + random(5));
    
    set_hp(query_max_hp());
    
    add_weapon(MIECZ);
    add_armour(KOLCZ);
    
    gw1 = clone_object("/d/Imperium/tigr/nuln/npc/guard7");
    
    gw2 = clone_object("/d/Imperium/tigr/nuln/npc/guard7");

    set_chat_time(20 + random(20));
    
    add_chat("\nNo dobra, ruszac sie.");
    add_chat("\nIdziemy dalej.");
    
    set_act_time(20 + random(20));
    
    add_act("emote pokrzykuje na gwardzistow.");
    add_act("emote poprawia kolczuge.");
    
    seq_new("zbroi_sie");
    seq_addfirst("zbroi_sie",({"@@arm_me"}));
    
    set_alarm(5.0,0.0,"druzyna",({gw1,gw2}));
}   
arm_me()
{
    command("wloz kolczuge");
    command("wield miecz");
}
void attacked_by (object wrog)
{
    object *grupa;
    int i;
    object leader;
  
    leader = query_leader();
    if (!(!leader))
       if (leader==this_object())
          grupa = query_team();
       else 
         {
             grupa = leader->query_team();
             grupa+= ({ leader }) - ({ this_object() });
         }
    else
      return;
  
    if (!sizeof(grupa))
       return;
    for (i=0; i < sizeof(grupa); i++)
       grupa[i]->attack_object(wrog);
}