inherit "/std/monster.c";
#include <macros.h>
#include <stdproperties.h>
#include <ss_types.h>
#include <wa_types.h>
#include "straz.h"
#define TP this_player()
#define TO this_object()
void
druzyna( object master )
{
object ob;
setuid();
seteuid(getuid());
    
    ob=clone_object("/d/Imperium/Altdorf/npc/straz1");
    ob->move(environment(master));
    master->team_join(ob);
    ob=clone_object("/d/Imperium/Altdorf/npc/straz1");
    ob->move(environment(master));
    master->team_join(ob);
    ob=clone_object("/d/Imperium/Altdorf/npc/straz1");
    ob->move(environment(master));
    master->team_join(ob);
    ob=clone_object("/d/Imperium/Altdorf/npc/straz1");
    ob->move(environment(master));
    master->team_join(ob);
    
    tell_room(environment(TP),"Czterech straznikow przybiega by pomoc oficerowi.\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("przystojny","przystojni");
    dodaj_przym("nobliwy","nobliwi");
    set_long("Przystojny, nobliwy jegomosc, okuty w ciezka zbroje jest dowodca " +
             "jednego z licznych oddzialow miejskiej strazy. Potezna budowa swiadczy " +
             "o jego sile, a pewne, stanowcze ruchy o jego pewnosci siebie i umiejetnosciach " +
             "w walce.\n");
             
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,90000);
    add_prop(CONT_I_HEIGHT,190);
    
    set_stats(({150,200,150,100,100,90}));
    
    set_skill(SS_DEFENCE,95);
    set_skill(SS_PARRY,95);
    set_skill(SS_WEP_SWORD,90);
    set_skill(SS_WEP_AXE,90);
    set_skill(SS_WEP_CLUB,90);
    add_armour("/d/Imperium/Altdorf/zbroje/shelm");
    add_armour("/d/Imperium/Altdorf/zbroje/skirys");
    add_armour("/d/Imperium/Altdorf/zbroje/snagol");
    add_armour("/d/Imperium/Altdorf/zbroje/snaram");
    
    a=random(3);
        switch(a)
            {
            case 0:
            add_weapon("/d/Imperium/Altdorf/bronie/smiecz");
            break;
            
            case 1:
            add_weapon("/d/Imperium/Altdorf/bronie/smorgen");
            break;
            
            case 2:
            add_weapon("/d/Imperium/Altdorf/bronie/stopor");
            break;
            }
set_alarm(1.0,0.0,"druzyna",TO);
set_aggressive("@@atak");
}