inherit "/std/monster.c";
#include <macros.h>
#include <stdproperties.h>
#include <ss_types.h>
#include "/d/Imperium/Sylvania/lokacje/drakenhof/def.h"




void
create_monster()
{

    ustaw_odmiane_rasy(({"klucznik","klucznika","klucznikowi","klucznika","klucznikiem",
            "kluczniku"}),({"klucznicy","klucznikow","klucznikom","klucznikow",
            "klucznikami","klucznikach"}),PL_MESKI_OS);
            
    dodaj_przym("niedolezny","niedolezni");
    dodaj_przym("zgarbiony","zgarbieni");
    
    set_living_name("klucznik");
    
    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(NPC_I_NO_RUN_AWAY,1);
    add_prop(MAGIC_I_RES_LIFE,70);
    add_prop(MAGIC_I_RES_DEATH,70);
    add_prop(MAGIC_I_RES_FIRE,70);
    add_prop(MAGIC_I_RES_AIR,70);
    add_prop(MAGIC_I_RES_EARTH,70);
    add_prop(MAGIC_I_RES_WATER,70);

    set_long("Widzisz przed soba czleka kilkukrotnie mniejszego od "+
        "normalnego humanoida. Owa postac trzyma w jednej rece pek kluczy, "+
        "a w drugiej starcza laske.\n");
    
    set_stats(({100,700,600,700,700,200}));


    set_skill(SS_UNARM_COMBAT,100);
    set_skill(SS_WEP_SWORD,100);
    set_skill(SS_WEP_AXE,100);
    set_skill(SS_WEP_POLEARM,100);
    set_skill(SS_WEP_CLUB,100);
    set_skill(SS_DEFENCE,100);
    set_skill(SS_PARRY,100);    
    set_skill(SS_2H_COMBAT,100);    
	
    setuid();seteuid(getuid());
    clone_object("/d/Imperium/Sylvania/lokacje/drakenhof/klucz.c")->move(this_object());
    
    set_combat_speed(500);

}


void
text()
{
string *t = ({"Kazdy ma robic to co ma robic!!! ",
            
            "Posiadam klucze do najwiekszych skarbow zamku.",
            
            "Kto pocaluje ksiezniczke, ten nie zapomni tego do konca zycia." });
            
            command("emote zawodzi: "+t[random(sizeof(t))]+"");

}

void
init_living()
{
    ::init_living();
    
    set_alarm(1.0,0.0,"text");
}


void
attacked_by( object who )
{
    set_follow(who,0.1,1);    
    ::attacked_by(who);
}

public int
query_max_hp()
{
    return 12000;
}