/* Lichwiarz
 * napisane przez Alfena
 */
#include "local.h"
#include <pl.h>
inherit TPATH + "std/mutant";
inherit "/lib/bank";
void
create_mutant()
{
	set_long(opis + " Na ciele tego przedstawiciela znajduja sie "+
		"zalosne resztki jakis ubran. Byc moze kiedys mienily sie "+
		"one kolorami, dzis jednak stanowia okazyje hustki, do "+
		"wycierania roznorakich wydzielin cielesnych.\n");
	
	ustaw_nazwe(({"lichwiarz","lichwiarza","lichwiarzowi","lichwiarza",
		"lichwiarzem","lichwiarzu"}),
		({"lichwiarze","lichwiarzy","lichwiarzom","lichwiarzy",
		"lichwiarzami","lichwiarzach"}), PL_MESKI_NOS_ZYW);
	
	dodaj_przym("zlosliwy","zlosliwi");
	
	config_default_trade();
	set_bank_fee(35);
	config_trade_data();
	
	add_chat("Pieniazki, pieniazki dla niech zrobilbym wszystko.");
	add_chat("Wymieniam pieniazki, z minimalnym narzutem.");
	add_chat("Wiem, ze trace na tych wszystkich wymianach, ale "+
		"nie moge sie powstrzymac.");
	
	add_act("usmiech chciw");
	add_act("zachichocz chciw");
	add_act("zarechocz chciw");
	add_act("zasmiej sie chciw");
	add_act("emote powiodl wokol chciwym wzrokiem.");
	add_act("emote pocalowal delikatnie pieniazek.");
	
	ustaw_krotki_opis();
}
void
init_living()
{
	::init_living();
	
	bank_init();
}
void
bank_hook_pay(string text)
{
	command("emote przyjal pieniadze i szybko schowal je do sejfu.");
	::bank_hook_pay(text);
}
void
bank_hook_change(string text)
{
	command("emote szybko pogmeral przy sejfie, podczas wymiany pieniedzy.");
	::bank_hook_change(text);
}
void
bank_hook_already_minimized()
{
	command("popatrz dziwn na "+this_player()->query_nazwa(PL_DOP));
	::bank_hook_already_minimized(text);
}
void
bank_hook_no_idea()
{
	command("powiedz do " + this_player()->query_nazwa(PL_DOP) +
		" Nie masz powodu bys denominow"+ 
		this_player()->koncowka("al","la")+" pieniadze.");
}
void
bank_hook_minimized(string s, string s1)
{
	command("powiedz do "+this_player()->query_nazwa(PL_DOP) +
		" Prosze oto twoje pieniadze.");
	write("Otrzymujesz zdenominowane pieniadze.\n");
}
string
standard_bank_sign()
{
    return "Czytasz:\n\n" + 
	"Moj skromny przybytek oferuje ci tani sposob na pozbycie sie uciazliwych, "+
	"ciezkich monet. Za kazda transakcje pobieram tylko " + query_bank_fee() +
	"% prowizji.\n" +
	"A oto przyklad rzeczy, ktore mozesz tu zrobic:\n" + 
	" -  zamienic miedz i srebro na zloto\n" +
	"  W wyniku czego zamienilbym ci wszystkie srebrne i miedziane\n" +
	"  w tyle zlota, ile tylko sie da.\n" +
	" -  probnie zamienic miedz i srebro na zloto\n" +
	"  Co pozwala ci na sprawdzenie efektu danej operacji, bez\n"+
	"  jej wykonywania.\n" +
	" -  zamienic 1 mithrylowa monete na miedziane monety\n" +
	"  Dzieki czemu rozmienisz mithryl na miedziaki.\n" +
	" -  zamienic mithryle na 100 srebrnych monet\n" +
	"  W wyniku czego na 100 srebrnych monet zostanie rozmienione tyle\n"+
	"  mithrylu, ile potrzeba.\n" +
	" -  zdenominowac monety\n" +
	"  Co spowoduje zamiane monet na najbardziej wartosciowe.\n\n";
}