/* Zwykla mieszkanka Kreutzhofen */

#include "tanis.h"

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

#define PRZYMIOTNIKI ({ ({"podstarzaly","podstarzali"}), ({"mlody","mlodzi"}), ({"sedziwy","sedziwi"}), \
                        ({"gruby","grubi"}), ({"chudy","chudzi"}), ({"wychudzony","wychudzeni"}), \
                        ({"wysoki","wysocy"}), ({"niski","niscy"}), ({"niewysoki","niewysocy"}), \
                        ({"ladny","ladni"}), ({"brzydki","brzydcy"}), ({"ladny","ladni"}), \
                        ({"blady","bladzi"}), ({"opalony","opaleni"}), ({"opalony","opaleni"}), \
                        ({"jasnowlosy","jasnowlosi"}), ({"ciemnowlosy","ciemnowlosi"}), ({"potargany","potargani"}), \
                        ({"smutny","smutni"}), ({"wesoly","weseli"}), ({"roztargniony","roztargnieni"}) })

#define LICZBA_PRZYMIOTNIKOW 21

void
create_monster()
{
    int i,j;
    
    jak_pojawiac_sie(" nadchodzi tanecznym krokiem.");
    jak_znikac(" odchodzi powoli uliczka.");
    jak_znikac_podczas_walki(" ucieka w poplochu.");
    
        ustaw_nazwe(({"mieszkanka", "mieszkanki", "mieszkance", "mieszkanke", "mieszkanka", "mieszkance"}),
                       ({"mieszkanki", "mieszkanek", "mieszkankom", "mieszkanek", "mieszkankami",
                       "mieszkankach"}), PL_ZENSKI);

    ustaw_odmiane_rasy(PL_CZLOWIEK);
    set_gender(G_FEMALE);

    add_prop(LIVE_I_NEVERKNOWN,1);

    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(200,0); 

    set_long("Kobieta ta wyglada jak typowa mieszkanka prowincjonalnego miasta. Nosi kolorowa sukienke "
            + "i skorzane buciki. Na glowie ma blekitna chuste, a przy sukni "
            + "nosi przypieta metalowa broszke.\n");

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

        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);

        add_prop(CONT_I_WEIGHT, 65000);
        add_prop(CONT_I_HEIGHT, 155);


        set_cact_time(4);
        add_cact("emote wola: Ratunku ! Gwalca !");
        add_cact("emote sapie: Jeszcze pozalujesz !");
        add_cact("emote krzyczy: Straz !! Straz !!");
        add_cact("emote mowi: Nie poddam sie tak latwo !");

        set_act_time(21 + random(20));
        add_act("emote poprawia kolorowa sukienke.");
        add_act("emote rozglada sie wokolo.");        
        add_act("emote przyglada ci sie ciekawie.");
        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 chichocze radosnie."); break;
      case 2 : command("powiedz Wcale nie jestem taka gruba !"); break;
      default:
        command("hmm");
    }
}

void
zly(object kto)
{
    command("powiedz No cos ty !");

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

void
dobry(object kto) 
{
    int los;
    
    if(kto->koncowka("chlop","baba")=="baba") zly(kto);
    else
      {
        los = random(9);
    
        switch (los) 
        {
          case 0 : command("emote przeciaga sie wyzywajaco."); break;
          case 1 : command("emote czerwieni sie."); break;
          case 2 : command("emote mowi zalotnie: Moze sie umowimy ?"); break;
          case 3 : zly(kto); break;
          case 4 : command("emote przeciaga sie wyzywajaco."); break;
          case 5 : command("emote czerwieni sie."); break;
          case 6 : command("emote mowi zalotnie: Moze sie umowimy ?"); break;
          case 7 : command("przytul " + OB_NAME(kto)); break;
          case 8 : command("pocaluj " + OB_NAME(kto)); break;
        }
      }
}