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

#include "tanis.h"

void
create_monster()
{
    ustaw_nazwe(({"karczmarz", "karczmarza", "karczmarzowi", "karczmarza", 
    		  "karczmarzem", "karczmarzu"}), 
    		({"karczmarze", "karczmarzy", "karczmarzom", "karczmarzy", 
    		  "karczmarzami", "karczmarzach"}));

    set_long("Karczmarz jest grubym czlowiekiem kolo piecdziesiatki. Lysina "+
	     "przerzedzila juz wlosy na jego glowie. Ubrany jest w czarny "+
	     "stroj i bialy faruch.\n");

    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    dodaj_przym("gruby","grubi");
    dodaj_przym("lysy","lysi");

    add_prop(LIVE_I_NEVERKNOWN,1);
 
    set_gender(G_MALE);
    
    add_prop(CONT_I_WEIGHT, 85000);
    add_prop(CONT_I_HEIGHT, 180);
    
    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("Czy wszytkim wszystko smakuje?");
    add_chat("Czy moge w czyms pomoc?");
    add_chat("Czym moge sluzyc?");
    add_chat("Polecam nasze jedzenie!");
    add_chat("Nigdzie nie znajdziecie lepszego jedzenia niz u nas.");
    add_chat("Cos podac?");
    add_chat("Ach, zycie tutaj plynie tak powoli...");
    add_chat("Przekleci pijacy! Wczoraj malo mi karczmy nie rozwalili!");
    add_chat("Mamy najlepsze wino w okolicy!");
  
    set_cchat_time(7);
    add_cchat("Zostaw mnie!");
    add_cchat("Co ci zlego zrobilem?");
    add_cchat("Spokojnie!");
    add_cchat("W tej chwili przestan!");
    add_cchat("STRAZ!!! POMOCY!!!");
    add_cchat("Nie zabija mnie, blagam!");

    set_act_time(15);
    add_act("emote wyciera rece w fartuch.");
    add_act("emote przeciera kieliszki.");
    add_act("emote wyciera talerze.");
    add_act("emote wzdycha na mysl o starych dobrych czasach.");
}

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("emote smieje sie serdecznie."); break;
      case 1 : command("emote odwzajemnia smiech."); break;
      case 2 : command("emote mowi: Co cie tak smieszy?"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("emote mowi: Jesli chcesz kogos zaczepiac to idz gdzie indziej.");

    tell_room(find_object(WEILPATH + "karczma.c"), "Karczmarz wyrzuca "
	      + QCIMIE(kto,PL_BIE) + " z karczmy.\n",kto);

    write("Karczmarz wyrzuca cie z karczmy.\n");

    kto->move_living("M", WEILPATH + "droga2.c", 1, 0);
}

void
dobry(object kto) 
{
    int los;
    
    if(kto->koncowka("chlop","baba")=="chlop") zly(kto);
    else
      {
        los = random(4);
    
        switch (los) 
        {
          case 0 : command("emote mowi: Alez prosze pani..."); break;
          case 1 : command("emote czerwieni sie jak burak."); break;
          case 2 : command("emote kleka i mowi: Czy ozeni sie pani ze mna?"); break;
          case 3 : zly(kto);
        }
      }
}