/*
 * Nazwa pliku: dziewka_1.c
 * Autor:	Kylo
 * Data:	17.11.97
 * Last Update:	17.11.97
 * Opis:	Dziewka zajazdu Czarny Kon
 */

#include "local.h"

// Dziedziczenie standartowego ncpa Imperium
inherit "/d/Imperium/std/monster.c"; 

// Dziedziczenie procedur questowych
inherit LPATH + "monster_quest.c";

// Dolaczenie pliku naglowkowego
#include "dziewka_1.h"

/*
 * Nazwa funkcji: create_monster()
 * Opis:	  Inicjalizacja glownej funkcji ncp'a
 * Argumenty:	  Brak
 * Zwraca:	  Nic nie zwraca
 */

void  
create_monster()
{
    ustaw_shorty(({"mloda dziewka", "mlodej dziewki", "mlodej dziewce",
        "mloda dziewke", "mloda dziewka", "mlodej dziewce"}),
        ({"mlode dziewki", "mlodych dziewek", "mlodym dziewkom",
        "mlode dziewki", "mlodymi dziewkami", "mlodych dziewkach"}),
        PL_ZENSKI);
    ustaw_nazwe(({"dziewka", "dziewki", "dziewce",
        "dziewke", "dziewka", "dziewce"}),
        ({"dziewki", "dziewek", "dziewkom",
        "dziewki", "dziewkami", "dziewkach"}),
        PL_ZENSKI);
    // Ustalenie odmiany imienia
/*    ustaw_nazwe(({"justyna", "justyny", "justynie", "justyne",
        "justyna", "justynie"}),
        ({"justyny", "justyn", "justynom", "justyny",
        "justynami", "justynach"}),
	PL_ZENSKI);
 */   
    // Dodanie przymiotnika
    dodaj_przym("mlody","mlodzi");
    dodaj_przym("powabny","powabni");
    
    // Ustalenie dlugiego opisu
    set_long("Dziewcze tak na oko majace 20 lat o bardzo powabnych " +
	"ksztaltach przyciagajacych wzrok. " +
        "Jasne wlosy sa upiete w kok, a fartuszek doskonale pokresla " +
	"to co ma podkreslac. Bez cienia watpliwosci przyciaga uwage " +
	"wszystkich ludzi w zajezdzie i doskonale zdaje sobie z tego " +
	"sprawe. " +
	"\n");
	
    // Ustalenie odmiany rasy
    ustaw_odmiane_rasy(PL_CZLOWIEK);

    // Ustalenie rasy			                                                           
    set_gender(G_FEMALE); 
    
    // Ustalenie podstawowych cech i wspolczynnikow
    set_stats(({35,36,40,42,42,41}));
    set_hp(250);
    
    // Ustalenie rozmiarow Albrechta
    add_prop(CONT_I_WEIGHT,49500);
    add_prop(CONT_I_HEIGHT,160);
    
    // Ustalenie umiejetnosci
    set_skill(SS_DEFENCE, 5);
    set_skill(SS_PARRY, 5);
    set_skill(SS_WEP_KNIFE, 5); 
    set_skill(SS_UNARM_COMBAT, 10);    
    // Ustalenie czestotliwosci wypowiedzi   
    set_cact_time(13);
    // Ustalenie czestotliwosci wykonywanych akcji 
    set_act_time(40);
    
    // Ustalenie wykonywanych akcji
    add_act("emote podaje zamowione potrawy.");
    add_act("emote poprawia fartuszek.");
    add_act("emote idzie do sasiedniego stolu.");
    add_act("emote rzuca ci krotkie spojrzenie.");
    add_act("emote podskakuje uszczypnieta przez kogos w ....");
    
    // Ustalenie wypowiedzi kuchcika
    add_chat("Zaraz podam.");
    add_chat("Precz z lapami.");
    add_chat("Zaraz przyniose te dwie pieczenie i butelka wina.");
    add_chat("Prosze porozmawiac o tym z wlascicielem.");
    add_chat("Juz ide.");
    
    // Ustalenie wypowiedzi podczas walki
    add_cact("krzyknij Ratunku!");
    add_cact("krzyknij RAAAATUNKUUU!!");
    add_cact("krzuknij Pomocy! Pomocy!");
    add_cact("krzyknij Bezbronna kobieta bijesz!");
    add_cact("krzyknij Nie dostaniesz mnie tak latwo!");
    
    // Ustalenie domyslnej odpowiedzi
    // set_default_anserw("Ja tu tylko pracuje. \n");
    
    // NIE WIEM
    set_alignment(150);

    add_reakcja( ({"sol"}), ({
        1.0,"emote odwraca sie w twoja strone. ",
        2.5,"A na coz wam sol . ",
        1.5,"emote potrzasa glowa. ",
        1.0,"Zreszta niewazne, sol jest w magazynku. ",
        1.5,"A klucza do niego nie moge wam dac. ",
        0.5,"emote to mowiac siegnela reka do kieszonki fartuszka",
        0.5,"emote robi przerazona mine. ",
        1.5,"Och nie, zgubilam klucz, co ja teraz zrobie. ",
        2.0,"emote wywraca kieszonke na druga strone, ale nie ma tam nic " +
            "poza resztkami slomy i siana.",
        1.5,"Musze go szybko znalesc, bo inaczej wlasciciel mnie ..... ",
        0.5,"Przepraszam ale nie mam teraz czasu na jakas glupia sol. " }),
        "_kylo_i_pytal_dziewke_o_sol");
        
    add_reakcja( ({"slome","resztki slomy","siano","resztki siana"}), ({
        1.2,"zaczerwien sie",
        1.4,"Nie mam pojecia o czym mowicie. ",
        1.2,"Musze wracac do pracy. ", }),
        "_kylo_i_pytal_dziewke_o_siano");
    
    add_reakcja( ({"konia"}), ({
        0.5,"To ulubieniec wlasciciela, czesto chodzi go dogladac w stajni. ",
        1.4,"Zawsze wtedy bierze troche soli dla konia. ",
        1.7,"To zwierze bardzo ja lubi. Ciekawe prawda ?" }),
        "_kylo_i_pytal_dziewke_o_konia");

    add_reakcja( ({"medalion"}), ({
        0.7,"Ten miedziany wlasciciela ? ",
        1.5,"emote zamysla sie. ",
        2.5,"Ostatnio widzialam ten medalion na jego szyji, " +
            "gdy szedl do stajni. ",
        1.5,"Tak mi sie wydaje. ",
        1.2,"Ale moge sie mylic. " }),
        "_kylo_i_pytal_dziewke_o_medalion");

    set_default_answer("Prosze porozmawiac na ten temat z wlascicielem");
    ustaw_odzywki("Pomoz mi !!!",2);
    ustaw_odzywki("Podstepna bestia z ciebie.",3);
    ustaw_odzywki("Pomuz mi !!!",4);
    ustaw_odzywki("Podstepna bestia z ciebie.",5);

    dodaj_miedz(20+random(28));
    dodaj_srebro(5+random(16));
}

// koniec funkcji create_monster()

int
czy_mozna()
{
    if (((!this_player()->query_prop("_kylo_i_pytal_dziewke_o_sol")) &&
        (Reakcja_Nr==2))
        ||
        ((!this_player()->query_prop("_kylo_i_quest_zajazd")) &&
        (Reakcja_Nr==4)))
    {
        command_say("Prosze porozmawiac na ten temat z wlascicielem. " +
            "Obawiam sie ze ja nie potrafie ci w tym pomoc. ",this_player());
        return 0;
    }
    return 1;
}


/*
 * Nazwa funkcji: add_introduced()
 * Opis:	  Funkcja wywolywana gdy ktos w pomiszczeniu sie przedstawi
 * Argumenty:	  Imie gracza ktory sie przedstawil
 * Zwraca:	  Nic nie zwraca
 */
  
void 
add_introduced(string imie)
{
//    set_alarm(2.0, 0.0, "zapoznanie", find_player(imie));
}
// koniec funkcji add_introduced

/*
 * Nazwa funkcji: zapoznanie()
 * Opis:	  Reakcja ncp'a na przedstawienie sie
 * Argumenty:	  gracz ktory sie przedstawil
 * Zwraca:	  Nic nie zwraca
 */
 
void
zapoznanie(object gracz)
{
    command("powiedz Witaj panie. ");
    command("przedstaw sie " + gracz->query_real_name(PL_CEL));
}
// koniec funkcji zapoznanie()