inherit "/d/Imperium/std/room";
#include "defs.h"
string papirus();
object tablica;
void
create_imperium_room()
{
   set_short("Szeroki pokoj");
   set_long("Znajdujesz sie w przestronnym pokoju o ksztalcie prostokata niemalze pustego. "+
            "Znajduje sie tutaj jedynie debowe biurko stojaca pod zachodnia sciana oraz "+
            "tablica pod wschodnia. Odsuwane drzwi znajduja sie w polnocnej scianie.\n");
   add_item("biurko", "Debowe masywne biurko zawiera dlugi papirus. Mozesz go obejrzec "+
                      "zapewne moze zawierac istotne informacje.\n");
   add_item("papirus", "@@papirus");
   add_prop(ROOM_I_INSIDE,1);
   add_prop(ROOM_I_LIGHT,1);
   add_exit(PATH + "room/2", "polnoc");
   reset_imperium_room();
}
void
reset_imperium_room()
{
	if(!objectp(tablica))
	{
		setuid();
		seteuid(getuid());
		tablica = clone_object(PATH + "obj/tablica");
		tablica->move(TO);
		tell_room(TO, "Kilku samurajow przynosi stara brakujaca tablice i umieszcza ja na swym orginalnym miejscu.\n");
	}
}
string
papirus()
{
	string str;
	string *hatamoto;
	string *samuraje;
	string *kandydaci, *poparcia;
	int i,y;
	hatamoto = SILNIK->query_hatamoto();
	samuraje = SILNIK->query_regular();
	kandydaci = SILNIK->query_applicants();
	str = "-------------------------------------------------------\n";
	str+= "  Daimyo Klanu Tygrysa : \n  " +
	      capitalize(SILNIK->query_daimyo()) +
	      (SILNIK->query_data(SILNIK->query_daimyo(), KLAN_NAZWISKO) ?
	      " " + SILNIK->query_data(SILNIK->query_daimyo(), KLAN_NAZWISKO): "") +
	      (SILNIK->query_data(SILNIK->query_daimyo(), KLAN_PRZYDOMEK) ?
	      " zwany " + SILNIK->query_data(SILNIK->query_daimyo(), KLAN_PRZYDOMEK): "") + "\n";
	str+= "-------------------------------------------------------\n";
	str+= "  Hatamoto Klanu Tygrysa : \n";
	if (!sizeof(hatamoto)) str += "  Nikt nie zostal mianowany Hatamoto.\n";
	else
	  for(i=0; i<sizeof(hatamoto); i++) str+= "  " + capitalize(hatamoto[i]) +
	                                          (SILNIK->query_data(hatamoto[i], KLAN_NAZWISKO) ?
	                                           " " + SILNIK->query_data(hatamoto[i], KLAN_NAZWISKO): "") +
	                                          (SILNIK->query_data(hatamoto[i], KLAN_PRZYDOMEK) ?
	                                           " zwany " + SILNIK->query_data(hatamoto[i], KLAN_PRZYDOMEK): "") +
	                                          "\n";
	str+= "-------------------------------------------------------\n";
	str+= "  Samuraje Klanu Tygrysa : \n";
	if(!sizeof(samuraje)) str += "  W Klanie Tygrysa nie ma zwyklych samurajow.\n";
	else
	  for(i=0; i<sizeof(samuraje); i++) str+= "  " + capitalize(samuraje[i]) +
	                                          (SILNIK->query_data(samuraje[i], KLAN_NAZWISKO) ?
	                                           " " + SILNIK->query_data(samuraje[i], KLAN_NAZWISKO): "") +
	                                          (SILNIK->query_data(samuraje[i], KLAN_PRZYDOMEK) ?
	                                           " zwany " + SILNIK->query_data(samuraje[i], KLAN_PRZYDOMEK): "") +
	                                          "\n";
	str+= "-------------------------------------------------------\n";
	str+= "  Kandydaci do Klanu Tygrysa : \n";
	if(!sizeof(kandydaci)) str += "  Nikt nie kandyduje do Klanu Tygrysa.\n";
	else
	  for(i=0; i<sizeof(kandydaci); i++)
	  {
		  str+= "  " + capitalize(kandydaci[i]) + "\n  Poparcia:  ";
		  poparcia = SILNIK->query_poparcia(kandydaci[i]);
		  for(y=0; y<sizeof(poparcia); y++)
		      str += capitalize(poparcia[y]) + " ";
		  str+= "\n";
	  }
    return str;
}