/* Wiesniak */

#include "tanis.h"

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

#define PRZYMIOTNIKI ({ ({"spocony","spoceni"}), ({"brudny","brudni"}), ({"przygarbiony","przygarbieni"}), \
                         ({"nieogolony","nieogoleni"}), ({"chudy","chudzi"}) })

#define LICZBA_PRZYMIOTNIKOW 5

void
create_monster()
{
        int i, j;

    jak_pojawiac_sie(" przychodzi.");
    jak_znikac(" odchodzi niespiesznie.");
    jak_znikac_podczas_walki(" ucieka tchorzliwie.");

        set_random_move(220,0);

       ustaw_nazwe(({"chlop", "chlopa", "chlopu", "chlopa",
                "chlopem", "chlopie"}), ({"chlopi", "chlopow",
                "chlopom", "chlopow", "chlopami", "chlopach"}), 
                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("Chlop jest podstarzalym, zylastym mezczyzna. Nie jest zbyt czysty, ani zbyt "
                + "poteznie zbudowany, za to troche przygarbiony. Wyraz jego twarzy zdradza, "
                + "ze nie jest specjalnie inteligentny. Utrzymuje sie z pracy na okolicznych polach.\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(({40+random(15), 40+random(10), 35+random(20), 25, 35, 25+random(20)}));
        
        set_skill(SS_DEFENCE, 10 + random(5));
        set_skill(SS_UNARM_COMBAT, 10 + random(5));
        set_skill(SS_SWIM, 15);
        set_skill(SS_PARRY, 5 + random(4));
        set_skill(SS_WEP_WARHAMMER, 10 + random (8));
        
        add_prop(IMPERIUM_LIVE_I_KREUTZ_CITIZEN, 1);
        
        add_prop(CONT_I_WEIGHT, 95000);
        add_prop(CONT_I_HEIGHT, 165);
        
        set_cact_time(8);
        set_act_time(23 + random(20));
        
        
        add_cact("emote wola: Nie bij ! Zrobie wszystko, co tylko zechcesz !");
        add_cact("emote mowi: Moge cie jeszcze czyms zaskoczyc.");
        add_cact("emote potyka sie niezdarnie.");
        
        add_act("emote spoglada niespokojnie na niebo.");
        add_act("emote kaszle.");
        add_act("emote rozglada sie, jakby kogos szukajac.");
        add_act("emote wzdycha: Ach ... kiepskie plony w tym roku ...");
        add_act("emote mruczy: Jak ja musze ciezko pracowac ...");
        
    add_weapon(BRPATH + "motyka.c"); 
   
    set_alignment(250);
    set_whimpy(60);  

    dodaj_srebro(random(5));
    dodaj_miedz(10+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 rubasznie."); break;
      case 2 : command("powiedz Naprawde tak cie smieszy moja ciezka praca ?"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Odczep sie !");
    command("kopnij " + 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 odwraca szybko twarz."); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi: Ojej !"); break;
          case 3 : zly(kto);
        }
    }
}