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

#define TP              this_player()
#define TO              this_object()

void
dobywaj()
{
TO->command("dobadz broni");
TO->command("zaloz wszystko");
}

void
create_monster()
{


ustaw_odmiane_rasy(({"straznik","straznika","straznikowi","straznika",
	    "straznikiem","strazniku"}),({"straznicy","straznikow",
	    "straznikom","straznikow","straznikami","straznikach"}),
	    PL_MESKI_OS);

    dodaj_przym("milczacy","milczacy");
    dodaj_przym("opancerzony","opancerzeni");

    set_long("Wielka postac okuta w blache z poteznym mieczem wbitym przed nia w ziemie. "+
             "Definitywnie nie jest to kompan do szklanki czy pogadanki. Po chwili stwierdzasz "+
             "zwracajac glownie uwage na puste oczodoly za przylbica ze nie jest to nawet "+
             "zywa istota, a kolejny twor mrocznej mocy ogarniajacej to miejsce.\n");

    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,90000);
    add_prop(CONT_I_HEIGHT,180);
    add_prop(LIVE_I_QUICKNESS,4000);
    add_prop(MAGIC_I_RES_FIRE,40);
    add_prop(MAGIC_I_RES_AIR,40);
    add_prop(MAGIC_I_RES_EARTH,40);
    add_prop(MAGIC_I_RES_WATER,40);
    add_prop(MAGIC_I_RES_LIFE,40);
    add_prop(MAGIC_I_RES_ACID,40);
    add_prop(MAGIC_I_RES_DEATH,100);
    add_prop("_straznik_drakenhof",1);
    
    set_stats(({200,120,160,30,30,200}));



    set_skill(SS_DEFENCE,90);
    set_skill(SS_PARRY,90);
    set_skill(SS_WEP_WARHAMMER,100);
    set_skill(SS_WEP_AXE,100);
    set_skill(SS_WEP_SWORD,90);
    set_skill(SS_WEP_KNIFE,150);
    set_skill(SS_2H_COMBAT,150);
    set_skill(SS_WEP_POLEARM,150);
    set_skill(SS_SHIELD_PARRY,100);

    

    
    
    enable_commands();
    
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Sylvania/zbroje/plyta.c")->move(TO);
    clone_object("/d/Imperium/Sylvania/zbroje/przylbica.c")->move(TO);
    clone_object("/d/Imperium/Sylvania/bronie/claymore.c")->move(TO);
    set_alarm(1.0,0.0,"dobywaj");    
    set_alignment(-1000);
    set_aggressive("@@atak");
}



void
attacked_by( object ob )
{

ob->add_prop("_wrog_drakenhof",1);
  set_alarm(1.0, 0.0, "pomocy");
    
    return ::attacked_by(ob);

}

int
atak()
{
if (TP->query_prop("_wrog_drakenhof"))
   return 1;
    return 0;    
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}


public void
wesprzyj(object ob)
{
    
   TO->command("wesprzyj " + OB_NAME(ob));
    
}