/* Lokacja Lichwiarza,
 * napisane przez Alfena
 */
 
#include "local.h"

inherit TPATH + "std/twierdza";


void
create_twierdza()
{
	set_short("Komnata Lichwiarza");
	set_long("Znajdujesz sie w dosc przestronnej, ladnie urzadzonej "+
		"komnacie. Duza czesc podlogi zajmuje przepiekny, "+
		"lekko pobrudzony zielonkawym sluzem, nadjedzony przez "+
		"mole dywan. "+query_long()+
		" Na polnocej scianie wisi obraz przedstawiajacy "+
		"jakas krasnoludzka pieknosc, pod nim zas znajduje sie "+
		"ciezkie debowe biurko. "+
		"Do biurka zostala przymocowana tabliczka\n");
	
	add_item(({"obraz","pieknosc","krasnoludzka pieknosc"}),
		"Byc moze na obrazie zostala ukazana szanowna malzonka "+
		 "wodza jednego z krasnoludzkich klanow. Przepiekna broda, "+
		 "kruczoczarne wlosy i te wspaniale rozki tworza razem "+
		 "wybuchowy koktajl.\n");
	add_item("dywan","Przepiekne dzielo rekodzielnictwa zajmuje nalezyta "+
		"pozycje w tym pomieszczeniu. Elfie wlosy, z ktorych zostal "+
		"utkany ten wspanialy przyklad sztuki krasnoludzkiej, "+
		"wspaniale harmonizuja ze scenami tortur i orgi "+
		"uwiecznionymi na nim.\n");
	add_item(({"biurko","debowe biurko"}), "Ten ciezki mebel z pewnoscia "+
		"dal odpor niejednemu zfrustrowanemu interesantowi, o czym "+
		"swiadcza plamy zakrzeplej krwi na kantach.\n");
	add_item("tabliczke","Widnieje na niej jakis napis.\n");
	
	add_cmd_item(({"tabliczke","napis","napis na tabliczce"}),
		({"przeczytaj"}), ({"@@tabliczka@@"}));
	
	reset_twierdza();
	
	add_exit(TPATH + "lokacje/wn5", "poludnie");
}



string
tabliczka()
{
	object ob=present("lichwiarz");
	
	if (objectp(ob))
		return ob->standard_bank_sign();
	return "B..... HHH.................DD............DDD.AS.\n"+
		"Reszta napisu jest nie do odczytania z powodu zakrzeplej "+
		"krwi.\n";
}



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