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

#include "lakshmi.h"

public string zabojca;

void
create_monster()
{
    ustaw_nazwe(({"karczmarz", "karczmarza", "karczmarzowi", "karczmarza", 
    		  "karczmarzem", "karczmarzu"}), 
    		({"karczmarze", "karczmarzy", "karczmarzom", "karczmarzy", 
    		  "karczmarzami", "karczmarzach"}),PL_MESKI_OS);
    set_long("Jest to wysoki, szczuply czlowiek o szarych, powaznych " +
    	     "oczach ukrytych pod czarnymi, krzaczastymi brwiami. Rude " +
    	     "wlosy przetykane siwizna okalaja pobruzdzona zmarszczkami " +
    	     "twarz. Pomimo podeszlego wieku widac, ze trzyma sie dobrze i " +
    	     "lepiej z nim nie zadzierac.\n");

    dodaj_przym("wysoki","wysocy");
    dodaj_przym("szczuply","szczupli");

    ustaw_odmiane_rasy(PL_CZLOWIEK);
    set_living_name("_karczmarz_");
    set_gender(G_MALE);
    
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(LIVE_I_NO_CORPSE, 1);
    
    add_prop(CONT_I_WEIGHT, 70000);
    add_prop(CONT_I_HEIGHT, 185);
    
    set_skill(SS_DEFENCE, 15 + random(10));
    set_skill(SS_UNARM_COMBAT, 20 + random(10));
    set_skill(SS_PARRY, 10 + random(10));
    
    set_stats(({45, 38, 70, 41, 35, 60}));
    
    set_chat_time(12);
    add_chat("Czym moge sluzyc?");
    add_chat("Czy chcesz sie czegos napic?");
    add_chat("Mamy tu najlepsze jedzenie, moze skosztujesz?");
    
    set_cchat_time(7);
    add_cchat("Czego ty ode mnie chcesz?!?!?");
    add_cchat("Zdajesz sobie sprawe, ze beze mnie nic tu nie kupisz?");
    add_cchat("Odczep sie ty ode mnie!");
    add_cchat("Mam tego dosyc! Straz!!!!");
    
    set_act_time(15);
    add_act("emote szacuje cie wzrokiem.");
    add_act("emote wyciera blat scierka.");
    add_act("emote uklada szklanki.");
    add_act("emote przyglada sie twojej sakiewce.");
}

void
do_die(object killer)
{
    zabojca = killer->query_name(1);
    save_object(NPATH + "zabojca");

    ::do_die(killer);

    write("Zwloki karczmarza zakryl niebieski dym. Kiedy sie rozwial, po " +
    	  "zwlokach nie pozostal nawet najmniejszy slad.\n");
    say("Zwloki karczmarza zakryl niebieski dym. Kiedy sie rozwial, po " +
    	"zwlokach nie pozostal nawet najmniejszy slad.\n");
}