/*
 * Zielarka Weilerbergska ( na podstawie Aptekarza z Nuln )
 * by Tanis - luty 1998
 */

inherit "/d/Imperium/std/monster";

#include "tanis.h"

void
create_monster()
{
    if (!IS_CLONE)
         return;
    
    ustaw_imie(({"claudia", "claudii", "claudii", "claudie", "claudia", "claudii"}),
    		   PL_ZENSKI);

    dodaj_nazwy(({"zielarka","zielarki","zielarce","zielarke","zielarka",
    		  "zielarce"}),({"zielarki","zielarek","zielarkom","zielarki",
    		  "zielarkami","zielarkach"}), PL_ZENSKI);
    
    set_long ("Jest to dosc wysoka, siwa kobieta. Wyglada na 65 lat, ale masz dziwne wrazenie, ze jest znacznie starsza. "
        + "Ma szare oczy, ktorymi przyglada ci sie przenikliwie. Jest cala ubrana na czarno, ma na sobie obszerny plaszcz "
        + "i luzny stroj z mnostwem kieszonek zawierajacych cenniejsze ziola.\n");

    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym("siwy","siwi");
    dodaj_przym("stary","starzy");

    
    set_gender(G_FEMALE);
 
    add_prop(CONT_I_WEIGHT, 50000);
    add_prop(CONT_I_HEIGHT, 174);

    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(({ 35, 40, 35, 65, 65, 40}));

    set_act_time(30);
    add_act("emote mamrocze jakies dziwne slowa.");
    add_act("emote zanosi sie suchym, plytkim kaszlem.");
    add_act("emote mowi: Czy chcesz cos kupic ?");
    add_act("emote patrzy na ciebie przenikliwie.");
    add_act("emote szuka czegos w zakamarkach swego plaszcza.");

    set_cact_time(20);
    add_cact("emote blaga: Prosze ... Nie rob mi krzywdy ...");
    add_cact("emote jeczy cicho.");
    add_cact("emote mruczy szybko jakies tajemnicze slowa.");
    add_cact("emote krzyczy: Nie jestem jeszcze taka slaba na jaka wygladam !");
    add_cact("emote Przestan natychmiast !");
    add_cact("emote mowi: Przestan, dam ci za to jakies ziola !");

}

string
query_presentation()
{
	  return "Claudia Eberhauer, Zielarka z Weilerbergu, czlowiek";
}

void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
    switch (emote)
    {
        case "kopnij": 
        case "spoliczkuj" :
        case "szturchnij":
        case "opluj" : set_alarm(2.0, 0.0, "zly", wykonujacy);
        	    break;
        	    
        case "zasmiej": set_alarm(2.0, 0.0, "return_laugh", wykonujacy);
        	      break;
        case "pocaluj":
        case "przytul": set_alarm(2.0, 0.0, "dobry", wykonujacy);
    }
}

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 szepce: Lepiej nie zaklocaj spokoju tego miejsca ..."); break;
      case 2 : command ("emote cicho syczy: Z czego sie smiejesz ??");
    }
}

void
zly(object kto)
{
    command("powiedz Co ty sobie myslisz !? Nie zniose takiej obrazy !");

    tell_room(find_object(SKLPATH + "zielarnia.c"), "Zielarka wypycha "
	      + QCIMIE(kto,PL_BIE) + " na zewnatrz.\n",kto);

    write("Zielarka wypycha cie z zielarni.\n");

    kto->move_living("M", WEILPATH + "droga7.c", 1, 0);
}

void
dobry(object kto) 
{
    int los;

    if(kto->koncowka("chlop","baba")=="baba") zly(kto);
    else
     {
        los = random(4);
    
        switch (los)  
        {
          case 0 : command("emote patrzy na ciebie dziwnie, a potem mruczy: Ach, ta mlodziez ..."); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi: Ach ! Wiec nie jestem jeszcze taka stara !"); break;
          case 3 : zly(kto);
        }
    }
}