#include "../local.h"
inherit STD+"grobowiec_std.c";

int
pulapka()
{
TP->catch_msg("Probojesz isc na poludniowy-wschod jednak ze scian wylatuja "
	+"ostrza ciezko cie raniac.\n");
tell_room(ROOM+"krypta3.c",QIMIE(TP,PL_MIA)+" probuje isc na poludniowy-wschod, "
	+"lecz ze scian wylatuja ostrza ciezko "+TP->koncowka("go","ja")+" raniac.\n",({TP}));
TP->heal_hp(-(TP->query_max_hp())/2);
return 1;
}

create_krypta()
{
    set_short("Nieduza komnata");
    set_long("Znajdujesz sie ciagle w tym samym, potwornym grobowcu gdzie "
	+"kazda minuta wydaje sie byc wiecznoscia. Znajdujesz sie w jakiejs "
	+"nieduzej komnacie, gdzie spotykaja sie cztery korytarze. Na "
	+"jej srodku stoi sarkofag. W korytarzu prowadzacym na poludniowy-wschod, "
	+"a wlasciwie jego scianach dostrzegasz dziwne otwory...\n");
    add_exit(ROOM+"krypta4", "polnocny-wschod"); 
    add_exit(ROOM+"krypta1", "polnocny-zachod"); 
    add_exit(ROOM+"krypta6", "poludniowy-zachod"); 
    add_exit(ROOM+"krypta7", "poludniowy-wschod","@@pulapka",0); 
    clone_object(OBJ+"sarkofag1")->move(TO);
}

int
czolganie_sie(string gdzie)
{
notify_fail("Gdzie chcesz sie przeczolgac?\n");
if(gdzie=="sie na se" || gdzie=="sie na poludniowy-wschod" )
	{
	TP->catch_msg("Czolgasz sie na poludniowy-wschod, skutecznie omijajac pulapke.\n");
	tell_room(ROOM+"krypta3.c",QIMIE(TP,PL_MIA)+" przeczolguje sie na poludniowy-wschod.\n",({TP}));
	TP->move_living("M",ROOM+"krypta7.c");
	return 1;
	}
return 0;
}
void
init()
{
::init();
add_action("czolganie_sie","przeczolgaj");
}