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/straz");
    ob->move(environment(master));
    master->team_join(ob);
    ob=clone_object("/d/Imperium/Altdorf/npc/straz");
    ob->move(environment(master));
    master->team_join(ob);
    
    tell_room(environment(TP),"Dwuch straznikow przybiega by pomoc sierzantowi.\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(({"sierzant","sierzanta","sierzantowi","sierzanta","sierzantem",
            "sierzancie"}),({"sierzanci","sierzantow","sierzantom","sierzantow",
            "sierzantami","sierzantach"}),PL_MESKI_OS);
    dodaj_przym("gruby","grubi");
    dodaj_przym("ogorzaly","ogorzali");
    set_long("Wielki, i ciezki czlowiek, ktory jest sierzantem strazy zamkowej. " +
             "Jego wielkie zwaliste miesnie wystaja spod zbroi. Ogorzala twarz " +
             "nie wydaje sie zbyt bystra ale mimo wszystko osobnik ten nie jest " +
             "osoba z ktora chcial bys zaczac walke.\n");
             
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,90000);
    add_prop(CONT_I_HEIGHT,190);
    
    set_stats(({120,120,140,100,100,90}));
    
    set_skill(SS_DEFENCE,85);
    set_skill(SS_PARRY,85);
    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_random_move(5,0);
set_alarm(1.0,0.0,"druzyna",TO);
set_aggressive("@@atak");
}