/* Chlopek */

#include "local.h"

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

#define PRZYMIOTNIKI ({ ({"leniwy","leniwi"}), ({"stary","starzy"}), ({"garbaty","garbaci"}), \
                         ({"zaspany","zaspani"}), ({"kaprawy","kaprawi"}) })

#define LICZBA_PRZYMIOTNIKOW 5

void
create_monster()
{
        int i, j;

        dodaj_nazwy(({"chlop", "chlopa", "chlopu", "chlopa",
                "chlopem", "chlopie"}), ({"chlopi", "chlopow",
                "chlopom", "chlopow", "chlopami", "chlopach"}), 
                PL_MESKI_OS);
	
	dodaj_nazwy(({"chlopek", "chlopka", "chlopku", "chlopka",
		"chlopkiem", "chlopku"}), ({"chlopki", "chlopkow",
		"chlopkom", "chlopkow", "chlopkami", "chlopkach"}),
		PL_MESKI_OS);
       
	dodaj_nazwy(({"wiesniak", "wiesniaka", "wiesniakowi", "wiesniaka",
                "wiesniakiem", "wiesniaku"}), ({"wiesniacy", "wiesniakow",
                "wiesniakom", "wiesniakow", "wiesniakami", "wiesniakach"}), 
                PL_MESKI_OS);
                
    add_prop(LIVE_I_NEVERKNOWN,1);

        set_long("Masz przed soba mezczyzne w srednim wieku, mieszkanca jednej z wiosek "+
            "Averlandu. Jego muskulatura  "+
                  "wskazuje na to, ze musi ciezko i czesto pracowac, choc "+
                  "szramy na twarzy zwracaja uwage na fakt, ze poza praca "+
		  "ceni on sobie tez dobra bojke.\n");
                
        
        ustaw_odmiane_rasy(PL_CZLOWIEK);
        set_gender(G_MALE);        
        i = random(LICZBA_PRZYMIOTNIKOW);
        j = random(LICZBA_PRZYMIOTNIKOW - 1);
        if(j >= i)
          ++j;
        dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
        dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);
        
        set_stats(({30+random(15), 30+random(15), 25+random(20), 35, 35, 25+random(20)}));
        
        set_skill(SS_DEFENCE, 21 + random(5));
        set_skill(SS_UNARM_COMBAT, 9 + random(5));
        set_skill(SS_SWIM, 20);
        set_skill(SS_PARRY, 28 + random(4));
        set_skill(SS_WEP_POLEARM, 32 + random (8));
        
        add_prop(CONT_I_WEIGHT, 97000);
        add_prop(CONT_I_HEIGHT, 169);
        
        set_cact_time(8);
        set_act_time(23 + random(20));
        
        
        add_cact("emote wola: Zostaw mnie w spokoju !");
        add_cact("emote mowi: Chyba rozumiesz, ze nie warto ze mna zaczynac...");
        add_cact("emote koncentruje sie, aby zwiekszyc efektywnosc swoich ciosow.");
        
        add_act("emote rozglada sie za okazja do bojki.");
        add_act("emote chrzaka znaczaco.");
        add_act("emote zatacza sie, usilujac gdzies dojsc.");
        add_act("emote mowi: Przez te deszcze nic nam nie rosnie!");
        add_act("emote mruczy: Jak ja musze harowac na chleb ...");
        
    add_weapon(HOME + "kosa.c"); 
   
    set_alignment(250);

    dodaj_srebro(random(5));
    dodaj_miedz(12+random(10));
}  

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
return_laugh(object kto) 
{
    switch (random(5)) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote rechocze glupawo."); break;
      case 2 : command("powiedz A z czego ty sie smiejesz ??"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Hej ! Co ty robisz ??");
    command("szturchnij " + OB_NAME(kto));
}

void
dobry(object kto) 
{
    int los;
    
    if(kto->koncowka("chlop","baba")=="chlop") zly(kto);
    else
      {
        los = random(4);
    
        switch (los) 
        {
          case 0 : command("emote zamiera nieruchomo patrzac sie w dal glupawo."); break;
          case 1 : command("emote robi sie czerwony jak burak."); break;
          case 2 : command("emote mowi: Ty na pewno zartujesz sobie ze mnie ..."); break;
          case 3 : zly(kto);
        }
      }
}