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"}),PL_MESKI_OS);

    ustaw_imie(({"johan","johana","johanowi","johana","johanem","johanie"}),
        PL_MESKI_OS);
    
    set_long("Wlasciciel gospody jest silnie zbudowanym mezczyzna, lat okolo czterdziestu. "
             + "Ba grube, krecone, czarne wlosy, bujny zarost i brazowe oczy. "+
             "Na sobie ma prosta koszule i bryczesy, na jego ramieniu zauwazasz "+
             "wytatuowanego smoka morskiego.\n"); 
    
    ustaw_odmiane_rasy(PL_MEZCZYZNA);

    dodaj_przym("wysoki","wysocy");
    dodaj_przym("opalony","opaleni");
    set_gender(G_MALE);
    
    add_prop(CONT_I_WEIGHT, 70000);
    add_prop(CONT_I_HEIGHT, 185);
    
    set_skill(SS_DEFENCE, 15 + random(10));
    set_skill(SS_UNARM_COMBAT, 40 + random(10));
    set_skill(SS_PARRY, 10 + random(10));
    
    set_stats(({45, 50, 70, 41, 35, 60}));
    
    set_chat_time(12);
    add_chat("Ktos czegos chce ?");
    
    set_act_time(15);
    add_act("emote szacuje cie wzrokiem.");
    add_act("emote wyciera blat brudna scierka.");
    add_act("emote przyglada sie lakomie twojej sakiewce.");
}

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, "zly", wykonujacy);
    }
}

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

void
return_introduce(object kto)
{
	
    if (kto) command("przedstaw sie");
}

string
query_presentation()
{
     return "Johan Silber, Wlasciciel Gospody 'Pod Czarnym Orlem', czlowiek";
}

void
return_laugh(object kto) 
{
    switch (random(5)) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote rechocze glosno."); break;
      case 2 : command("powiedz he, he, he ...."); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Wynos sie !");
    command("opluj " + OB_NAME(kto));
}