inherit "/d/Imperium/std/room";
#include <formulas.h>
#include <macros.h>
#include <ss_types.h>
int statuj();
#define TP this_player()
#define TO this_object()

int
wyj()
{
if (TP->query_prop("medytuje"))
{
write("Wstajesz z ziemi schodzac na dol.\n");
TP->remove_prop("medytuje");
return 0;
}
return 0;
}


void
loop()
{
int i;
object *liv = all_inventory(TO);

    for ( i = 0; i < sizeof(liv); i++ )
	{
	if (liv[i]->query_prop("medytuje"))
	    liv[i]->set_mana(liv[i]->query_mana()+5);
	
	}


set_alarm(10.0,0.0,"loop");
}

void
create_imperium_room()
{
 add_prop(ROOM_I_LIGHT, 2);

 add_prop(ROOM_I_INSIDE, 1);

 set_short("Przy oltarzu");
 set_long("Stoisz przy oltarzu poswieconym Panu Krwii, Khornowi. "+
 "Ogromny bazaltowy blok robi na Tobie ogromne wrazenie "+
 "ucielesnionej smierci. Obrazu calosci dopelniaja czaszki "+ 
 "i kosci rozsypane dookola. Wydaje Ci sie ze mozesz "+
 "<kleknac> lub <medytowac>.\n");
 
 add_exit(NPATH+"lok06.c","poludniowy-wschod","@@wyj",0,1);

}

int
medytuj( string str )
{
    if (str != 0)
	{
	write("Medytuj?\n");
	return 1;
	}
    if (TP->query_prop("medytuje"))
	{
	write("Przeciez juz medytujesz.\n");
	return 1;
	}
	
    write("Klekasz na ziemi i zaczynasz medytowac.\n");
	say(QCIMIE(TP,PL_MIA)+" kleka na ziemi i zaczyna medytowac.\n");

    TP->add_prop("medytuje",1);

    
    return 1;
}


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