#include "mith_zabojcy.h"

inherit "/d/Imperium/std/monster";
inherit "/lib/trade";

void
create_monster()
{
    ustaw_nazwe (({"reinhard", "reinharda", "reinhardowi", "reinharda", 
		   "reinhardem", "reinhardzie"}),
		   allocate(6),
    		   PL_MESKI_OS);
    dodaj_nazwy (({"Reinhard Hubner", "Reinharda Hubnera",
    		  "Reinhardowi Hubnerowi", "Reinharda Hubnera",
    		  "Reinhardem Hubnerem", "Reinhardzie Hubnerze"}),
    		  allocate(6),PL_MESKI_OS);


    dodaj_nazwy(({"zlotnik","zlotnika","zlotnikowi","zlotnika","zlotnikiem",
    		  "zlotniku"}),({"zlotnicy","zlotnikow","zlotnikom",
		  "zlotnikow","zlotnikami","zlotnikach"}), PL_MESKI_OS);
    
    set_long("Za lada siedzi drobny, calkiem lysy mezczyzna. Jego " +
	"przygarbione plecy swiadcza, ze wiekszosc zycia spedzil przy " +
	"pracy. Mimo, ze jest juz mocno posuniety w latach, jego dlonie " +
	"sa spokojne i pewne, a wzrok ostry. Dzieki temu i jego talentowi " +
	"wykonana przez niego bizuteria cieszy sie niegasnacym powodzeniem " +
	"nawet w bardzo wysokich kregach. Zlotnik od czasu do czasu " +
	"pokasluje, a jego glos szelesci jak pergamin. To wynik " +
	"wielu lat wdychania pylu zlotniczego.\n");
    
    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("lysy","lysi");
    dodaj_przym ("zgarbiony","zgarbieni");

    set_living_name("_zlotnik_");
    
    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 47000);
    add_prop(CONT_I_HEIGHT, 145);

    set_skill(SS_DEFENCE, 70);
    set_skill(SS_UNARM_COMBAT, 70);
    set_skill(SS_PARRY,  random(10));

    set_stats(({ 51, 58, 50, 44, 40, 44}));

    set_act_time(10);
    add_act("emote przeciera sobie lysine husteczka.");
    add_act("emote zanosi sie suchym, plytkim kaszlem.");
    add_act("emote przyglada sie uwaznie klientom.");

    set_chat_time(13);
    add_chat("Czym moge sluzyc?");
    add_chat("Kupujesz, czy tylko ogladasz?");
    add_chat("Mam tutaj najwspanialsza bizuterie w Nuln, a moze nawet w Imperium.");
    add_chat("Jestem zlotnikiem z dziada, pradziada... Znam swoj fach.");

    dodaj_srebro(10+random(20));
    dodaj_zloto(random(3));
    
    remove_prop(NPC_M_NO_ACCEPT_GIVE);
    config_default_trade();
    
}

string
query_presentation()
{
  return "Reinhard Hubner, Mistrz Zlotniczy, czlowiek";
}

void
add_introduced (string imie)
{
     set_alarm(2.0,0.0,"return_introduce", imie);
}

void
return_introduce(string kto) 
{
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}


public void
enter_inv(object ob, object from)
{
	mapping tmp;
	object naszyjnik;
	if (!(ob->query_prop(ZEBY)))
	{
		command("emote mowi: Co ja mam niby z tym zrobic?");
		return;
	}
	
	if (sizeof(pay(PRICE,from, 0,0,0,0,0))==1)
	{
	   	command("emote mowi: Nie masz wystarczajaco pieniedzy, zeby "+
	   		"zaplacic za naszyjnik!\n");
	  	from->catch_msg("Zlotnik oddaje ci "+ob->short(PL_MIA)+".\n");
		ob->move(from);
		return ;
	}
		
	setuid();
	seteuid(getuid());
	
	tmp=restore_map(SAVE);
	tmp[from->query_real_name()]=ob->query_typ();
	save_map(tmp, SAVE);
	naszyjnik=clone_object(NASZYJNIK);
	naszyjnik->move(from);
	command("emote mowi: Prosze, oto twoj naszyjnik.");
	from->catch_msg("Zlotnik daj ci pieknie wykonany naszyjnik");
	ob->remove_object();
}