#include <special.h>

int czas = 0;
int wt=0;

#define TP this_player()
#define TO this_object()

void
unblok()
{
write("Mozesz ponownie skontrowac.\n");
czas=0;
}

int
kontruj( string str )
{
    int rana;
    mixed result;
    object wrog;
    object bron;

    bron = TP->query_weapon(W_RIGHT);
    if (!bron)
    bron = TP->query_weapon(W_BOTH);
    if (!bron)
    bron = TP->query_weapon(W_LEFT);
    if (!bron)
    {
        write("Do kontrowania ciosow przydalby ci sie miecz.\n");
        return 1;
    }
    if (!str)
    {
        if (!TP->query_attack())
        {
            write("Przeciez nikt z toba nie walczy?!?\n");
            return 1;
        }

        if ( czas == 1 )
        {
            write("Nie mozesz dostrzec dogodnej sytuacji.\n");
            return 1;
        }

        if(bron->query_wt() != W_SWORD)
        {
            write("Ta bron nie nadaje sie do kontrowania ciosow.\n");
            return 1;
        }

        wrog=TP->query_attack();

        rana = return_pen(TP, wrog, 150);

        result = wrog->hit_me(rana, W_SLASH, 60, TP, -1, A_HEAD );

        czas=1;
        if ( !TP->query_prop("szef_zwiadowcow") )
        set_alarm(25.0,0.0,"unblok");
        else
        set_alarm(25.0,0.0,"unblok");

        if ( wrog->query_hp() < 1 )
        {
            TP->catch_msg("Wykorzystujac bezmyslne posuniecie "+QIMIE(wrog,PL_BIE)+
                " odpychasz jego bron swym mieczem, po czym szybkim cieciem "+
                "rozrywasz mu gardlo. Krew z tetnic natychmiast wydostaje sie na "+
                "zewnatrz a jej wlasciciel powoli osuwa sie na ziemie. Przez moment "+
                "jego cialo drga w agonii lecz po chwili i ona ustaje... Na zawsze.\n");

            tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" paruje "+
                "bezmyslne posuniecie "+QIMIE(wrog,PL_DOP)+". "+
                "po czym szybkim cieciem rozrywa mu gardlo. Cialo bez krwi "+
                "osuwa sie na ziemie i zastyga w bezruchu.\n",({TP,wrog}));

            wrog->catch_msg(QIMIE(TP,PL_MIA)+" wykorzystuje "+
                "twe bezmyslne posuniecie i szybkim cieciem rozrywa "+
                "ci gardlo. Z przerazeniem patrzysz jak krew uchodzi "+
                "z twego ciala, by po chwili widziec tylko ciemnosc.\n");

            wrog->do_die(TP);
            return 1;
        }

        TP->catch_msg("Szybkim kontratakiem wykorzystujesz bledne posuniecie "+
            "przeciwnika i zadajesz mu cieta rane.\n");

        tell_room(environment(TP),QIMIE(TP,PL_MIA)+" szybkim ruchem "+
            "paruje bledny cios "+QIMIE(wrog,PL_BIE)+
            "i szybka kontra tnie "+wrog->koncowka("jego","jej")+" cialo.\n",({TP,wrog}));

        wrog->catch_msg("Za pozno dostrzegasz blad w swoim ataku, a "+
            QCIMIE(TP,PL_MIA)+" wykorzystuje to zadajac ci "+
            "cieta rane.\n");
        return 1;
    }
    write("Kontruj?\n");
    return 1;
}