inherit "/std/monster";

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

void
create_monster()
{
    if (!IS_CLONE)
         return;
    
    ustaw_imie (({"Hans Hailkraut", "Hansa Hailkrauta",
    		  "Hansowi Hailkrautowi", "Hansa Hailkrauta",
    		  "Hansem Hailkrautem", "Hansie Hailkraucie"}));

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

    dodaj_nazwy(({"zielarz","zielarza","zielarzowi","zielarza","zielarzem",
    		  "zielarze"}),({"zielarze","zielarzy","zielarzom","zielarze",
    		  "zielarzami","zielarzach"}), PL_MESKI_OS);
    
    set_long ("Za lada siedzi siwy, pomarszczony zielarz."
    +" Ma na twarzy wyraz specyficznego znudzenia, ktory sprawia,"
    +" iz odnosi sie wrazenie, ze siedzi tu od paru lat bez przerwy. "
    +"W jego zmeczonej zyciem twarzy blyszcza nieduze, blyszczace oczka,"
    +" ktore nieprzerwanie lustruja przestrzen wokolo; fakt ten nasuwa ci na"
    +" mysl, iz, mimo wieku okolo 80 lat, wciaz jest w pelni sprawny umyslowo.\n");

    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("siwy","siwi");
    dodaj_przym ("zgarbiony","zgarbieni");

    
    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(({ 45, 45, 45, 50, 50, 50}));

    set_act_time(30);
    add_act("emote drapie sie po glowie.");
    add_act("emote zanosi sie suchym, plytkim kaszlem.");
    add_act("emote cicho mowi: Kupujesz cos czy tylko ogladasz moje zbiory?");
    add_act("emote poprawia okulary");

}

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

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",kto)+
     	 "."); break;
      case 2 : command ("emote cicho syczy: Z czego sie smiejesz??");
    }
}