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");
}

void
create_monster()
{


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

    dodaj_przym("olbrzymi","olbrzymi");
    dodaj_przym("potworny","potworni");

    set_long("Widzisz przed soba przeogromna postac, na ktorej widok "+
	     "miekna kolana. Jest parokrotnie wyzsza od ciebie, a jej muskuly "+
	     "potrafilby lamac stal. Na dodatek w jej ruchach zauwazasz niespotykana "+
	     "zwinnosc. Zdajesz sobie sprawe ze walka z nim nie bedzie latwa.\n");
	
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,300000);
    add_prop(CONT_I_HEIGHT,280);
    add_prop(LIVE_I_QUICKNESS,1000);
    add_prop(MAGIC_I_RES_FIRE,50);
    add_prop(MAGIC_I_RES_AIR,50);
    add_prop(MAGIC_I_RES_EARTH,50);
    add_prop(MAGIC_I_RES_WATER,50);
    add_prop(MAGIC_I_RES_LIFE,50);
    add_prop(MAGIC_I_RES_ACID,50);
    add_prop(MAGIC_I_RES_DEATH,100);
    add_prop("_straznik_drakenhof",1);
    
    set_stats(({600,600,600,600,600,600}));
    set_all_hitloc_unarmed(1000);


    set_skill(SS_DEFENCE,190);
    set_skill(SS_PARRY,190);
    set_skill(SS_WEP_WARHAMMER,100);
    set_skill(SS_WEP_AXE,100);
    set_skill(SS_WEP_SWORD,400);
    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/abc/zapas/claymore.c")->move(TO);
    set_alarm(1.0,0.0,"dobywaj");    
    set_alignment(-5000);
    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 0;
    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));
    
}