
#include "defs.h"


int jak_widzial = 0;

void
unblock()
{
write("Czujesz ze mozesz ponownie oslepic wroga!\n");
tire=0;
}

void
free( object kogo )
{
kogo->remove_stun();
kogo->add_prop(LIVE_I_SEE_DARK, jak_widzial);
kogo->set_stat_extra(1,0);
kogo->catch_msg("Zaczynasz widziec!\n");
}

int
keoslep( 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 && !kogo[0]->query_prop(ENCHANT_MONSTER))
        {
TP->catch_msg("Wbijasz kciuki w oczy przeciwnika oslepiajac go!\n");
tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wbije kciuki w "+
    "oczy "+QIMIE(kogo[0],PL_DOP)+" oslepiajac go!\n",({TP,kogo[0]}));

kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" wbija swoje male kciuki "+
        "w twoje oczeta, oslepiajac cie!\n");
        
        kogo[0]->add_stun();
        if (kogo[0]->query_prop(LIVE_I_SEE_DARK) > 0)
        jak_widzial = kogo[0]->query_prop(LIVE_I_SEE_DARK);
        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("Probujesz wbic kciuki w oczy przeciwnika, jednak sukinkot "+
"odpycha cie jak stara szmate i atak sie nie udaje.\n");
tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" niespodziewanie "+
    "probuje wbic kciuki w oczy "+
    " "+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)+" chce ci wydlubac galy, ale udaje ci sie "+
    "tego uniknac.\n");
        return 1;
        set_alarm(18.0,0.0,"unblock");
        }

}
