inherit "/std/monster.c";
#include <macros.h>
#include <stdproperties.h>
#include <ss_types.h>
#include <wa_types.h>
#include <../kislev.h>
#include "gwardia.h"


void
druzyna( object master )
{
object ob;
setuid();
seteuid(getuid());
    
    ob=clone_object(NPC+"zolnierz");
    ob->move(environment(master));
    master->team_join(ob);
    
    ob=clone_object(NPC+"zolnierz");
    ob->move(environment(master));
    master->team_join(ob);
    
    tell_room(environment(TP),"Widzisz jak dwuch gwardzistow przybywa "+
	    "z glebi miasta.\n");
}

void
create_monster()
{
int a;
dodaj_nazwy(PL_MEZCZYZNA);
dodaj_nazwy(({"czlowiek","czlowieka","czlowiekowi","czlowieka","czlowiekiem",
	    "czlowieku"}),({"ludzie","ludzi","ludziom","ludzi","ludzmi",
	    "ludziach"}),PL_MESKI_OS);
ustaw_odmiane_rasy(({"oficer","oficera","oficerowi","oficera","oficerem",
	    "oficerze"}),({"oficerzy","oficerow","oficerom","oficerow",
	    "oficerami","oficerach"}),PL_MESKI_OS);


    dodaj_przym("potezny","potezni");
    dodaj_przym("dumny","dumni");

    set_long("Masz przed soba odzianego w ciezki, lsniacy kirys "+
	    "oficera gwardii Kislevu w calosci oddanej Ulrykowi, "+
	    "bogowi wojny i zimy. Jego twarz jest zorana przez "+
	    "ciagle wiejace zimne wiatry, a czarne, dlugie wlosy opadaja "+
	    "mu na wilczy plaszcz, ktorym ma okryte plecy.\n");

    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,90000);
    add_prop(CONT_I_HEIGHT,180);
    
    set_stats(({150,120,150,1,1,90}));

    set_skill(SS_DEFENCE,85);
    set_skill(SS_PARRY,85);
    set_skill(SS_WEP_WARHAMMER,90);
    set_skill(SS_WEP_AXE,90);
    set_skill(SS_SHIELD_PARRY,80);

    add_armour(ZBROJE+"tarcza");
    add_armour(ZBROJE+"kirys");
    
    a=random(2);
	switch(a)
	    {
	    case 0:
	    add_weapon(BRONIE+"toporg");
	    break;
	    
	    case 1:
	    add_weapon(BRONIE+"mlotg");
	    break;
	    }

set_random_move(5,0);
set_alarm(1.0,0.0,"druzyna",TO);
set_aggressive("@@atak");
}