inherit "/std/monster";

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

void
create_monster()
{
    if (!IS_CLONE)
         return;

    ustaw_imie (({"Franz Keinbrot", "Franza Keinbrota",
    		  "Franzowi Keinbrotowi", "Franza Keinbrota",
    		  "Franzem Keinbrotem", "Franzu Keinbrocie"}));
    		  
    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("gruby","grubi");
    dodaj_przym ("sympatyczny","sympatyczni");
               
    dodaj_nazwy( ({"piekarz","piekarza","piekarzowi","piekarza","piekarzem","piekarzu"}),
    		 ({"piekarze","piekarzy","piekarzom","piekarzy","piekarzami","piekarzach"}),
    		 PL_MESKI_OS);
    dodaj_nazwy( ({"franz","franza","franzowi","franza","franzem","franzu"}),
    		 ({"franz","franza","franzowi","franza","franzem","franzu"}),
    		 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_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 "Franz, Franz Keinbrot, do uslug. Lepszego chleba niz u mnie nie"
    +" znajdziesz";
}

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 ("say Jest tu cos smiesznego?");
    }
}