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




void
create_monster()
{

    ustaw_odmiane_rasy(({"balrog","balroga","balrogowi","balroga","balrogiem",
	    "balrogu"}),({"balrogi","balrogow","balrogom","balrogi",
	    "balrogai","balrogach"}),PL_MESKI_OS);
	    
    dodaj_przym("ogromny","ogromni");
    dodaj_przym("piekielny","piekielni");
    
    set_living_name("balrog");
    
    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 demona wielkoscia kilkakrotnie przewyzszajacego "+
	"normalnego humanoida. Ow demon zamiast twarzy ma naga czaszke z ktorej wyrastaja "+
	"cztery rogi zawiniete ku gorze, a w czole tkwi diament. W oczach jego plonie piekielny ogien "+
	"a skrzydla wygladaja jak spalone kosci, ktore plona szalonym ogniem. "+
	"Z jego gemby najerzonej ostrymi jak brzytwa zebami iskrzy sie "+
	"krwistoczerwony ogien jakby mial zara cie spalic. "+
	"Jego postura jest bardzo umiesniona, dlonie i stopy zakonczone "+
	"lsniacymi w czerwieni ognia gigantycznymi szponomi. "+
	"Cala postac otacza ciemna poswiata.\n");
    
    set_stats(({400,400,400,200,200,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);    

    add_weapon(PATH+"Itemy/fmiecz.c");
    add_weapon(PATH+"Itemy/trojzab.c");

    setuid();seteuid(getuid());
    clone_object(PATH+"Itemy/diament.c")->move(this_object());
    clone_object(PATH+"Itemy/plaszcz.c")->move(this_object());
    
    set_combat_speed(40);

}


void
text()
{
string *t = ({"Harghhh, Kim ze jestes smiertelna duszo, ze smiesz stapac "+
	    "po mych wlosciah?!!!",
	    
	    "Lucypher! Lucypher! Lucypher!",
	    
	    "Na kolana psie!" });
	    
	    command("emote grzmi: "+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 20000;
}