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

#define A "mut1"

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_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 "Twoj penis wydaje sie byc wyjatkowo duzy.\n";
return "Jego penis wydaje sie byc wyjatkowo duzy.\n";
 return "Jego penis wydaje sie byc wyjatkowo maly.\n";
return MASTER+":";
}
	    

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

int
nadziej( string str )
{
object wrog;
    if (!TP->query_attack())
	{
	write("Nie walczysz z nikim!\n");
	return 1;
	}
    if (rog==1)
	{
write("Daj kutachowi odpoczac !\n");
	return 1;
	}
	
	wrog = TP->query_attack();
	
	
    if (!str)
	{
 TP->catch_msg("Wykonujesz powolny zamach swoim poteznym "+
"kutasem i trafiasz "+QIMIE(wrog,PL_BIE)+" raniac "+
  "bardzo powaznie.\n");
	tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wykonuje "+
 "powolny zamach swoim poteznym kutasem trafiajac "+
""+QIMIE(wrog,PL_BIE)+" i raniac go bardzo powaznie.\n",({TP,wrog}));
	wrog->catch_msg(""+QCIMIE(TP,PL_MIA)+" wykonuje powolny zamach "+
"swoim kutasem trafiajac cie w korpus i raniac bardzo powaznie.\n");
wrog->do_die;
	
	rog=1;
	set_alarm(20.0,0.0,"ublok");
	return 1;
	}
	
    	
write("Kogo chcesz nadziac na swojego penisa ?\n");
return 1;

}


void
init()
{
::init();
add_action("nadziej","nadziej");
}