/* podstawa dla reszty korytarzy w twierdzy
 * napisane przez ALfena
 */
 
#include "local.h"

inherit LPATH + "twierdza";

void
create_korytarz()
{

}



void
create_twierdza()
{
	create_korytarz();
	
	
	
	set_long("Znajdujesz sie w dlugim mrocznym korytarzu wylozonym "+
		"czarnymi plytami. "+query_long()+" Kurz i pyl "+
		"unosza sie w powietrzu, utrudniajac oddychanie. Resztki "+
		"zielonego sluzu splywaja ciezko ze scian. Z sufitu, w "+
		"nieregularnych odstepach zwisaja przerdzewiale kandelabry. ");
	set_short("Korytarz");
	add_item(({"sluz","zielony sluz"}),"Zielony sluz wyglada dosc "+
		"nieprzyjemnie. Zapach, jaki roztcza wokol siebie, "+
		"przypomina odor gnijacego ciala.\n");
	add_item(({"pyty","czarne plyty"}),"Plyty, jakimi wylozone jest "+
		"podloze, emanuja wrecz namacalna czernia.\n");
	add_item("sufit","Sufit zostal zbudowany z takich samych plyt, "+
		"jakimi wylozone jest podloze.\n");
	add_item("kandelabry","Kandelabry sa mocno zniszczone i daleko im "+
		"do dawnej swietnosci.\n");
	switch (random(3))
	{
	  case 0 :
	  	set_long(query_long()+"Na kazdej ze scian umocowne sa "+
	  		"bogato zdobione lustra.\n");
	  	add_item(({"lustra", "bogato zdobione lustra",
	  		"zdobione lustra"}), "Lustra zostaly wykonane "+
	  		"prawdopodobnie przez krasnoludzkich mistrzow, "+
	  		"poniewaz nawet po tylu wiekach misternie zdobione "+
	  		"ramy nie stracily nic ze swej dawnej swietnosci.\n");
	  	add_cmd_item(({"sie w lustrze", "sie w lustrach"}),
	  		({"przejrzyj"}),
	  		"Gdy przejrzal"+this_player()->koncowka("es","as")+
	  		" sie w lustrze, Twoje odbicia pojawily sie nalge "+
	  		"w pozostalych lustrach. Jednakze kazde Twoje odbicie "+
	  		"zostalo obarczone niewielka skaza, za kazdym razem "+
	  		"inna.\n");
	  	break;
	  case 1 :
	  	set_long(query_long()+"Na obu scianach korytrza znajduja sie "+
	  		"niewielkie nisze, w kazdej z nich blyszcza biela "+
	  		"kosci krasnoludzkich szkieletow ubranych w zetlale "+
	  		"stroje.\n");
	  	add_item(({"nisze","niewielkie nisze"}),"Prawdopodobnie "+
	  		"zostly recznie wykute w skale i wylozone pozniej "+
	  		"czarnym kamieniem, z ktorego zostala wykonana wieksza "+
	  		"czesc twierdzy.\n");
	  	add_item(({"szkielety","krasnoludzkie szkielety"}),
	  		"Szkielety ubrane sa w stroje wojownikow, czasem nawet "+
	  		"mozna dostrzec fragmenty godla lub herbu klanu. "+
	  		"Niektore szkielety posiadja dodatkowe pary rak, inne "+
	  		"kly i szpony.\n");
	  	add_item(({"stroje","zetlale stroje"}),"Sa to chyba stroje "+
	  		"wojownikow, jednakze nie mozna tego stwierdzic "+
	  		"z cala pewnoscia.\n");
	  	break;
	  case 2 :
	  	set_long(query_long()+ "Krew, krew, nadgnile rece, nogi, "+
	  		"oderwane glowy, ten przepiekny widok cieszy "+
	  		"oczy kazdego konesera.\n");
	}
	reset_twierdza();
}


void
reset_twierdza()
{
	object ob;
	
	if (!present("szkielet"))
	{
		ob = clone_object(TPATH + "std/szkielet");
		ob -> szykuj();
		ob->move_living("M",this_object());
	}
dodaj_npca(NPC+"rycerz");
dodaj_npca(NPC+"wojownik");
dodaj_npca(NPC+"krasnozwierz");
dodaj_npca(NPC+"sluz");
dodaj_npca(NPC+"pies");
}