#include "/d/Imperium/std/reload.h"
#include "defs.h"
#include "../balans.h"

int czy_mozna_atak = 0;

void
reatak()
{
    write("Mozesz ponownie zaatakowac.\n");    
	czy_mozna_atak = 0;
}

int
bij(string str)
{
    object bron;
    mixed *result;
    object *kogo;
    
    if(czy_mozna_atak == 1)
    {
        write("Musisz odpoczac po swoim poprzednim ataku.\n");
        return 1;
    }
    
    notify_fail("Potrzebujesz topora aby wykonac ten cios!\n");
    bron = TP->query_weapon(W_RIGHT);
    if (!bron || (bron->query_wt() != W_AXE)) return 0;
    
    if (!str)
    {
        if ( TP->query_attack() ) kogo = ({TP->query_attack()});
    }
    else 
    {
	    if (str) kogo = parse_this(str,"%l:"+PL_BIE);
    }
    
    notify_fail("Kogo chcesz zaatakowac?\n");
    if (!sizeof(kogo)) return 0;

    result = kogo[0]->hit_me(query_pen(TP,kogo[0]),
                             W_BLUDGEON,
                             query_hit(TP,kogo[0]),
                             TP, -1);
                             
    set_alarm(query_reload(TP->query_stat(SS_WIS)), 0.0, "reatak");
    czy_mozna_atak=1;
    TP->reveal_me(1);
    
    switch(result[0])
    {
        case -1:
        {
            TP->catch_msg("Probojac wykorzystac luke w obronie przeciwnika " +
                "wyprowadzasz finezyjne ciecie " + bron->query_short(PL_NAR) + 
                " mierzac w " + QIMIE(kogo[0], PL_BIE) + " lecz " + 
                kogo[0]->koncowka("jemu", "jej") + " udaje sie uniknac " +
                "twojego ciosu.\n");

            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " probojac wykorzystac " +
                     "luke w obronie przeciwnika wyprowadza finezyjne ciecie " +
                     bron->query_short(PL_NAR) + " lecz chwila jego nieuwagi " +
                     "pozwala ci uniknac majacego cie zabic ciosu.\n");

            tell_room(environment(TP),QCIMIE(TP, PL_MIA) + " probojac " +
                     "wykorzystac luke w obronie swego przeciwnika wyprowadza " +
                     "finezyjne ciecie " + bron->query_short(PL_NAR) + 
                     " mierzac w " + QIMIE(kogo[0], PL_BIE) + " lecz dzieki " +
                     "chwili nieuwagi atakujacego udaje " +
                     kogo[0]->koncowka("mu", "jej") + " sie uniknac tego " +
                     "ciosu.\n",({TP,kogo[0]}));
            break;
        }
        
        case 0:
        {
            TP->catch_msg("Nagle doskakujesz do " + QIMIE(kogo[0], PL_BIE) + 
                " i wyprowadasz cios " + bron->query_short(PL_NAR) + " ktorego " +
                kogo[0]->koncowka("ten", "ta") + " nie mogl" + 
                kogo[0]->koncowka("", "a") + " przewidziec, lecz popelniasz " +
                "blad i cios nie czyni zadnej szkody.\n");

            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " doskakuje do ciebie " +
                     "z zamiarem zadania smiertelnego ciosu swym " 
                     + bron->query_short(PL_NAR) + " lecz popelnia blad i cios " +
                     "nie czyni zadnych szkod.\n");

            tell_room(environment(TP),QCIMIE(TP, PL_MIA) + " wyprowadza cios " +
                      bron->koncowka("swoim", "swoja") + " " +
                      bron->query_short(PL_NAR) + " majacy na celu zabicie " +
                      QIMIE(kogo[0], PL_DOP) + " lecz popelnia blad i cios " +
                      "nie czyni zadnych szkod.\n",({TP,kogo[0]}));
            break;
        }
        
        case 1..20:
        {
            TP->catch_msg("Wyprowadasz cios " + bron->query_short(PL_NAR) +
                "w celu unicestwienia " + QIMIE(kogo[0], PL_DOP) + " lecz " +
                "udaje ci sie tylko lekko naciac je" + kogo[0]->koncowka("go", "j") +
                " cialo.\n");
                
            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " wyprowadza cios " +
                     bron->query_short(PL_NAR) + " w celu unicestwienia " +
                     "ciebie lecz udaje mu sie tylko lekko naciac twoje cialo.\n");

            tell_room(environment(TP),QCIMIE(TP, PL_MIA) + " wyprowadza cios " +
                      bron->query_short(PL_NAR) + " w celu unicestwienia " +
                      QIMIE(kogo[0], PL_DOP) + " swo" + bron->koncowka("im", "ja") +
                      " " + bron->query_short(PL_BIE) + " lecz udaje mu sie " +
                      "tylko lekko naciac je" + kogo[0]->koncowka("go","j") +
                      " cialo.\n",({TP,kogo[0]}));
            break;
        }
        
        case 21..50:
        {
            TP->catch_msg("Tniesz " + QIMIE(kogo[0], PL_BIE) + " swo" + 
                bron->koncowka("im", "ja") + " " + bron->query_short(PL_NAR) +
                " zostawiajac " + kogo[0]->koncowka("mu", "jej") +
                " okropna rane. To musialo bolec!\n");

            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " tnie cie szalonymi i " +
                     "bezmyslnymi ruchami " + bron->koncowka("swym", "swoja") +
                     " " + bron->query_short(PL_NAR) + " pozostawiajac ci " +
                     "okropna rane na ciele.\n");
                     
            tell_room(environment(TP),QCIMIE(TP, PL_MIA) + " tnie szalonymi i " +
                      "bezmyslnymin ruchami " + QIMIE(kogo[0], PL_BIE) + " " +
                      bron->koncowka("swoim", "swoja") + " " + 
                      bron->query_short(PL_NAR) + " pozostawiajac " +
                      kogo[0]->koncowka("mu","jej") + " okropna rane. To " +
                      "musialo bolec.\n",({TP,kogo[0]}));
            break;
        }

        case 51..99:
        {
            TP->catch_msg("Wyprowadasz szalone i nieprzywidywalne ciecie " +
                bron->koncowka("swym", "swoja") + " " + bron->query_short(PL_NAR) +
                " mierzac w swojego przeciwnika." + kogo[0]->koncowka("Ten", "Ta") +
                " chwieje sie lekko, a na "+kogo[0]->koncowka("jego", "jej") +
                " twarzy pojawia sie grymas bolu. Chyba tylko cud uratowal " +
                kogo[0]->koncowka("mu", "jej") + " zycie.\n");

            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " wyprowadza niemalze " +
                     "szalone ciecie " + bron->query_short(PL_NAR) + 
                     ", ktorego nie mozna bylo przewidziec. Czujesz jak " +
                     "bron zaglebia sie w twoim ciele. Chyba tylko cud " +
                     "uratowal ci zycie!\n");
                     
            tell_room(environment(TP),QCIMIE(TP, PL_MIA) + " wyprowadza " +
                      "niemalze szalone ciecie celujac w " +
                      QIMIE(kogo[0], PL_BIE) + " swo" + bron->koncowka("im", "ja") +
                      " " + bron->query_short(PL_NAR) + ", ktorego nie mozna " +
                      "bylo przewidziec. " + kogo[0]->koncowka("Jego","Jej") +
                      " przeciwnik zgina sie na wpol, a na jego twarzy widac " +
                      "grymas bolu i cierpienia. Chyba tylko cud uratowal " +
                      kogo[0]->koncowka("mu","jej") + "zycie.\n",({TP,kogo[0]}));

            break;
        }
        
        default:
        {
            TP->catch_msg("Unosisz " + bron->query_short(PL_BIE) + 
                " i wyprowadasz finezyjne ciecie celujac w " +
                QIMIE(kogo[0], PL_BIE) + ". Zamykasz oczy i z calej sily " +
                "popychasz swoja bron ku gardle przeciwnika. Slyszyszac " +
                "przerazajacy jek, otwierasz oczy a przed twoimi oczami staje " +
                "martwe cialo przeciwnika...\n");

            kogo[0]->catch_msg(QCIMIE(TP, PL_MIA) + " zamykajac oczy wyprowadza " +
                     "potezne ciecie " + bron->query_short(PL_NAR) + "mierzac " +
                     "w ciebie. Zdezoriantowan" + kogo[0]->koncowka("y","a") +
                     " probujesz uchylic sie przed ciosem, lecz niestety nie " +
                     "udaje ci sie.. Umarl" + kogo[0]->koncowka("es","as") + ".\n");

            tell_room(environment(TP),QCIMIE(TP,PL_MIA) + " wyprowadza potezne " +
                      "ciecie swo" + bron->koncowka("im", "ja") + " " + 
                      bron->query_short(PL_NAR) + " i zaglebia sztylet w ciele " +
                      QIMIE(kogo[0],PL_BIE) + " by po chwili go wyjac, ale z " +
                      "ciala... martwego.\n",({TP,kogo[0]}));
            kogo[0]->do_die(TP);
        }
    }
    return 1;
}