/*
 * Mieszkanka Athel Loren by Tanis
 */


#include "ogolne.h"

inherit PATH + "npc/npcathel.c";

#define PRZYMIOTNIKI ({ ({"niemlody","niemlodzi"}), ({"mlody","mlodzi"}), ({"mlodziutki","mlodziutcy"}), \
                        ({"energiczny","energiczni"}), ({"delikatny","delikatni"}), ({"delikatny","delikatni"}), \
                        ({"piekny","piekni"}), ({"urodziwy","urodziwi"}), ({"przepiekny","przepiekny"}), \
                        ({"smukly","smukli"}), ({"dlugonogi","dlugonodzy"}), ({"wysoki","wysocy"}), \
                        ({"blady","bladzi"}), ({"opalony","opaleni"}), ({"opalony","opaleni"}), \
                        ({"jasnowlosy","jasnowlosi"}), ({"ciemnowlosy","ciemnowlosi"}), ({"dlugowlosy","dlugowlosi"}), \
                        ({"smutny","smutni"}), ({"wesoly","weseli"}), ({"roztargniony","roztargnieni"}) })

#define LICZBA_PRZYMIOTNIKOW 21

#define LICZBA_KREACJI 2

int kreacja=0;

string
dlugi_opis()
{
    string s;

    switch(kreacja)
      {
          case 0 : s = "Elfka ubrana jest w delikatna, zwiewna sukienke, ktora w najmniejszym stopniu "
                     + "nie krepuje jej ruchow. Na glowie ma wianek z kwiatow, a na szyi, na srebrnym lancuszku "
                     + "jakas broszke z ozdobnym kamieniem. Elfka wyglada na bardzo delikatna i lekka, "
                     + "jakby najlzejszy powiew mogl porwac ja do gory, jednak sprawia wrazenie, ze gdyby "
                     + "przebrala sie w odpowiednie ubranie moglaby z powodzeniem biegac po lasach za dzika zwierzyna.\n";
                   break;

          default : s = "Elfka wyglada na typowa mieszkanke Athel-Loren. Ubrana jest w ladny, skorzany stroj, "
                     + "a na szyi ma zawieszone kolorowe korale. We wlosy ma wplecione kolorowe, lesne kwiaty, "
                     + "zebrane pewnie samodzielnie w lesie. Wyglada, jakby nie interesowalo "
                     + "jej nic, poza spacerem, podziwianiem lasu i zbieraniem kwiatow. A jednak "
                     + "masz wrazenie, ze gdyby chciala, moglaby z powodzeniem biegac po lasach polujac "
                     + "na dzika zwierzyne.\n";
                   break;
      }

    return s;
}

void
create_elfa()
{
    int i,j;
    
    jak_pojawiac_sie(" nadchodzi.");
    jak_znikac(" odchodzi lekkim krokiem.");
    jak_znikac_podczas_walki(" ucieka z krzykiem.");

        ustaw_nazwe(({"mieszkanka", "mieszkanki", "mieszkance", "mieszkanke", "mieszkanka", "mieszkance"}),
                       ({"mieszkanki", "mieszkanek", "mieszkankom", "mieszkanki", "mieszkankami",
                       "mieszkankach"}), PL_ZENSKI);

    kreacja=random(LICZBA_KREACJI);

    set_gender(G_FEMALE);

    ustaw_odmiane_rasy(PL_ELFKA);

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

    set_long("@@dlugi_opis");

        set_stats(({35,60,35,55,55,30}));

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

        add_prop(IMPERIUM_LIVE_I_ATHEL_CITIZEN, 1);

        add_prop(CONT_I_WEIGHT, 55000);
        add_prop(CONT_I_HEIGHT, 180);
        
        set_cact_time(4);
        add_cact("krzyknij Nie bij ! Jestem bezbronna !");
        add_cact("emote krzyczy przerazliwie !");
        add_cact("krzyknij Straz !! Straz !! Pomocy !");
        add_cact("emote krzyczy piskliwie !");

        set_act_time(10 + random(20));
        add_act("emote spoglada w roztargnieniu na drzewa.");
        add_act("emote rozglada sie wokolo.");        
        add_act("emote przyglada ci sie z tajemniczym usmiechem.");
        add_act("emote oddycha przez chwile swiezym, lesnym powietrzem z wyrazem blogosci na twarzy.");
        add_act("emote podnosi glowe i przez chwile patrzy na niebo.");

    set_alignment(350);
    set_whimpy(75);  

   dodaj_miedz(30+random(25));
}

void
smiech(object kto)
{
    switch (random(5)) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote chichocze radosnie."); break;
      case 2 : command ("powiedz Co cie tak cieszy ?");
      default:
        command("hmm");
    }
}

void
bardzo_zly(object kto)
{
    command("powiedz Jak moglas ! Odejdz i nie pokazuj mi sie wiecej na oczy !");
}

void
zly(object kto)
{
    command("powiedz Nie obrazaj mnie !");
}

void
zadowolony(object kto)
{
    int los;

    los = random(40);
    
    switch (los) 
      {
          case 1-10 : command("emote czerwieni sie az po same uszy."); break;
          case 11-20 : command("emote usmiecha sie radosnie."); break;
          case 21-30 : command("pocaluj " + OB_NAME(kto)); break;
          case 31-35 : command("przytul " + OB_NAME(kto)); break;
          default : zly(kto);
      }
}