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


void
create_monster()
{
int a;
ustaw_odmiane_rasy(({"avatar","avatara","avatarowi","avatara","avatarem",
	    "avatarze"}),({"avatarzy","avatarow","avatarom","avatary",
	    "avatarami","avatarach"}),PL_MESKI_OS);

    dodaj_przym("przeklety","przekleci");
    dodaj_przym("widmowy","widmowi");

    set_long("Okrutna postac, ktora masz okazje podziwiac jest "+
	    "jednym z wielu zapomnianych demonow, ktory najwidoczniej "+
	    "przez zupelny przypadek zostal uwieziony w tym miejscu. "+
	    "Jego widmowe cialo wydziela delikatna poswiate, ktora "+
	    "otacza go w calosci.\n");

    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT,90000);
    add_prop(CONT_I_HEIGHT,180);
    add_prop(LIVE_I_SEE_DARK,100);
    add_prop(MAGIC_I_RES_DEATH,100);
    
    set_stats(({450,420,450,1,1,400}));

    set_skill(SS_DEFENCE,150);
    set_skill(SS_PARRY,85);
    set_skill(SS_WEP_WARHAMMER,120);
    set_skill(SS_WEP_AXE,90);
    set_skill(SS_SHIELD_PARRY,80);

    add_weapon(BRONIE+"mlotk.c");
}

mixed
hit_me( int wcpen, int dt, int hitsuc, object attacker,
	    int attack_id, int target_hitloc = -1)
{
object bron = attacker->query_weapon(W_BOTH);

    if (!bron)
	bron=attacker->query_weapon(W_LEFT);
    if (!bron)
	bron=attacker->query_weapon(W_RIGHT);
	
    if (!bron || !bron->query_prop(OBJ_I_IS_MAGIC_WEAPON))
	{
	attacker->catch_msg("Trafiasz "+QIMIE(TO,PL_BIE)+", lecz twoj "+
		"cios przenika przez jego cialo nie pozostawiajac "+
		"po sobie ani sladu.\n");
	tell_room(environment(TO),""+QCIMIE(attacker,PL_MIA)+" trafia "+
		""+QIMIE(TO,PL_BIE)+", lecz cios przenika przez "+
		"jego cialo nie czyniac zadnej szkody.\n",({attacker,TO}));	
	
	}
	
	return ::hit_me(wcpen,dt,hitsuc,attacker,attack_id,target_hitloc);	

}


void
special_attack( object enemy )
{

int rand = random(2);
    if (!rand)
	{
	enemy->catch_msg("Czujesz jak avatar wysysa z ciebie sily witalne.\n");
	enemy->reduce_hit_point(500);
	TO->heal_hp(500);
	}
}

void
do_die( object killer )
{
    killer->add_prop("_zajebal_avatara",1);
    ::do_die(killer);
}