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

#include "local.h"

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

// Dziedziczenie obiektu do questow
inherit LPATH + "monster_quest.c";

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

//Odwolanie do pliku z tym obiektem
string obj_file;


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

void  
create_monster()
{
    ustaw_shorty(({"stajenny","stajennego","stajennemu",
        "stajennego","stajennym","stajennym"}),
        ({"stajenni","stajennych","stajennym",
        "stajennych","stajennymi","stajennych"}),
        PL_MESKI_OS);
    ustaw_nazwe(({"stajenny","stajennego","stajennemu",
        "stajennego","stajennym","stajennym"}),
        ({"stajenni","stajennych","stajennym",
        "stajennych","stajennymi","stajennych"}),
        PL_MESKI_OS);
    // Ustalenie odmiany imienia
/*    ustaw_nazwe(({"bernard","bernarda","bernardowi","bernarda",
        "bernardem","bernardzie"}),
        ({"bernardy", "bernardow", "bernardom", "bernardow",
        "bernardach", "bernardami"}),
	PL_MESKI_OS);
 */  
    // Dodanie przymiotnika
    dodaj_przym("wesoly","wesoli");
    dodaj_przym("szczyply","szczupli");
    
    // Ustalenie dlugiego opisu
    set_long("Sczuply, osobnik przecietnego wzrostu majacy okolo 23 lat. " +
	"Jego glowne zajecie to dbanie o zwierzeta przebywajace w stajni. " +
        "Polega to w zasadzie na karmieniu ich i sprzataniu boksow. " +
        "Twarz stajennego jest piegowata, glowe zas porastaja rude wlosy, " +
        "w ktorych dostrzegasz zdzbla siana i slomy. " +
        "Ubrany jest on w bury kubraczek i podarte spodnie." +
	"\n");
	
    // Ustalenie odmiany rasy
    ustaw_odmiane_rasy(PL_CZLOWIEK);

    // Ustalenie rasy			                                                           
    set_gender(G_MALE); 
    
    // Ustalenie podstawowych cech i wspolczynnikow
    set_stats(({32,31,35,33,34,35}));
    
    // Ustalenie rozmiarow Albrechta
    add_prop(CONT_I_WEIGHT,69500);
    add_prop(CONT_I_HEIGHT,170);
    
    // Ustalenie umiejetnosci
    set_skill(SS_DEFENCE, 25);
    set_skill(SS_PARRY, 15);
    set_skill(SS_WEP_KNIFE, 20); 
    set_skill(SS_UNARM_COMBAT, 10);
    
    // Ustalenie czestotliwosci wypowiedzi   
    set_chat_time(15);
    // Ustalenie czestotliwosci wykonywanych akcji 
    set_act_time(40);
    
    // Ustalenie wykonywanych akcji
    add_act("emote wyrzuca gnoj z pustego boksu.");
    add_act("emote szczotkuje czarnego konia.");
    add_act("emote nuci jaka piosenke pod nosem.");
    add_act("emote karmi muly.");
    add_act("emote rozrzuca nowa slome w boksach.");
    
    // Ustalenie wypowiedzi kuchcika
    add_chat("Bardzo lubie zwierzeta.");
    add_chat("Prawda ze piekny kon.");
    add_chat("Mam dzisiaj jeszcze tyle do roboty.");
    add_chat("A wlasciwie czego tu szukasz?");
    add_chat("Moze chcesz pomoc mi przy wyrzucaniu gnoju?");
    
    // Ustalenie wypowiedzi podczas walki
    add_cchat("Ratunku!");
    add_cchat("RAAAATUNKUUU!!");
    add_cchat("Pomocy! Pomocy!");
    add_cchat("Nie poddam sie tak latwo.");
    add_cchat("Zaraz zobaczymy kto jest lepszy.");
        
    // Ustalenie domyslnej odpowiedzi
    set_default_answer("Ja tu tylko sprzatam. ");
    
    // NIE WIEM
    set_alignment(150);
    
    // obj_file=file_name(TO);
    // Kluczowe pytania
    add_reakcja(({"konia","rumaka"}),({
        0.3,"emote odwraca sie w twoja strone. ",
        1.5,"emote usmiecha sie. ",
        2.0,"'Prawda ze piekne zwierze. ",
        1.0,"'Ten kon to wlasnosc mojego pana - Albrechta. ",
        0.5,"'On czesto tu przychodzi i doglada swego wierzchowca. "}),
        "_kylo_i_pytal_stajennego_o_konia");
    add_reakcja(({"slome","siano"}),({
        0.8,"emote czerwieni sie po same uszy. ",
        1.5,"'Siano......., sloma.......... ",
        1.0,"emote usmiecha sie glupio. ",
        2.0,"Eeeeeee...... trzeba na stryszek. ",
        1.5,"emote wraca do swojej pracy. " }),
        "_kylo_i_pytal_stajennego_o_siano");
     add_reakcja(({"dziewke"}),({
        0.7,"emote usmiecha sie. ",
        1.6,"Ta mlodsza bardzo mi sie podoba. ",
        0.3,"emote zaczerwienil sie. ",
        1.5,"Ja chyba jej tez. ",
        0.5,"emote wyciaga kawalek slomki ze swoich wlosow. ",
        0.6,"emote usmiecha sie figlarnie i wyrzuca slomke. ",
        1.9,"Musze wracac do pracy. " }),
        "_kylo_i_pytal_stajennego_o_dziewke");
    
    add_reakcja( ({"mula","muly"}), ({
        0.9,"emote przerywa prace. ",
        1.5,"Oba te muly to wlasnosc jednego z gosci naszego zajazdu. ",
        1.3,"Jakiegos kupca z Nuln. ",
        1.2,"usmiechnij sie",
        0.3,"Wredne zwierzaki, jak chcesz do nich podejsc zaraz kopia. ",
        0.5,"Na szczescie juz jutro ich tu nie bedzie. " }) );
        
    set_default_answer("Prosze porozmawiac na ten temat z wlascicielem.");
        
    dodaj_miedz(5);
}

// 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_pytal_stajennego_o_dziewke")) &&
        (Reakcja_Nr==2)))
    {
        command_say("Siano i sloma sa na stryszku. ",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

 
void
zapoznanie(object gracz)
{
    command("powiedz Witaj panie. ");
    command("przedstaw sie " + gracz->query_real_name(PL_CEL));
}
// koniec funkcji zapoznanie()
  

string
kon_hint()
{
//   if(!juz_mowi)
//   {
//       juz_mowi=1;
//       kon_hint_tekst(1);
//       juz_mowi=0;
//   }
   return "";
}

/*
 * Nazwa funkcji: odpowiedz_kon()
 * Opis:	  teksty stajennego na temat konia
 * Argumenty:	  brak
 * Zwraca:	  string (pusty wymaganie VBFC)
 */

string
odpowiedz_kon()
{
//    odpowiedz(1);
//    switch(tekst)
//    {
//        case 1:
//            command("' Ten przepiekny kon to wlasnosc mego pana - Albrechta. ");
//            command("' Prawda ze jest piekny");
//    }
    return "";
}