inherit "/std/monster";

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

void
create_monster()
{
    if (!IS_CLONE)
         return;
    
    ustaw_imie (({"Hans Goldenbaum", "Hansa Goldenbauma",
    		  "Hansowi Goldenbaumowi", "Hansa Goldenbauma",
    		  "Hansem Goldenbaumem", "Hansie Goldenbaumie"}));

    dodaj_nazwy (({"hans", "hansa", "hansowi", "hansa", "hansem", "hansie"}),
    		 ({"hans", "hansa", "hansowi", "hansa", "hansem", "hansie"}),
    		   PL_MESKI_OS);

    dodaj_nazwy(({"zlotnik","zlotnika","zlotnikowi","zlotnika","zlotnikiem",
    		  "zlotniku"}),({"zlotnicy","zlotnikow","zlotnikom",
    		  "zlotnikow","zlotnikami","zlotnikach"}), PL_MESKI_OS);
    
    set_long ("Za lada siedzi energiczny, usmiechniety czlowiek. "+
      "Jego oczy bezustannie penetruja zakamarki sklepu, w poszukiwaniu "+
      "wyimaginowanych oznak brudu. Jego nienaganny ubior zdobi "+
      "ciezki zloty lancuch, zas na palcach widnieja liczne pierscienie.\n");

    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("energiczny","energiczni");
    dodaj_przym ("usmiechniety","usmiechnieci");

    
    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 50000);
    add_prop(CONT_I_HEIGHT, 140);

    set_skill(SS_DEFENCE, random(5));
    set_skill(SS_UNARM_COMBAT, random(5));
    set_skill(SS_PARRY,  random(10));
    set_skill(SS_HERBALISM, random(10)+50);

    set_stats(({ 50, 50, 50, 50, 50, 50}));

    set_act_time(30);
    add_act("emote poleruje broszke przedstawiajaca rybie oczko");
    add_act("powiedz W czym moge pomoc?");
    add_act("popatrz pytajaco");
    add_act("emote przeglada kolekcje diamentow.");
}

string
query_presentation()
{
    switch (this_player()->query_race())
    {
        case "elf" : return "Hans Goldenbaum, aptekarz.";
        case "czlowiek" : return "Hans Goldenbaum, jeden z "+
            "najznamienitszych zlotnikow Nuln."
	     +" Bardzo mi milo.";
	case "krasnolud" : return "Herr Goldenbaum, zlotnik. "+
	    "Spirytusu nie sprzedaje, heh heh...";
	case "hobbit" : return "Hans Goldenbaum, najznakomitszy "+
	    "zlotnik w Nuln.";
	default:
	  return "Hans Goldenbaum, najlepszy zlotnik tego miasta.";
    }
}

void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
    switch (emote)
    {
        case "bow": set_alarm(3.0, 0.0, "command", "say nie odwzajemnie uprzejmosci..." + 
					  " wiesz, reumatyzm...");
        	    break;
        	    
        case "laugh": set_alarm(2.5, 0.0, "return_laugh", wykonujacy);
        	      break;
    }
}

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

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("emote zanosi sie starczym smiechem, ktory zaraz"
     	 +" przeradza sie w suchy kaszel."); break;
      case 1 : command("emote patrzy sie na ciebie jak na wariat"+
        kto->koncowka("a","ke")+
     	 "."); break;
      case 2 : command ("emote cicho syczy: Z czego sie smiejesz??");
    }
}