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


#include "ogolne.h"

void
create_monster()
{

    ustaw_imie (({"Hans Heineberg", "Hansa Heineberga",
    		  "Hansowi Heinebergowi", "Hansa Heineberga",
    		  "Hansem Heinebergiem", "Hansie Heinebergu"}));

    dodaj_nazwy(({"karczmarz", "karczmarza", "karczmarzowi", "karczmarza", 
    		  "karczmarzem", "karczmarzu"}), 
    		({"karczmarze", "karczmarzy", "karczmarzom", "karczmarzy", 
    		  "karczmarzami", "karczmarzach"}), PL_MESKI_OS);

    dodaj_nazwy(({"hans", "hansa",
    		  "hansowi", "hansa",
    		  "hansem", "hansie"}));
    
    set_long("Karczmarz jest poteznym, czarnowlosym mezczyzna w srednim wieku. "
       + "Ma zwykle, skorzane ubranie, a na wierzch zalozony bialy, dlugi fartuch. "
       + "Na pierwszy rzut oka wyglada na uczciwego czlowieka, przyzwyczajonego "
       + "do ciezkiej pracy. Jego rysy zdradzaja, ze pochodzi on z Bretonii.\n");
    set_race_name("czlowiek");

    ustaw_odmiane_rasy(PL_CZLOWIEK);

    dodaj_przym ("potezny","potezni");
    dodaj_przym ("czarnowlosy","czarnowlosi");

    set_gender(G_MALE);
    
    add_prop(CONT_I_WEIGHT, 80000);
    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("Na pewno chce ci sie pic! Mamy doskonale wino!");
    add_chat("Czy chcesz cos zjesc? A moze napic sie?");
    
    set_cchat_time(7);
    add_cchat("Co ja ci zlego zrobilem!");
    add_cchat("Pomocy!");
    add_cchat("Zostaw mnie!");
    add_cchat("Uspokoj sie!");
    
    set_act_time(15);
    add_act("emote rozglada sie po karczmie sprawdzajac, czy zadnemu z gosci niczego nie brakuje.");
    add_act("emote rozglada sie.");
    add_act("emote siada zmeczony na jednej z law.");
}

void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
    switch (emote)
    {
        case "kopnij": 
        case "spoliczkuj" :
        case "szturchnij":
        case "opluj" : set_alarm(2.0, 0.0, "zly", wykonujacy);
        	    break;
        	    
        case "zasmiej": set_alarm(2.0, 0.0, "return_laugh", wykonujacy);
        	      break;
        case "pocaluj":
        case "przytul": set_alarm(2.0, 0.0, "dobry", wykonujacy);
    }
}

void
return_laugh(object kto) 
{
    switch (random(5)) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote smieje sie donosnie."); break;
      case 2 : command("powiedz Wszyscy sie dobrze bawia ? To swietnie !"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Nie obrazaj mnie !");
    command("opluj " + OB_NAME(kto));
}

void
dobry(object kto) 
{
    int los;
    
    if(kto->koncowka("chlop","baba")=="chlop") zly(kto);
    else
      {
        los = random(4);
    
        switch (los) 
        {
          case 0 : command("pocaluj " + OB_NAME(kto)); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi: Wiesz ... Jestes calkiem ladna ..."); break;
          case 3 : zly(kto);
        }
      }
}

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

string
query_presentation()
{
    return "Hans Heineberg, Restaurator, czlowiek";
}

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