#include <filter_funs.h>
#include <composite.h>
#include "mith.h"


inherit "/d/Imperium/std/room";
string opis_subloc;
string *kaplice=({KAPLICA+"kaplica1.c",KAPLICA+  "kaplica2.c",KAPLICA+  "kaplica3.c", KAPLICA+ "kaplica4.c"});



string opis_pory_roku()
{
	return "";
}

create_kaplica_room()
{
}

create_imperium_room()
{
	create_kaplica_room();
}

string
show_zawartosc()
{	
	string *opisy=({});
	int i,n;
	object *lokacje=({}), *gracze=({}), *przedmioty=({});
	string tutaj=MASTER_OB(this_object())+".c";
//	opisy=explode(tutaj,"/");
//	tutaj=opisy[sizeof(opisy)-1]+".c";
	kaplice-=({tutaj});
	for (i=0;i<sizeof(kaplice);i++) if (!find_object(kaplice[i])) kaplice[i]->laduj();
	for (i=0;i<sizeof(kaplice);i++) lokacje+=({find_object(kaplice[i])});
	for (i=0;i<sizeof(lokacje);i++) 
	{
		opisy+=({""});
		przedmioty=all_inventory(lokacje[i]);
		przedmioty-=(gracze=FILTER_LIVE(przedmioty));
		gracze-=({TP});
		opisy[i]="W "+lokacje[i]->query_miej();
		if (n=sizeof(gracze)) 
		{
			opisy[i]+= ((n>1)?" stoja ":" stoi ") + COMPOSITE_LIVE(gracze, PL_MIA);
			n=sizeof(przedmioty);
			if (n) opisy[i]+= ((n>1)?". Leza tam ":". Lezy tam ")+implode(przedmioty->short(),", ");
		}		
		
		else if (n=sizeof(przedmioty)) opisy[i]+=( (n>1)?" leza ":" lezy ")+implode(przedmioty->short(),", ");
		else opisy[i]=0;
		if (opisy[i]) opisy[i]+=".";
	}
	opisy-=({0});
	return implode(opisy," ");
}

int
go()
{
}

set_miej(string str)
{
	opis_subloc=str;
}

string
query_miej()
{
	return opis_subloc;
}

set_long(string str)
{
	::set_long(str+"@@show_zawartosc@@"+"\n");
}