/* Karczmarz
 * napisane przez Alfena
 */
#include "local.h"
inherit TPATH + "std/imp_pub";
inherit TPATH + "std/mutant";
#include <pl.h>
#include <money.h>
#include <macros.h>
#include <stdproperties.h>
void
create_mutant()
{
	set_long("Ten osobnik przepasany krwiscie czerwona szmata "+
		"przypomina troszke karczmarza. Jednakaze na owej szmacie "+
		"to watpliwe pokrewienstwo sie konczy. "+opis+"\n");
	ustaw_nazwe(({ "karczmarz", "karczmarza", "karczmarzowi",
            "karczmarza", "karczmarzem", "karczmarzu" }), ({ "karczmarze",
            "karczmarzy", "karczmarzom", "karczmarzy", "karczmarzami",
            "karczmarzach" }), PL_MESKI_OS);
	
	dodaj_przym("lysawy","lysawi");
	
	add_wynos_food(
		({"udo","uda","udu","udo","udem","udzie"}),
		({"uda","ud","udom","uda","udami","udach"}),
		({ ({"dobrze przypieczony"}),({"dobrze przypieczeni"})}),
		700, 70, "Wspaniale wypieczone ogrze udo.\n",
		PL_NIJAKI_NOS,300);
	add_wynos_food(
		({"reka","reki","rece","reke","reka","rece"}),
		({"rece","rak","rekom","rece","rekami","rekach"}),
		({({"dobrze przypieczony"}),({"dobrze przypieczeni"})}),
		200, 20, "Wspaniale wypieczona elfa raczka.\n",
		PL_ZENSKI,300);
	add_wynos_food(({ "serce", "serca", "sercu", "serce", "sercem",
            "sercu" }), ({ "serca", "serc", "sercom", "serca", "sercami",
            "sercach" }), 
            ({({"dobrze przypieczony"}),({"dobrze przypieczeni"})}),
		1000, 100, "Wspaniale wypieczone halflinskie serce.\n",
		PL_NIJAKI_NOS, 300);
	add_wynos_food(
		({"glowa","glowy","glowie","glowe","glowa","glowie"}),
		({"glowy","glow","glowom","glowy","glowami","glowach"})
		, ({({"panierowany"}),({"panierowani"})}),
		1000, 100, "Odpowiednio panierowana ludzka glowa.\n",
		PL_ZENSKI,300);
	add_food("elfie oczka",({({"gotowany"}),({"gotowani"})}),250, 
		25,PL_NIJAKI_NOS);
	add_food("halflinskie paluszki",({({"gotowany"}),({"gotowani"})}),500, 
		50,PL_NIJAKI_NOS);
	add_food("ludzkie zoladki",({({"gotowany"}),({"gotowani"})}),1000, 
		100,PL_NIJAKI_NOS);
	
	add_drink("elfiej krwi","elfia krew","kieliszek slodkiej "+
		"elfiej krwi", 
		"jasnej elfiej krwi",({({"slodki"}),({"slodcy"})}), 
		5, 50, 2, 50, PL_ZENSKI,
		"Jest to niewielki buklak oznaczona dziwna pieczecia.");
	add_drink("ogrzej krwi","ogrza krew","kufel wspaniale "+
		"pieniacej sie, ciemnej ogrzej krwi",
		"ciemnej ogrzej krwi",
		({({ "ciemny"}),({"ciemni"})}),
		20, 250, 5, 250, PL_ZENSKI,"Jest to mala beczulka oznaczona "+
		"prostym krzyzem.");
	add_drink("halflinskej posoki","halflinska posoke","wychyla kubek "+
		"cieplej halflinskiej posoki", 
		"cieplej halflinskiej posoki",
		({({"cieply"}),({"ciepli"})}),
		25, 200, 2, 200, PL_ZENSKI, "Jest to niewielki buklak "+
		"z plynem rubinowego koloru w srodku.");
		
	ustaw_krotki_opis();
}
void
init_living()
{
	::init_living();
	
	init_pub();
	add_action("do_wykup","wykup");
}
int
do_wykup(string s)
{
	if (!CAN_SEE_IN_ROOM(this_player()))
	{
		notify_fail("Jest tu zbyt ciemno.\n");
		return 0;
	}
	if (s!="pokoj" && s!="miejsce" && s!="lozko")
	{
		command("powiedz do "+this_player()->query_nazwa(PL_DOP)+
			" Mozesz wykupic lozko lub miejsce.");
		return 1;
	}
	if (!MONEY_ADD(this_player(), -12))
	{
		command("powiedz do "+this_player()->query_nazwa(PL_DOP)+
			" Biedakom pokojow nie udostepniam.");
		return 1;
	}
	command("podrap sie");
	command("powiedz do "+this_player()->query_nazwa(PL_DOP)+
		" Dobra cos sie znajdzie. Zaklepane.");
	this_player()->set_default_start_location(TPATH + "lokacje/wn9");
	return 1;
}