inherit "/std/monster";
#include <pl.h>
#include <stdproperties.h>
#include <macros.h>
#include <formulas.h>
#include <ss_types.h>
#include <money.h>
#define TO      this_object()
#define TP      this_player()
void
create_monster()
{
    ustaw_imie (({"Raglan", "Raglana",
                  "Raglanowi", "Raglana",
                  "Raglanem", "Raglanowi"}));
                  
    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("niski","niscy");
    dodaj_przym ("tlusty","tlusci");
               
    dodaj_nazwy( ({"piekarz", "piekarza", "piekarzowi", "piekarza", 
                   "piekarzem", "piekarzu"}),
                 ({"piekarze", "piekarzy", "piekarzom", "piekarzy", 
                   "piekarzami", "piekarzach"}),
                 PL_MESKI_OS);
        
                
    set_long ("Stojacy za lada piekarz jest wystarczajacym dowodem na to,"
    +" iz jego pieczywo jest wysmienite. Jest tuszy znacznie wiekszej niz"
    +" przecietna, rumiany na twarzy, zas na jego bialym fartuchu i"
    +" ogorzalych od zaru pieca ramionach i twarzy widac jeszcze slady maki.\n");
                  
    set_living_name("_piekarz_");
    
    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 100000);
    add_prop(CONT_I_HEIGHT, 160);
    set_skill(SS_DEFENCE, 25 + random(5));
    set_skill(SS_WEP_SWORD, 25 + random(10));
    set_skill(SS_UNARM_COMBAT, 15 + random(5));
    set_skill(SS_PARRY, 15 + random(10));
    set_stats(({ 25, 25, 22, 30, 30, 40}));
    set_chat_time(13);
    add_chat("Moze buleczke?");
    add_chat("Swiezutki chlebek, jeszcze cieply!");
    set_act_time(10);
    add_act("emote drapie sie po brzuchu.");
    add_act("emote bezskutecznie probuje strzasnac make z ramion.");
    add_act("emote przeciera czolo mokra szmatka.");
}
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 "bow": set_alarm(3.0, 0.0, "command", "bow " + 
                                        wykonujacy->query_name());
                    break;
                    
        case "laugh": set_alarm(2.5, 0.0, "return_laugh", wykonujacy);
                      break;
    }
}
string
query_presentation()
{
    return "Raglan Piekarz Altdorfski, czlowiek";
}
void
return_introduce(string kto) 
{
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}
void
return_laugh(object kto) 
{
    int los;
    
    los = random(3);
    
    switch (los) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote rechocze rubasznie."); break;
      case 2 : command("powiedz Jest tu cos smiesznego?");
    }
}