inherit "/std/object";
#include "../moria.h"

#define A "mut6"


int zalozony=0;
int rog=0;

void
create_object()
{

ustaw_nazwe( ({"t","t","t","t","t",
	"t"}), ({"t","t","t","t",
	"t","t"}),PL_MESKI_NOS_NZYW);


set_no_show();
    set_long("Tego nie widzisz.\n");

    add_prop(OBJ_M_NO_GIVE,"Ni.\n");
    add_prop(OBJ_M_NO_DROP,"Ni.\n");
    add_prop(OBJ_M_NO_SELL,"Ni.\n");
    
}


string
query_recover()
{
    return 0;
}

string
query_auto_load()
{
    return MASTER + ":";
}

void
enter_env( object ug, object eg )
{
    if ( zalozony == 0 )
	{
TP->remove_subloc(A);
TP->add_subloc(A,TO);
TO->move(TP,A);
zalozony=1;
	}

}


string
show_subloc( string subloc, object ob, object off )
{
    if ( subloc != A ) return "";
    if ( off == ob )
	return "Twoje dlonie sa zakonczone ostrymi jak brzytwa szponami.\n";
	return "Jego dlonie zakonczone sa ostrymi szponami.\n";
	
return MASTER+":";
}
	    

void
ublok()
{
rog=0;
write("Pocierasz dlonia wypoczety kark.\n");
}

int
szarp( string str )
{
object wrog;
if (!TP->query_attack())
        {
        write("Nie walczysz z nikim!\n");
            return 1;
            }
        if (rog==1)
        {
        write("Wpierw moze troche odpocznij.\n");
        return 1;
        }
						
wrog = TP->query_attack();
													
	    if (!str)
            {
            TP->catch_msg("Wykonujesz serie szybkich ciosow swoimi szopnami "+
                "trafiajac "+QIMIE(wrog,PL_BIE)+" i zadajac "+
            "krwawiace zadrapania.\n");
            tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wykonuje "+
            "serie szybkich ciosow swoimi szponami i trafia "+
            ""+QIMIE(wrog,PL_BIE)+" pozostawiajac na jego ciele "+
	    "liczne zadrapania.\n",({TP,wrog}));
            wrog->catch_msg(""+QCIMIE(TP,PL_MIA)+" wykonuje serie szybkich "+
            "ciosow swoimi szponami i pozostawia na twoim ciele "+
	    "kilka, blesnych zadrapan.\n");
            wrog->reduce_hit_point(random(150)+100);
            rog=1;
																								        set_alarm(20.0,0.0,"ublok");
        return 1;
    }
																											
write("Szarp?\n");
return 1;
}
																											
																											
void
init()
{
::init();
add_action("szarp","szarp");
}