inherit "/std/monster";

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

#define TO    this_object()

void
create_monster()
{
 
     ustaw_shorty(({ "posag", "posagu",
       		   "posagowi", "posag",
       		   "posagiem", "posagu"}),
                 ({ "posagi", "posagow",
                    "posagom", "posagi", 
                    "posagami", "posagach" }),
                    PL_MESKI);

     dodaj_nazwy(({ "posag", "posagu", "posagowi", "posag", 
    		    "posagiem", "posagu" }), ({ "posagi", 
    		    "posagow", "posagom", "posagi", "posagami",
                    "posagach" }), PL_MESKI);

     set_long("Widzisz posag przedstawiajacy postac starszego, przygarbionego "
            + "mezczyzny. Zrobiony jest z kamienia przypominajacego granit. " 
            + "Wydaje ci sie jakby caly czas wodzil za toba oczami.\n");

     ustaw_odmiane_rasy(PL_CZLOWIEK);


     set_gender(G_MALE);

     add_prop(LIVE_I_NEVERKNOWN, 1);


     add_prop(CONT_I_WEIGHT, 185000); 
     add_prop(CONT_I_HEIGHT, 195);  


     set_skill(SS_UNARM_COMBAT, 50 + random(5));

     set_stats(({ 35, 35, 35, 55, 55, 35}));

     set_cchat_time(5);
     add_cchat("A masz!");
     add_cchat("Dlaczego mnie bijesz?");
     add_cchat("Jestem stworzony do innych rzeczy!");

     set_act_time(50);
     add_act(({"mrugnij", "westchnij gleboko", "usmiechnij sie ironicznie ."}));
     add_act("emote przyglada sie tobie ciekawie.");
     add_act("emote rozglada sie po kaplicy.");

}


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

void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
    switch (emote)
    {
        case "uklon":
            set_alarm(2.0, 0.0, "command", "uklon sie "
                                         + OB_NAME(wykonujacy));
            break;
        case "ob":
            command("powiedz Co ty sobie wyobrazasz?!");
            command("kopnij " + OB_NAME(wykonujacy));
            break;
        case "kopnij":
            command("kopnij " + OB_NAME(wykonujacy));
        case "opluj":
            command("opluj " + OB_NAME(wykonujacy));
            break;

    }
}

void
return_introduce(string imie)
{
    object osoba;
    
    osoba = present(imie, environment());

    if (osoba)
        command("powiedz Milo cie poznac, " + osoba->query_wolacz() + ".");
}