/* Straznik swiatyni gildii Klan Tygrysa
 *
 *
 *
 *
 * Autor: Lisev
 */
inherit "/std/monster";
#include "defs.h"
void arm_me();
object shadow;
object weap1, weap2;
#define ADJp ({"zolty", "skosnooki",  "dlugowlosy", "wielki" })
#define ADJm ({ "zolci", "skosnoocy", "dlugowlosi", "wielcy" })
void
create_monster()
{
	int los = random(sizeof(ADJp));
	ustaw_odmiane_rasy(({"samuraj", "samuraja", "samurajowi", "samuraja", "samurajem", "samuraju"}),
	                   ({"samuraje", "samuraji", "samurajom", "samuraji", "samurajami", "samurajach" }),
	                   PL_MESKI_OS);

	dodaj_przym(ADJp[los], ADJm[los]);
	dodaj_przym("potezny", "potezni");
	set_gender(G_MALE);
	add_prop(LIVE_I_NEVERKNOWN, 1);
	add_prop(LIVE_O_SPELL_ATTACK, TO);
	add_prop(LIVE_I_SEE_DARK, 10);
	set_skill(SS_WEP_SWORD, 100);
	set_skill(SS_2H_COMBAT, 100);
	set_skill(SS_DEFENCE, 100);
	set_skill(SS_PARRY, 100);
	set_skill(SS_SHIELD_PARRY, 100);
	set_skill(SS_AWARENESS, 100);
	set_skill(PIRUET, 100);
	set_stats(({150 + random(100), 150 + random(100), 150 + random(100), 150 + random(100), 150 + random(100), 150 + random(100)}));
	set_long("Masz przed soba wielkiego wojownika. Lecz mimo wielkosc wydaje sie on niesamowicie zreczny. "+
	         "Dziwny blask bijacy z jego oczu sprawia ze czujesz sie nieswojo. Widac, ze zapewne "+
	         "sprawnie wlada kazdym rodzajem broni, gdyz ruchy jego sa lekkie i niesamowicie plynne, "+
	         "co dodaje mu wielkosci. Jest zapewne absolwentem szkoly walki Bialego Tygrysa. Teraz ma "+
	         "za zadanie pilnowac wejscia do swiatyni.\n");
	add_armour(PATH + "obj/heidate");
	add_armour(PATH + "obj/kote");
	add_armour(PATH + "obj/kote");
	add_armour(PATH + "obj/kote");
	add_armour(PATH + "obj/kabuto");
	add_armour(PATH + "obj/kimono");
	enable_commands();
	arm_me();
}
void
arm_me()
{
	setuid();
	seteuid(getuid());
	set_this_player(TO);
	weap1 = clone_object(PATH + "obj/katana1");
	weap1->set_hit(45);
	weap1->set_pen(45);
	weap1->move(TO);
	weap2 = clone_object(PATH + "obj/katana2");
	weap2->set_hit(45);
	weap2->set_pen(45);
	weap2->move(TO);
    set_alarm(0.1, 0.0, &command("dobadz wszystkich broni") );
    set_alarm(0.1,0.0,&add_cmdsoul(SOUL));
    set_alarm(0.2,0.0,&update_hooks());
    shadow = clone_object(SHADOW);
    shadow->shadow_me(this_object(), "occupational", "fighter", "foo");
}

void
heal_me(object whom, object enemy, int hp)
{
	if(TO->query_hp() <= hp)	return;
	if(random(3)) return;
	tell_room(environment(TO), QCIMIE(TO, PL_MIA) + " zrecznie zaslania " + QIMIE(whom, PL_BIE) + " przed ciosami " +
	                           QIMIE(enemy, PL_DOP) + "!\n", ({ whom, TO, enemy }));
    enemy->catch_msg(QCIMIE(TO, PL_MIA) + " zrecznie zaslania " + QIMIE(whom, PL_BIE) + " przed twoimi ciosami!\n");
    enemy->attack_object(TO);
}

void
spell_attack(object me, object enemy)
{
	set_alarm(4.0, 0.0, &add_prop(LIVE_O_SPELL_ATTACK, TO) );
    all_inventory(environment(TO))->heal_me(me, enemy,TO->query_hp());
    set_this_player(TO);
	switch(random(2))
	{
		case 0: command("smlynkuj tutaj");
		case 1: command("scios");
	}
}