/* Mieszkanka Kreutzhofen */

#include "ellentir.h"

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

#define PRZYMIOTNIKI ({ ({"znudzony","znudzeni"}), ({"zaciekawiony","zaciekawieni"}), ({"oschly","oschli"}), \
                        ({"atrakcyjny","atrakcyjni"}), ({"brzydki","brzydcy"}), ({"piekny","piekni"}), \
                        ({"wysoki","wysocy"}), ({"niski","niscy"}), ({"potezny","potezni"}), \
                        ({"niebieskooki","niebieskoocy"}), ({"piwnooki","piwnoocy"}), ({"zielonooki","zielonoocy"}), \
                        ({"blady","bladzi"}), ({"opalony","opaleni"}), ({"opalony","opaleni"}), \
                        ({"jasnowlosy","jasnowlosi"}), ({"ciemnowlosy","ciemnowlosi"}), ({"czarnowlosy","czarnowlosi"}), \
                        ({"zreczny","zreczni"}), ({"niezdarny","niezdarni"}), ({"roztargniony","roztargnieni"}) })

#define LICZBA_PRZYMIOTNIKOW 21

void
create_monster()
{
    int i,j;
    
    ustaw_nazwe(({"mieszczanka", "mieszczanki", "mieszczance", "mieszczanke", "mieszczanka", "mieszczance"}),
                       ({"mieszczanki", "mieszczanek", "mieszczankom", "mieszczanek", "mieszczankami",
                       "mieszczankach"}), PL_ZENSKI);

    ustaw_odmiane_rasy(PL_CZLOWIEK);
    set_gender(G_FEMALE);

    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(CONT_I_WEIGHT, 50000);
    add_prop(CONT_I_HEIGHT, 152);

    i = random(LICZBA_PRZYMIOTNIKOW);
    j = random(LICZBA_PRZYMIOTNIKOW);
    while(!(j>(i+2) || j<(i-2))) j = random(LICZBA_PRZYMIOTNIKOW);
   
    dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
    dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);
    
    set_random_move(20,0); 

    set_long("Jest to jedna z typowych przedstawicielek plci pieknej. "+
              "Wysokie dochody wyraznie odbijaja "+
              "sie na jej stroju. Nie jest on byle jaki, lecz uszyty z "+
	      "zagranicznych materialow, wedlug najnowszych trendow w modzie.\n");

        set_stats(({40,45,40,50,45,40}));

        set_skill(SS_PARRY,7);
        set_skill(SS_WEP_KNIFE, 7 + random(15));
        set_skill(SS_DEFENCE, 10 + random(5));

        add_prop(IMPERIUM_LIVE_I_KREUTZ_CITIZEN, 1);

        set_cact_time(4);
        add_cact("emote wola Pomocy! Huligani!");
        add_cact("emote sapie: Jeszcze pozalujesz!");
        add_cact("emote krzyczy: Straz! Straz!!");
        add_cact("emote mowi: Tak latwo mnie nie zdobedziesz!");

        set_act_time(21 + random(20));
        add_act("emote poprawia swoja sukienke.");
        add_act("emote poprawia sobie wlosy.");        
        add_act("emote zastanawia sie co zrobic na najblizsza kolacje.");
        add_act("emote mowi: Czy my sie nie znamy?");
        add_act("emote spoglada zalotnie na jakiegos mezczyzne.");

     add_weapon(BRPATH + "noz.c");
 
    set_alignment(350);
    ustaw_whimpy(70, random(2)+1); 

   dodaj_srebro(10+random(10));
   dodaj_miedz(10+random(25));
}

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 Jest tu cos smiesznego?"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz Jak mozesz ?!");

    command("spoliczkuj " + 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 zaczyna glosno chichotac."); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi: Tak ! Bede twoja !"); break;
          case 3 : zly(kto);
        }
      }
}