#define PENET 1100
#define REL 30


int tire = 0;
int ciecie = 0;

void
unblock()
{
write("Czujesz ze mozesz ponownie sprobowac zaatakowac.\n");
tire=0;
}

void
free( object kogo )
{
kogo->remove_stun();
kogo->remove_prop(LIVE_I_SEE_DARK);
kogo->set_stat_extra(1,0);
kogo->catch_msg("Zaczynasz widziec!\n");
}

int
oslep( string str )
{
int szansa;
object *kogo = parse_this(str, "%l:"+PL_BIE);

    if (!sizeof(kogo))
	{
	    write("Kogo chcesz oslepic?\n");
	    return 1;
	}

    if ( tire == 1 )
	{
	    write("Musisz troche odsapnac przed kolejnym atakiem.\n");
	    return 1;
	}

    //if ( environment(TP)->query_prop(ROOM_I_INSIDE) )
//	{
//	    write("Nie ma tu piasku!\n");
//	    return 1;
//	}


    szansa = random(100);

    if ( szansa < 70 )
	{
TP->catch_msg("Szybkim ruchem zagarniasz z ziemi garsc piasku i z impetem "+
    "ciskasz nia prosto w oczy swojego przeciwnika!\n");
tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" niespodziewanie "+
    "chwyta garsc piasku, po czym z impetem ciska nia prosto "+
    "w oczy "+QIMIE(kogo[0],PL_DOP)+" oslepiajac go!\n",({TP,kogo[0]}));	
kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" niespodziewanie "+
	"chwyta w garsc piasek i ciska nim prosto w twe oczy! "+
	"Zamykasz je natychmiast i uzywajac rak probujesz pozbyc sie "+
	"siejacych bol drobinek.\n");
	
	kogo[0]->add_stun();
	kogo[0]->add_prop(LIVE_I_SEE_DARK,-100);
	
	kogo[0]->set_stat_extra(1,(kogo[0]->query_stat(1)+20)*(-1));
	set_alarm(18.0,0.0,"free",kogo[0]);
	set_alarm(40.0,0.0,"unblock");
	tire=1;
	return 1;
	} else {
TP->catch_msg("Szybkim ruchem zagarniasz z ziemi garsc piasku i z "+
    "impetem ciskasz nim w oczy swego przeciwnika, lecz ten zgrabnym "+
    "ruchem unika twego ataku!\n");
tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" niespodziewanie "+
    "chwyta garsc piasku, po czym z impetem ciska nia prosto "+
    "w "+QCIMIE(kogo[0],PL_DOP)+", lecz "+kogo[0]->koncowka("jemu","jej")+" "+
    "udaje sie uniknac tego ataku.\n",({TP,kogo[0]}));
kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" ciska w ciebie piaskiem, lecz "+
    "pudluje haniebnie.\n");
	return 1;
	set_alarm(18.0,0.0,"unblock");
	}

}




void
cublok()
{
    write("Mozesz znowu uzyc ciecia.\n");
    ciecie=0;
}

int
tnij( string str )
{
mixed result;
object bron,bron2;
object *kogo = parse_this(str,"%l:"+PL_BIE);

    bron=TP->query_weapon(W_RIGHT);
    bron2=TP->query_weapon(W_LEFT);

	if ( !bron  )
	    {
	    write("Potrzebujesz dwuch broni!\n");
	    return 1;
	    }
	if (!bron2)
	    {
	    write("Potrzebujesz dwuch broni!\n");
	    return 1;
	    }
	    

    if (!str)
	{
	if ( TP->query_attack() )
	    kogo = ({TP->query_attack()});
	}

    if (!sizeof(kogo))
	{
	    write("Tnij kogo?\n");
	    return 1;
	}
	
    if ( ciecie == 1 )
	{
	write("Odsapnij!\n");
	return 1;
	}

    result = kogo[0]->hit_me( PENET, W_SLASH, 40, TP, -1, A_BODY );
    
    set_alarm(query_reload(TP->query_stat(SS_WIS)), 0.0, "cublok");
    TP->reveal_me(1);


    if ( result[0] < 5 )
	{
TP->catch_msg("Uzywajac swojej niezwyklej szybkosci probujesz "+
    "obejsc "+QIMIE(kogo[0],PL_BIE)+", niestety jednak "+
    "udaje sie "+kogo[0]->koncowka("mu","jej")+" zareagowac "+
    "i uniknac twoich ostrzy!\n");
tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" niezwykle szybko "+
    "rzuca sie na "+QIMIE(kogo[0],PL_BIE)+" probujac wprawnym ruchem "+
    ""+kogo[0]->koncowka("go","ja")+" zranic, lecz nie trafia.\n",({TP,kogo[0]}));
kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" niezwykle zgrabnym i zwinnym ruchem "+
	"probuje zajsc cie i uderzyc w plecy, lecz dzieki czujnemu oku "+
	"reagujesz w pore i parujesz cios!\n");
	ciecie=1;
			
	return 1;
	}	


    if ( kogo[0]->query_hp() > 0 )
	{

TP->catch_msg("Wykorzystujac chwile nieuwagi swojego przeciwnika "+
	"wirujesz w powietrzu niczym huragan i zaskakujesz "+
	""+QIMIE(kogo[0],PL_BIE)+" od tylu, by po chwili "+
	"poteznym cieciem dwuch ostrzy zranic "+
	""+kogo[0]->koncowka("go","ja")+" mocno!\n");
tell_room(environment(TP),""+QCIMIE(kogo[0],PL_MIA)+" zgina sie z bolu "+
	"plujac krwia.\n");

tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wykorzystujac chwile "+
    "nieuwagi swojego przeciwnika wiruje w powietrzu niczym huragan i "+
    "zaskakuje "+QIMIE(kogo[0],PL_BIE)+", by po chwili poteznym "+
    "cieciem swych dwuch ostrzy otworzyc dwie krwawe rany "+
    "na "+kogo[0]->koncowka("jego","jej")+" ciele!\n",({TP,kogo[0]}));

kogo[0]->catch_msg("Nagle! Niczym wirujacy huragan "+QIMIE(TP,PL_MIA)+" "+
	"staje za twymi plecami, po czym wrzyna w ciebie swoje "+
	"dwa ostrza, ktore zasiewaja w twym ciele "+
	"potworne uczucie bolu!\n");
ciecie=1;
return 1;
	}

TP->catch_msg("Zgrabnym, szybkim piruetem zaskakujesz za plecy "+
    ""+QIMIE(kogo[0],PL_DOP)+", po czym ze srogim wyrazem twarzy "+
    "krzyzujesz ostrza na "+kogo[0]->koncowka("jego","jej")+" "+
    "szyji! Nagle krew wytryskuje z rozdartych tetnic, a glowa "+
    "z gluchym odglosem upada tuz obok konajacego w posmiertnych konwulsjach "+
    "ciala.\n");
    
tell_room(environment(TP), "Widzisz jak "+QIMIE(TP,PL_MIA)+" "+
    "zgrabnym, szybkim piruetem zaskakuje za plecy "+
    ""+QIMIE(kogo[0],PL_DOP)+", po czym ze srogim wyrazem twarzy "+
    "krzyzuje ostrza na "+kogo[0]->koncowka("jego","jej")+" "+
    "szyji! Nagle krew wytryskuje z rozdartych tetnic, a glowa "+
    "z gluchym odglosem upada tuz obok konajacego w posmiertnych "+
    "konwulsjach ciala.\n",({TP,kogo[0]}));
    
kogo[0]->catch_msg("Nagle "+QIMIE(TP,PL_MIA)+" staje ci za plecami... "+
    "Czujesz jak czas sie spowalnia, widzisz jak zycie przebiega ci "+
    "przed oczami, az nagle nie czujesz juz nic... nic... nic!\n");

kogo[0]->do_die(TP);
ciecie=1;
    return 1;

    }