#include "../local.h"
inherit STD+"cmentek_std.c";
#include "../krypta.h"
object krypta=ROOM+"krypta1.c";
create_cmentek()
{
    set_short("Na cmentarzu");
    set_long("Znajdujesz sie na cmentarzu. Otaczaja cie szare, zniszczone "
	+"nagrobki, w wiekszosci pokryte krzaczorami. Na polnocy dostrzegasz "
	+"biala cerkiew, od ktorej pochodzi nazwa tamtejszej wioski - "
	+"Bialej Cerkvi. Tuz przed toba z ziemi wyrasta wielki grobowiec.\n");
	add_item("grobowiec","Wielki grobowiec, przy wejsciu do ktorego zauwazasz "
		+"niewielka, kamienna dzwignie.\n");
     add_exit(ROOM+"cm4", "poludnie"); 
    add_exit(ROOM+"cm2", "polnoc"); 
}

// Bedzie zamykala plyte
int
plytka()
{
plyta=1;
tell_room(ROOM+"cm3.c","Kamienna plyta przesuwa sie, zaslaniajac otwor i tym samym zejscie na dol.\n");

krypta->clos_door_ii();
return 1;
}
// okazywanie akcji
int
tlev(string a, string b)
{
TP->catch_msg(a);
tell_room(environment(TP),QCIMIE(TP,PL_MIA)+b,({TP}));
return 1;
}
// ciagniecie za dzwignie
int
dzwignia(string str)
{
notify_fail("Co chcesz pociagnac?\n");
if(str=="dzwignie"||str=="kamienna dzwignie"||str=="niewielka dzwignie"||str=="niewielka kamienna dzwignie"||str=="kamienna niewielka dzwignie")
	{
	if(plyta==0)
		{
		tlev("Ciagniesz za kamienna dzwignie, lecz nic sie nie dzieje.\n"," ciagnie mocno za kamienna dzwignie lecz nic sie nie dzieje.\n");
		return 1;
		}
	tlev("Ciagniesz za kamienna dzwignie.\nSlychac trzaski i chrobotanie, a po chwili twym oczom ukazuje sie niewielki otwor.\n"," ciagnie za kamienna dzwignie.\nSlychac trzaski i chrobotanie, a po chwili twym oczom ukazuje sie niewielki otwor.\n");

	plyta=0;
	krypta->door_i();
	set_alarm(15.0,0.0,"plytka",TO);
	return 1;
	}

return 0;
}
// wchodzenie do otworu
int
otwor(string str)
{
notify_fail("Do czego chcesz wejsc?\n");
if(str=="w otwor" || str=="do otworu")
	{
	if(plyta==1)
		{
		TP->catch_msg("Zejscie na dol jest zasloniete przez kamienna plyte.\n");
		return 1;
		}
	tlev("Ostroznie przeciskasz sie przez otwor...\n"," ostroznie przeciska sie przez otwor...\n");
	TP->move_living("M",ROOM+"krypta1.c");
	return 1;
	}
return 0;
}

// init
void
init()
{
::init();
add_action("dzwignia","pociagnij");
add_action("otwor","wejdz");
}