/* szczurolap
 * napisane przez Alfena
 */


#include "local.h"
#include <pl.h>
#include <macros.h>
#include <money.h>
#include <stdproperties.h>

inherit TPATH + "std/mutant";


void
create_mutant()
{
	ustaw_nazwe(({"szczurolap","szczurolapa","szczurolapowi",
		"szczurolapa","szczurolapem","szczurolapie"}),
		({"szczurolapi","szczurolapow","szczurolapom",
		"szczurolapow","szczurolapami","szczurolapach"}),
		PL_MESKI_NOS_ZYW);
	
	dodaj_przym("stary","starzy");
	
	set_long("Istota ta wyglada na kogos znajacego sie na problemach "+
		"hodowli i tresury szczurow. Mimo ohydnego wygladu ma "+
		"znamiona prawdziwego profesjonalisty. "+opis+"\n");
	
	add_chat("Moje kochane zwierzatka, nie oddam was nikomu.");
	add_chat("Chcialy byscie cos zjesc ?");
	add_chat("Moje szczurki ulubione, dla was wszystko co najlepsze.");
	
	add_act("emote donosi wode do klatek.");
	add_act("emote przynosi jedzenie do klatek.");
	add_act("emote delikatnie glaszcze jednego ze szczurow.");
	add_act("emote karmi szczura.");
	
	ustaw_krotki_opis();
}


void
init_living()
{
	::init_living();
	
	add_action("do_wypozycz","wypozycz");
}


string
tabliczka()
{
	return "Mozesz tu wypozyczyc szczura za jedyna sztuke zlota.\n";
}


int
do_wypozycz(string s)
{
	if (!CAN_SEE_IN_ROOM(this_player()))
	{
		notify_fail("Jest tu zbyt ciemno.\n");
		return 0;
	}
	notify_fail("Co wypozyczyc?\n");
	if (s!="szczura")
		return 0;
	if (!MONEY_ADD(this_player(), -240))
	{
		command("powiedz do "+this_player()->query_nazwa(PL_DOP)+
			" Nie stac cie na uslugi moich ulubiencow.");
		return 1;
	}
	command("powiedz do "+this_player()->query_nazwa(PL_DOP)+
		" Dbaj o niego, to dobry pieszczoszek. Doreczy "+
		"wszystko i wszedzie.");
	say(QCIMIE(this_object(), PL_MIA)+ " wyciagnal delikatnie z klatki "+
		"szczura i podal go "+QIMIE(this_player(), PL_CEL)+".\n");
	write(check_call(QCIMIE(this_object(), PL_MIA))+ " wyciagnal delikatnie z klatki "+
		"szczura i podal go tobie.\n");
	(clone_object(TPATH + "std/szczur"))->move(this_player());
	return 1;
}