/* Pomieszczenie Twierdzy krasnoludow chaosu
 * Napisane przez Alfena
 */
 
 
#include "local.h"

inherit LPATH + "twierdza";


void
create_pomieszczenie()
{
}



void
create_twierdza()
{
	set_long("Znajdujesz sie w mrocznym pomieszczeniu. Panuje "+
		"tu zaduch, powietrze przesycone jest zapachem zgnilizny. "+
		query_long()+
		" ");
	switch (random(6))
	{
		case 0 :
			set_long(query_long()+
				"Na scianach wisza mocno zakurzone "+
				"portrety, w nadzartych przez korniki "+
				"ramach.\n");
			add_item(({"portrety","mocno zakurzone portrety",
				"zakurzone portrety"}),
				"Moze kiedys mozna bylo mowic, ze sa to "+
				"portrety, dzis wszakze przedstawiaja soba "+
				"zalosny widok.... Rozmazane, nieksztaltne "+
				"plamy, brud - oto co pozostalo ze swietnej "+
				"niegdys przeszlosci.\n");
			add_cmd_item(({"portrety","mocno zakurzone portrety",
				"zakurzone portrety","portrety z kurzu"}),
				({"oczysc"}),
				"Twoje szlachetne proby przywrocenia portretom "+
				"minionej swietnosci, spelzly na niczym. "+
				"Kurz i robactwo zrobily swoje.\n");
			break;
		case 1 :
			set_long(query_long()+
				"W rogach pomieszczenia leza sterty smieci i "+
				"resztek drewna.\n");
			add_item("smieci","Dostrzegasz roznorakie pozostalosci "+
				"po gospodarzach. Szczatki jedzenia, zasuszone "+
				"ekstrema, kosci malych zwierzat.\n");
			break;
		case 2 :
			set_long(query_long()+
				"Polnocna sciana pomieszczenia pokryta jest glebokimi "+
				"bruzdami, wyraznie odcinajacymi sie sie od reszty tla.\n");
			add_item("bruzdy","Bardzo przypominaja slady szponow jakiej "+
				"ogromnej istoty.\n");
			break;
		case 3 :
			set_long(
				"Duza czesc powiezchni scian zostala porosnieta przez "+
				"mech i roznego rodzaju grzyby. "+
				query_long()+"\n");
			add_item(({"mech","grzyby"}),
				"W tym niezbyt mocnym swietle dosrzegasz jedynie resztki "+
				"zielonkawego sluzu saczacego sie miedzy roslinami.\n");
			break;
		case 4 :
			set_long(query_long()+" Posrodku pomieszczenia "+
				"ktos zostawil rozlozony stelarz z "+
				"niedokonczonym chyba obrazem.\n");
			add_item("stelarz", "Stelarz zostal wykonany "+
				"z mocnego i ciezkiego debowego drewna. "+
				"Poprzez kurz i brud mozna dostrzec resztki "+
				"kolorowych plam - zapewne po farbach.\n");
			add_item("obraz", "Obraz jest mocno zakurzony, "+
				"jednakze jego powiezchnia zachowuje sie "+
				"w dziwny sposob - od czasu do czasu przebiega "+
				"po niej dziwne drzenie. Wszelako, aby "+
				"nabrac pewnosci nalezalo by dotknac obrazu.\n");
			add_cmd_item(({"obraz", "powierzchni obrazu",
				"powierzchni"}), ({"dotknij"}),
				({"@@dotknij"}));
			break;
		case 5 :
			set_long(query_long()+" Na scianach smetnie "+
				"zwisaja resztki gobelinow i arrasow. Ich wyblakle kolory "+
				"zdaja sie podkreslac wszechobecne zniszczenie panujace "+
				"w mocno podupadlej twierdzy.\n");
			add_item(({"arrasy","gobeliny"}),"Z wielka trudnoscia mozna "+
				"odtworzyc sceny przedstawione na tych, "+
				"nadzartych przez robale, dzielach sztuki. "+
				"Sceny zwykle dotycza pracy w kopalni, przedstawiaja "+
				"pola wielkich bitew, obrzadki ku czci bogow.\n");
			break;
	}
	create_pomieszczenie();
	reset_twierdza();
}


string
dotknij()
{
	this_player()->move_living("X", TPATH + "lokacje/kor"+(random(38)+1), 0, 1);
	return "Gdy dotkn"+this_player()->koncowka("ales","elas")+
		" obrazu, poczul"+this_player()->koncowka("es","as")+
		" cos dziwnego.\n";
}




void
reset_twierdza()
{
	object ob;
	
	if (!present("krasnozwierz"))
	{
		ob = clone_object(TPATH + "npc/krasnozwierz");
		ob -> szykuj();
		ob->move_living("M",this_object());
	}
}