#include <special.h>
#define REL query_reload(TP->query_stat(4))
#define MAS query_reload(TP->query_stat(4))

#include "../balans.h"

int czas1 = 0;
       
void
unhit()
{
write("Mozesz ponownie ciac sztyletami.\n");
czas1=0;
}


tnij( string str )
{
    object bron,bron2;
    object *kogo;
    object *przeciwnicy;
    object *widownia;
    string jak;
     
    bron=TP->query_weapon(W_RIGHT);
    bron2=TP->query_weapon(W_LEFT);
    
    if ( !bron  )
    {
        write("Potrzebujesz dwuch sztyletow!\n");
        return 1;
    }
    if (!bron2)
    {
        write("Potrzebujesz dwuch sztyletow!\n");
        return 1;
    }
          
    if (!str)
    {
        if ( TP->query_attack()) kogo = ({TP->query_attack()});
    }
    else if (str) kogo = parse_this(str,"%l:"+PL_BIE);
    
    if ( czas1 == 1 )
    {
        write("Musisz chwile poczekac by ponownie ciac.\n");
        return 1;
    }
          
    if (!sizeof(kogo))
    {
        write("Tnij kogo?\n");
        return 1;
    } 
        
    write  ("Zaczynasz szukac luki w obronie " + kogo[0]->query_imie(TP,PL_BIE) + 
            " by ciac sztyletami.\n");

    czas1=1;
    set_alarm(15.0,0.0,"unhit");
    set_alarm(6.0,0.0, "trafienie", this_player(), kogo[0]);  
    TP->attack_object(kogo[0]);
    return 1;        
}
      
void
trafienie (object gracz, object cel, string jak)
{
    object room = environment(gracz);
    object bron,bron2;

    int rana = 0; 
    int hit = 0;
    int bron_stat = 0; 
    int bron2_stat = 0; 
    int bonus = 0;

    bron=gracz->query_weapon(W_RIGHT);
    bron2=gracz->query_weapon(W_LEFT);
    
    rana = query_pen(gracz, cel);
    hit = query_hit(gracz, cel);   


    cel->hit_me(rana, W_SLASH, hit, TP, -1 );
      

    if (!present(cel,room))
    {
        write(cel->query_name(PL_MIA)+" uciekl ci!.\n");
        return;
    }     
                
    switch(rana)
    {
        case 0..10      : jak = "nieznacznie";                             break;
        case 11..100    : jak = "lekko";                                   break;
        case 101..300   : jak = "powodujac lekki krwotok";                 break;
        case 301..500   : jak = "dotkliwie, otwierajac spora rane";        break;
        case 501..800   : jak = "powaznie, powodujac wylew krwii";         break;
        case 801..1000  : jak = "bardzo ciezko, tnac miesnie i skore";     break;
        default         : jak = "smiertelnie, uszkadzajac organy witalne"; break;
    }
       
    if ( cel->query_hp() < 1 )
    {
        gracz->catch_msg("Tnac "+QIMIE(cel,PL_BIE)+" troche nad miednica " +
               "dostrzegasz dziwny blysk strachu w "+cel->koncowka("jego","jej")+
               " oku i wiesz juz ze rozcieles aorte. Po chwili zostaje to " +
               "potwierdzone fontanna krwii z rany oraz ust twej ofiary. Ty " +
               "zachowujac zimna wole wbijasz drugi sztylet tuz ponizesz " +
               "potylicy dopelnijajac aktu agonii!\n");
               
        tell_room(environment(gracz),""+QCIMIE(gracz,PL_MIA)+" tnie przez jame " +
                  "brzuszna "+QIMIE(cel,PL_DOP)+"! Sekunde pozniej krew jest " +
                  "juz wszedzie a "+QCIMIE(gracz,PL_MIA)+" nieodsuwajac sie " +
                  "nawet o centymetr wbija drugi sztylet w tyl "+
                  cel->koncowka("jego","jej")+" glowy. " + QIMIE(cel,PL_BIE) +
                  " wlasnie przywital smierc.\n",({gracz,cel}));

        cel->catch_msg("Nagle ciecie "+QIMIE(gracz,PL_DOP)+" powoduje u " +
             "ciebie szybkie mdlosci i konwulsje, czujesz jak tracisz " +
             "energie zyciowa. Ostatnimi silami patrzysz sie w oczy "+
             QIMIE(gracz,PL_DOP)+" dostrzegajac w nich jedynie smierc... " +
             "Ostry, wiercacy bol z tylu czaszki... tunel ze swiatelkiem...\n" +
             "Mamo to ty????\n");
        
        cel->do_die(TP);
        return;
    }

    TP->catch_msg("Tniesz ,"+jak+", cialo "+QIMIE(cel,PL_DOP)+" szybkimi " +
        "ruchami swych smiercionosnych sztyletow.\n");
                    
    tell_room(environment(gracz),"Nagle "+QCIMIE(gracz,PL_MIA)+" zaczyna ciac "+
              QIMIE(cel,PL_DOP)+", "+jak+", swymi sztyletami.\n",({gracz,cel}));

    cel->catch_msg("Nagle "+QCIMIE(gracz,PL_MIA)+" zaczyna ciac "+jak+
         " twoje cialo!\n");
    return;
}