/* 
 * Przekupka
 */

#include "tanis.h"

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

#define PRZYMIOTNIKI ({ ({"niewysoki", "niewysocy"}), ({"gadatliwy","gadatliwi"}), \
                        ({"gruby","grubi"}), ({"prosty","prosci"}), ({"wesoly","weseli"}) })

#define LICZBA_PRZYMIOTNIKOW 5

void
create_monster()
{
	int i, j;

    jak_pojawiac_sie(" nadchodzi.");
    jak_znikac(" odchodzi niespiesznie uliczka.");
    jak_znikac_podczas_walki(" ucieka w poplochu.");               

        set_random_move(200,0);

	ustaw_nazwe(({"przekupka", "przekupki", "przekupce", "przekupke",
		"przekupka", "przekupce"}), ({"przekupki", "przekupek",
		"przekupkom", "przekupki", "przekupkami", "przekupkach"}),
		PL_ZENSKI);
        set_gender(G_FEMALE);
        add_prop(LIVE_I_NEVERKNOWN,1);		
	i = random(LICZBA_PRZYMIOTNIKOW);
	j = random(LICZBA_PRZYMIOTNIKOW - 1);
	if(j >= i)
	  ++j;
 	dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][0]);
	dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);

	set_long("Jest to gruba kobieta, ubrana w sukienke w kwiatki o nieokreslonym "
                + "kolorze. Na glowie ma zielona chuste. Mimo tuszy, nie jest brzydka "
                + "i wyglada na sympatyczna osobe. Sprawia wrazenie, jakby mogla "
                + "mowic bez konca na dowolny temat. Chodzi po miescie i sprzedaje "
                + "polne kwiaty.\n"); 
	
        ustaw_odmiane_rasy(PL_CZLOWIEK);
	
        add_prop(IMPERIUM_LIVE_I_KREUTZ_CITIZEN, 1);
	add_prop(CONT_I_HEIGHT, 164);
	add_prop(CONT_I_WEIGHT, 80000);

	set_stats(({ 40, 35, 45, 40, 40, 48 }));

        set_skill(SS_WEP_POLEARM,20);
	
	set_act_time(8 + random(25));
	set_cchat_time(7);
	
	add_act("emote spoglada w niebo i mowi: Na pewno bedzie padac.");
	add_act("emote szepcze: Slyszalam, ze piekarz Armand zdradza zone z mloda "
               + "Stoltenbergowna.");
	add_act("emote szepcze: Podobno elf Leafdew jest jakims elfim szpiegiem.");
	add_act("emote mowi konspiracyjnym szeptem: A wiecie, ze niegodziwiec "
               + "Gierig szantazuje Petre Drall ?");
	add_act("emote wymachuje ci przed nosem jakims zielskiem.");
	add_act("emote poprawia wymieta sukienke.");
	add_act("emote nachyla sie do ucha jakiegos jegomoscia, cos mu szepczac.");
		
	add_cchat("RATUNKU !!!! GWALCA !!!");
	add_cchat("MORDUJA !!! STRAZ !!");
	add_cchat("Nalezy mi sie choc odrobina szacunku !");

        set_alignment(350);

        add_weapon(BRPATH + "kij.c");
    
        dodaj_miedz(40+random(20));
        dodaj_srebro(random(10));

        ustaw_whimpy(60, random(2)+1);    
}

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 chichocze."); break;
      case 2 : command("powiedz Cicho !"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Alez prosze sie uspokoic !");

    command("opluj " + OB_NAME(kto));
}

void
dobry(object kto) 
{
    int los;
    
    if(kto->koncowka("chlop","baba")=="baba") zly(kto);

    else
      {
        los = random(4);
    
        switch (los) 
        {
          case 0 : command("emote zaslania twarz rekami."); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi: Och, oczywiscie ! Zostane twoja zona !"); break;
          case 3 : zly(kto);
        }
      }
}