#define REL query_reload(TP->query_stat(4))
#define MAS query_reload(TP->query_stat(4))


int wzadza = 0;

void
staty()
{
write("Twa zadza krwi gasnie.\n");
this_player()->set_stat_extra(0,0);
this_player()->set_stat_extra(1,0);
this_player()->set_stat_extra(5,0);
this_player()->remove_prop("_live_i_quickness");
wzadza=0;
}

int
wzadza( string str )
{


if (!str)
    {
    if ( wzadza==1 )
        {
        write("Jeszcze nie teraz.\n");
        return 1;
        }
    write("Nagle w twym ciele rozgorewa zadza krwi...\n");
    tell_room(environment(this_player()),"W oczach "+QIMIE(TP,PL_DOP)+" dostrzegasz nagle "             + "pragnienie krwii.\n",({this_player()}));
    this_player()->set_stat_extra(0,50);
    this_player()->set_stat_extra(1,50);
    this_player()->set_stat_extra(5,50);
    this_player()->add_prop("_live_i_quickness",1300);
    wzadza=1;
    set_alarm(60.0,0.0,"staty");
    return 1;    
    }


write("Zadza?\n");
return 1;
}

int
wciemnosc (string str )
{

   setuid();
   seteuid(getuid());
   
   write("Z mrocznej magii stwarzasz kule ciemnosci.\n");
   say(QCIMIE(this_player(),PL_MIA)+" koncetruje sie przez chwile. Nagle robi sie tu "
       + "jakos ciemno.\n");
   
   clone_object(OBJ+"kula.c")->move(this_player());
   this_player()->set_mana(this_player()->query_mana()-70);

}

int
wzniknij ( string str )
{

    write("Znikasz z pola widzenia zwyklych smiertelnikow.\n");
     this_player()->set_mana(this_player()->query_mana()-200);
     this_player()->add_prop("_obj_i_invis", 1);
    return 1;
}

int
wpojaw ( string str )
{
	set_alarm(0.0, 0.0, "pojaw_sie");
}

public void
pojaw_sie()
{
    
   this_player()->remove_prop("_obj_i_invis");
   write("Nagle zaczynasz byc widziany przez smiertelnikow.\n");

 
}

int punch=0;

void
unhit()
{
punch=0;
}


void
ustun( object ob )
{
ob->remove_stun();
}

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


    if ( !str )
        {
        if ( TP->query_attack() )
            {
            kogo += ({TP->query_attack()});
            } else {
            write("Zlap kogo?\n");
            return 1;
            }
    }
    if (!sizeof(kogo))
        {
        write("Zlap kogo?\n");
        return 1;
        }

    if ( punch==1 )
        {
        write("Odpocznij.\n");
        return 1;
        }
        
    szansa = random(100);
    punch=1;
    
    set_alarm(30.0,0.0,"unhit");
    
        if ( szansa > 70 )
            {
            write("Probojesz zlapac swa ofiare jednak ta w ostatniej chwili odsuwa sie.\n");
            tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" "+
                "probuje zlapac "+QIMIE(kogo[0],PL_BIE)+", lecz "+
                    "nie udaje mu sie to.\n",({TP,kogo[0]}));
            kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" proboje "+
                "zlapac cie , lecz udaje ci sie go uniknac!\n");    
    
                return 1;
            }




         if ( kogo[0]->query_hp() < 100 )
                
            {
                TP->catch_msg("Pijac krew "+QIMIE(kogo[0],PL_BIE)+" tracisz "+
                "wyczucie, czujesz jak cialo twej ofiary wiednie ci w rekach. "+
                "Wykorzystawszy wszystkie zapasy krwi odrzucasz cialo na ziemie.\n");
                tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" zapominia sie "+
                    "i wysysa ostatnia krople krwi z ciala "+QIMIE(kogo[0],PL_DOP)+". "+
                    "Po chwili namyslu odrzuca bezuzyteczne cialo.\n",({TP,kogo[0]}));

                kogo[0]->catch_msg("Zadza krwi "+QIMIE(TP,PL_MIA)+" powoduje, "+
                "ze zapominia o tym aby zostawic ci troche krwi do zycia... "+
                "Ciemnosc otula Cie...\n");
                    kogo[0]->set_hp(0);
                    kogo[0]->set_hp(0);
                    kogo[0]->set_hp(0);
                    kogo[0]->set_hp(0);
                    kogo[0]->do_die(this_player());
                    kogo[0]->do_die(this_player());
                    kogo[0]->do_die(this_player());
                    this_player()->heal_hp(200);
                    return 1;
                }

    TP->catch_msg("Lapiesz "+QIMIE(kogo[0],PL_BIE)+" w objecia smierci i zaczynasz "
      + "uczte z jego krwi.\n");
    tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" lapie "+QIMIE(kogo[0],PL_BIE)+" "
       + "otwierajac "+kogo[0]->koncowka("mu","jej")+" rane na szyji "        
       +"i zaczyna pic z niej krew.\n",({TP,kogo[0]}));
    kogo[0]->catch_msg("Nagle "+QIMIE(TP,PL_MIA)+" lapie cie w silny uscisk "
            + "przekluwa ci zebami skore na szyi i zaczyna pic twoja krew...\n");     
        
        setuid();
        seteuid(getuid());
        
        paral=clone_object("/std/paralyze");
        paral->set_fail_message("Teraz probujesz uwolnic sie z smiertelnego uscisku!\n");
        paral->set_stop_message("Udaje ci sie wyrwac tej krwiozerczej bestji.\n");
        paral->set_remove_time(10);
        paral->move(kogo[0]);
        kogo[0]->set_fatigue(1);
       
      kogo[0]->set_fatigue(1);
      kogo[0]->set_fatigue(1);
      kogo[0]->set_fatigue(1);
      kogo[0]->set_mana(1);
      kogo[0]->set_mana(1);
      kogo[0]->set_mana(1);
        setuid();
        seteuid(getuid());
        
        paral=clone_object("/std/paralyze");
        paral->set_fail_message("Teraz koisz swoje czerwone pragnienie!\n");
        paral->set_stop_message("Twoja ofiara ostatkiem sil wyrywa ci sie.\n");
        paral->set_remove_time(10);
        paral->move(this_player());
        this_player()->add_stun();
        this_player()->heal_hp(300);    
        

        set_alarm(10.0, 0.0,"ustun",this_player());
        return 1;
        
        

write("Zlap kogo?\n");
return 1;

}

int czas = 0;

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

int
wtnij( string str )
{
 int rana = 0;
 mixed result;
 object wrog;

        if (!str)
        {
            if (!TP->query_attack())
                {
                write("Nie walczysz z nikim!\n");
                return 1;
                }     
            if ( czas == 1 )
            {
            write("Musisz chwile odczekac.\n");
            return 1;
            }
            
            wrog=TP->query_attack();
            
            rana = (TP->query_stat(0)*10)+(TP->query_stat(4)*5);
            //wrog->reduce_hit_point(rana);

            result = wrog->hit_me(rana, W_SLASH, 60, TP, -1 );
            
            
            czas=1;
            if ( !TP->query_prop("szef_wampirow") )
            set_alarm(REL,0.0,"unblok");
            else
            set_alarm(MAS,0.0,"unblok");
            
            
            
            if ( wrog->query_hp() < 1 )
                {
                TP->catch_msg("Rzucajac sie w kierunku "+QIMIE(wrog,PL_BIE)+" swiat "+
                "zaczyna zwalniac a ty wyprowadzasz serie szybkich ruchow swymi "+
                "pazurami. Gdy zauwazasz ze wrog ledwo zyje podchodzisz don "
              + "i szybkim ruchem wyrywasz mu serce.\n");
                tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" zaczyna "+
                    "poruszac sie jak blyskawica dookola "+QIMIE(wrog,PL_DOP)+"."+
                    "zadajac mu powazne rany. Po chwili przestaje by zblizyc sie "+
                    "don z tajemniczym usmiechem i wyrwac mu serce...\n",({TP,wrog}));

                wrog->catch_msg("Nagle "+QIMIE(TP,PL_MIA)+" rzuca sie w twoim "+
                "kierunku szarpiac twe cialo pazurami. Po chwila zauwaza ze juz niemasz "               + "sil  by kontynuowac walke z usmiechem na ustach podchodzi do ciebie "
              + "i najzwyczajniej w swiecie wyrywa ci serce...\n");
                    wrog->do_die(TP);
                    return 1;
                }

            TP->catch_msg("Zaczynasz poruszac sie z zawrotna predkoscia tnac cialo " 
              + "swego wroga pazurami.\n");
                    
    tell_room(environment(TP),"W ferworze walki "+QCIMIE(TP,PL_DOP)+" "+
    "zaczyna poruszac sie z zawrotna predkoscia, by po chwili "+
    "dopasc "+QIMIE(wrog,PL_BIE)+" tnac "+wrog->koncowka("jego","jej")+" cialo "
    + "swymi pazurami.\n",({TP,wrog}));

   wrog->catch_msg("Nagle "+QCIMIE(TP,PL_MIA)+" zaczyna poruszac sie z zawrotna predkoscia "
                 + " tnac twe cialo swymi ostrymi pazurami!\n");
    
        return 1;
       }



   write("wtnij?\n");
   return 1;



}


int
woczaruj(string str)
{
    write("Nie umiesz jeszce zmusic swoich przeciwnikow do zaprzestania walki.\n");
    return 1;

}