inherit "/d/Imperium/Nuln/std/npc";

#include <ss_types.h>
#include <macros.h>
#include <stdproperties.h>

void
create_mieszczanin_nuln()
{
    ustaw_jak_daleko(3);
    ustaw_czy_wraca(1);

    if (!IS_CLONE)
         return;
    

    ustaw_nazwe(({"reinhard", "reinharda", "reinhardowi", "reinharda", 
		   "reinhardem", "reinhardzie"}),
		 ({"reinhard", "reinharda", "reinhardowi", "reinharda", 
		   "reinhardem", "reinhardzie"}),
    		   PL_MESKI_OS);

    dodaj_nazwy (({"Reinhard Fleischer", "Reinharda Fleischera",
    		  "Reinhardowi Fleischerowi", "Reinharda Fleischera",
    		  "Reinhardem Fleischerem", "Reinhardzie Fleischerze"}),
    		  allocate(6),PL_MESKI_OS);

    dodaj_nazwy(({"rzeznik","rzeznika","rzeznikowi","rzeznika","rzeznikiem",
    		  "rzezniku"}),({"rzeznicy","rzeznikow","rzeznikom",
		  "rzeznikow","rzeznikami","rzeznikach"}), PL_MESKI_OS);
    
    set_long("Za lada stoi potezny mezczyzna o krotkich, ciemnych wlosach." +
	" Jego muskularne ramiona swiadcza o wielkiej sile. Ma na sobie " +
	"fartuch pokryty zarowno zakrzepla jak i swieza krwia ubijanych " +
	"zwierzat. Jego ciemne, zwezone oczy spokojnie patrza na swiat. " +
	"Rzeznik znany jest ze swej solidnosci. Dotad nie oskarzono go " +
	"ani o oszukiwanie na wadze, ani o sprzedawanie nieswiezego " +
	"miesa. Moze zreszta jest tak dlatego, ze nikt nie chcialby z nim " +
	"zadrzec.\n");

    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("potezny","potezni");
    dodaj_przym ("ciemnowlosy","ciemnowlosi");

    set_living_name("_rzeznik_");
    
    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 90000);
    add_prop(CONT_I_HEIGHT, 195);

    set_skill(SS_DEFENCE, 25+ random(5));
    set_skill(SS_UNARM_COMBAT, 30 + random(5));
    set_skill(SS_PARRY,  20 + random(10));

    set_stats(({ 60, 55, 50, 50, 50, 50}));

    set_act_time(30);
    add_act("emote odgania muchy unoszace sie nad kawalkami miesa.");
    add_act("emote zrecznie rozwiesza peta kielbas na hakach.");
    add_act("emote przyglada sie uwaznie klientom.");

    set_chat_time(15);
    add_chat("Czym moge sluzyc?");
    add_chat("Kupujesz, czy tylko ogladasz?");
    add_chat("To mieso jest swieze. Nie musisz go tak obwachiwac.");
    add_chat("Moze sprobujesz tego? Wysmienita golonka.");

    dodaj_miedz(30+random(20));
    dodaj_srebro(22);
}

string
query_presentation()
{
  return "Reinhard Fleischer, rzeznik, 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)));
}