/*
 * To jest nasladownictwo nasladownictwa... eeee... niewazne...
 * W kazdym razie dziekuje wszystkim, ktorzy czuja, ze mieli w 
 * te pliki jakis wklad... :)
 *                         
 *                         by Ellentir, marzec 1998
 *
 * Trakt Kreutzhofen-Loren(i moze kiedys Bretonia...)
 *
 * Prosze nie bic Ellentira za opisy lokacji traktu 18-21 bo zostaly popelnione przez Tanisa
 */


#include "ellentir.h"
#include <options.h>
inherit TRAKTPATH+"p_room.c";

string
dlugi_opis(int i)
{
        string opis="";
 	opis+=" Jestes na srodku szerokiego traktu, biegnacego miedzy "
            +"Kreutzhofen i Bretonia. ";
        opis+="@@opis_pory_roku@@";
        switch (i)
        {
                case 1: opis+=" Nieopodal na wschodzie rysuja sie "
                     +"zabudowania Kreutzhofen, a na zachodzie widac "
                     +"potezne szczyty Gor Szarych, przed nimi zas zielona "
                     +"sciane tutejszego lasu. Droga jest w tym miejscu "
                     +"dosc szeroka i dobrze wydeptana.\n";
                     break;
                case 2: opis+=" Droga wiedzie prze las, ktory z tego, co "
                     +"wiesz rosnie blisko Kreutzhofen. Jest dobrze ubita, co "
                     +"znacznie ulatwia pordroz. W lesie dominuja drzewa "
                     +"iglaste, co jest charakterystyczna cecha gorskich "
                     +"borow.\n";
                     break;
                case 3: opis+=" Trakt jest teraz lesna droga, ktora, "
                     +"co pewien czas, zaskreca, aby uniknac zderzenia "
                     +"ze sporadycznie sie tu pojawiajacymi skalami. "
                     +"Trzeba przyznac, ze na tym odcinku jest naprawde "
                     +"dobrze utrzymana.\n";
                     break;
                case 4: opis+=" W tym miejscu droga troche skreca, aby "
                     +"wyminac sporej wielkosci skale. Pewna przyjemnosc "
                     +"sprawia ci podziwianie pieknego gorskiego lasu "
                     +"ktory porasta okoliczne tereny.\n";
                     break;
                case 5: opis+=" Tutaj trakt wiedzie przez stosunkowo "
                     +"rzadki las. Wieksze drzewa wystepuja tu "
                     +"sporadycznie, a wiekszosc terenu zajeta jest "
                     +"przez male, powyginane przez wiatr, drzewa.\n";
                     break;
                case 6: opis+=" Znajdujesz sie na granicy lasu. Na wschodzie "
                     +"widac ciemna zielen puszczy, podczas gdy na zachodzie "
                     +"rysuja sie wysokie szczyty Szarych Gor. Zastanawiasz "
                     +"sie, na ile prawdziwe sa plotki o okolicznych "
                     +"banitach.\n";
                     break;
                case 7: opis+=" Trakt pnie sie tutaj ostro w gore, przez co "
                     +"pokonywanie go staje sie bardzo uciazliwe zarowno "
                     +"dla wchodzacych, jak i schodzacych. Przejscie tedy "
                     +"mozesz z cala pewnoscia zaliczyc do swoich sukcesow "
                     +"w dziedzinie podrozowania.\n";
                     break;
                case 8: opis+=" Droga prowadzi tu po gorskich szczytach. "
                     +"Wiatr wieje tu bez przerwy, jeszcze bardziej "
                     +"utrudniajac podroz. Podloze jest kamieniste "
                     +"i budowniczym tego traktu z cala pewnoscia nalezy "
                     +"sie podziw za poradzenie sobie z nieprzychylnymi "
                     +"warunkami. Waski szlak prowadzi na polnocny-zachod.\n";
                     break;
                case 9: opis+=" Trakt wiedzie wsrod gorskich szczytow, "
                     +"czesto skrecajac aby wyminac przerozne przeszkody,"
                     +" jak na przyklad skaly, czy pojedyncze drzewa. Mimo"
                     +" duzej wysokosci trakt zdaje sie byc czesto uzywany. \n";
                     break;
                case 10: opis+=" Trakt prowadzi po szczytach Gor Szarych "
                        +"czesto wymijajac okoliczne skaly. Jest on calkiem "
                        +"dobrze zadbany i nawet wieksze karawany moga tedy "
                        +"przejechac bez przeszkod.\n";
                     break;
                case 11: opis+=" Trakt zakreca w tym miejscu troche na "
                      +"polnoc. Rozne, wystajace z ziemi skaly uniemozliwily "
                      +"budowniczym budowe traku po prostej i zmusily do "
                      +"utworzenia wielu zakretow.\n";
                     break;
                case 12: opis+=" Droga wiedzie gdzies, wysoko w gorach. Caly "
                      +"czas wije sie miedzy roznymi przeszkodami. W tej "
                      +"okolicy drzewa wystepuja bardzo rzadko i wszystkie "
                      +"nosza slady dzialalnosci wiatru.\n";
                     break;
                case 13: opis+=" Na wschodzie widzisz wysokie szczyty "
                     +"Szarych Gor, a na zachodzie twym oczom ukazuje sie, "
                     +"widziane teraz z gory Loren - swiety las lesnych "
                     +"elfow. Jest naprawde olbrzymi. Aby do niego dojsc, "
                     +"musisz zejsc z gor.\n";
                     break;
                case 14: opis+=" Znajdujesz sie na podejsciu pod gorskie "
                     +"szczyty. Szlak wiedzie tu dosc stromo w gore, "
                     +"jednakze droga jest na tyle plaska, aby mogly nia "
                     +"przejezdzac karawany kupieckie.\n";
                     break;
                case 15: opis+=" Znajdujesz sie u podnozy Gor Szarych. "
                     +"Ich wysokie szczyty przeslaniaja horyzont na "
                     +"wschodzie. Na zachodzie zas widac zielona sciane "
                     +"lasu Loren.\n";
                     break;
                case 16: opis+=" Zielona sciana lasu jest stad wyraznie "
                     +"widoczna. Oczywiscie nie mozna rozroznic pojedynczych "
                     +"drzew, ale nie jest ona z drugiej strony zielonkawa "
                     +"kreska na horyzoncie...\n";
                     break;
                case 17: opis+=" Znajdujesz sie tuz przy lesie Loren. "
                     +"Wysokosc tutejszych drzew jest do prawdy imponujaca. "
                     +"Dluzsza chwile podziwiasz ta tajemniecza, "
                     +"nieprzenikniona zielen. Nie wiesz czy masz sile "
                     +"pojsc dalej.\n";
                     break;
                case 18: opis+=" Na polnocy, w pewnym oddaleniu rozciaga sie wielki, "
                     + "tajemniczy las Loren. Dla niektorych ta kraina pierwotnej przyrody, "
                     + "zwierzat i Lesnych Elfow jest piekniejsza niz wszystko inne na swiecie, "
                     + "niektorych moze jednnak przerazac i odstraszac.\n";
                     break;
                case 19: opis+=" Las Loren widzisz na polnocnym wschodzie. "
                     + "Trakt biegnie dalej, na polnocny zachod, do krainy "
                     + "ludzi, Bretonia zwanej. Na poludniu stoi przy drodze zajazd, "
                     + "ktory zmeczonemu podroznikowi przypomina, ze istnieje cos takiego "
                     + "jak goraca strawa, dobre piwo, cieple lozko i mile, damskie towarzystwo.\n";
                     break;
                case 20: opis+=" Jestes w miejscu, w ktorym konczy sie krolestwo przyrody, a "
                     + "zaczyna sie kraina nieco bardziej cywilizowana. Las staje sie "
                     + "rzadszy, daleko na polnocnym zachodzie majacza juz pierwsze ludzkie domy i"
                     + " nieliczne pola uprawne.\n";
                     break;
                case 21: opis+=" Jestes juz w krolestwie Bretonii. Jest tutaj sporo ludzkich osad, "
                     + "widac duzo pol uprawnych. Gdzieniegdzie widac jakis las, jednak nie sa to lasy "
                     + "tak geste jak knieje na wschodzie. Im dalej na wschod i polnoc, tym wiecej "
                     + "sladow ludzkiej dzialalnosci. Trakt biegnie dalej na polnocny wschod, "
                     + "do samego centrum Bretonii. Niestety w tej chwili "+
                     "droga jest calkowicie zablokowana z uwagi na generalny "+
                     "remont. Dalsza wedrowka w tamtym kierunku jest niemozliwa.\n";
                     break;
        


        }
        set_long(opis);
	return opis;
}

create_trakt()
{
}

create_droga_room()
{
        create_trakt();
        set_short(" Trakt Kreutzhofen-Bretonia");

	add_event(" Slyszysz potworny lomot. To gdzies w gorach zeszla "+
              "potezna lawina. Kto wie, gdzie zejdzie nastepna...\n");
        add_event(" Twa twarz uderza mocniejszy podmuch wiatru.\n");
        add_event(" W oddali widzisz lecacego sokola.\n");
        add_event(" Zatrzymujesz sie na moment, aby obejrzec pieknego orla.\n");
        add_event(" Slyszysz jak wiatr wyje pomiedzy szczytami gor.\n");
        add_event(" Twa twarz uderza mocniejszy podmuch wiatru.\n");
        add_event(" W oddali widzisz lecacego sokola.\n");
        add_event(" Zatrzymujesz sie na moment, aby obejrzec pieknego orla.\n");
        add_event(" Slyszysz jak wiatr wyje pomiedzy szczytami gor.\n");


        add_item(({"droge","trakt"})," Prawie caly trakt miedzy Kreutzhofen a "+
	 "Bretonia wiedzie wsrod szczytow Gor Szarych. Na szlaku rzadko spotyka "+
	 "sie klopoty, jakoze jest on patrolowany przez elfich przepatrywaczy "+
         "z Loren, ktorzy nie pozwalaja na jakiekolwiek naruszanie spokoju. "+
         "Ten trakt, przez swoje polozenie, nie nalezy rowniez do "+
 	 "najszerszych. Na szerokosc ledwo zmieszcza sie trzej jezdni na "+
         "koniach.\n");
       

        add_item(({"gory","szczyty","Gory Szare","gory szare"}),
	        "Przed toba rozciaga sie wspaniala panorama Gor Szarych. "+
                "Niektore ze szczytow sa pokryte sniegiem, niezaleznie "+
	        "od pory roku. Gory sprawiaja wrazenie nieprzyjaznych i "+
		"mysl o pozostaniu tu samemu przyprawia cie o gesia "+
	        "skorke.\n");
}

int go()
{
int zmeczenie;
    string opis;

    ::go();

 //   if (!this_player()->query_fatigue())
    if (0)
    {
        write("Mimo twoich najwiekszych wysilkow, nie mozesz znalezc sil na "+
	      "dalsza podroz, gdyz jestes zbyt zmeczon" + this_player()->koncowka("y", "a") + ". Teraz "+
            "jedyne co mozesz zrobic, to odpoczac troche.\n");
            
        say(QCIMIE(this_player(), PL_MIA) + " stara sie ruszyc w dalsza droge, lecz w " +
            "tej samej chwili zatrzymuje sie, uginajac sie pod ciezarem " +
            "wlasnego ciala.\n");
        return 1;
    }

    if (this_player()->query_option(OPT_BRIEF))
       return 0;

    zmeczenie = this_player()->query_fatigue() * 100 / this_player()->query_max_fatigue();
   
/* Opisy dla wypoczetego gracza */

    if (zmeczenie > 60)
    {
        if (pora_roku() == "zima")
        {
            if (pora_dnia() == "noc")
                opis = "Szybkim krokiem ruszasz w ciemnosc, kryjaca sie " +
                    "tuz za granica pola widzenia. Po ciemku brniesz przez " +
                    "zasypany sniegiem trakt, wpadajac czasami w zaspy. " +
                    "Pokonujesz je jednak bez wiekszego problemu. Uwazasz, "+
                    "ze przesz" + this_player()->koncowka("edles", "las") + " juz spory "+
                    "kawalek. Postanawiasz wiec zatrzymac sie na chwile, "+
		    "szczegolnie, ze trakt jest wyjatkowo sliski.";
            else
                opis = "Pod twoimi nogami skrzypi snieg, gdy ruszasz " +
                    "szybkim krokiem w dalsza droge. Od czasu do czasu " +
                    "musisz przedostac sie przez zaspy usypane na twojej " +
                    "drodze przez wiatr, lecz dziarsko pokonujesz " +
                    "wszystkie przeszkody. Przesz" + 
                    this_player()->koncowka("edles", "las") + " juz spory kawalek. " +
                    "Najwyzszy czas zatrzymac sie i rozejrzec po okolicy.";
        }
                    
        if (pora_dnia() != "noc") 
            opis = " Spogladasz na trakt ciagnacy sie przed toba i szybkim " +
            "krokiem ruszasz w dalsza droge. Poniewaz jestes wypoczet" +
            this_player()->koncowka("y", "a") + ", pokonujesz szybko kolejne odcinki " +
            "traktu, zastanawiajac sie, co sie kryje za horyzontem. " +
            "Po pewnym czasie, gdy uwazasz iz przesz" + 
            this_player()->koncowka("edles", "las") + " juz spory kawalek, " +
            "postanawiasz zatrzymac sie na chwile.";
        else
            opis = " Twoje pole widzenie jest ograniczone, lecz pomimo " +
              "to ruszasz szybkim krokiem, nie zastanawiajac sie dlugo. " +
              "Poniewaz jestes wypoczet" + this_player()->koncowka("y", "a") +
              ", poruszasz sie szybko, przechodzac kolejny odcinek traktu."+
              " Po pewnym czasie, gdy uwazasz iz przesz" +
              this_player()->koncowka("edles", "las") + " juz spory kawalek, " +
              "postanawiasz zatrzymac sie na chwile.";  
    } 
    else
/* Opisy dla gracza zdeka juz zmeczonego */

    if (zmeczenie > 30)
    {
        if (pora_dnia() != "noc") 
            opis = "Powoli, z pewnym ociaganiem decydujesz sie " +
              "wyruszyc w dalsza droge traktem. Zaczynasz juz odczuwac " +
              "pierwsze oznaki zmeczenia, nie sa one jednak jeszcze na " +
              "tyle uciazliwe, zeby spowalniac podroz. Pokonujesz wiec " +
              "kolejne odcinki traktu, przystajac czasami troche, aby " +
              "rozejrzec sie dookola. Wlasnie zatrzymal" +
              this_player()->koncowka("es", "as") + " sie w jednym z takich miejsc.";
        else
            opis = "Pomimo iz jest ciemno, decydujesz sie wyruszyc w dalsza " +
              "podroz traktem. Powoli zaczynasz odczuwac skutki zmeczenia, " +
              "lecz jak na razie nie sa one na tyle powazne, " +
              "aby cie zatrzymac. Zapuszczasz sie wiec w mrok nocy " +
              "pokonujac kolejne odcinki traktu. Po pewnym czasie " +
              "postanawiasz sie jednak zatrzymac na chwile, aby rozejrzec " +
              "sie po okolicy.";
    }
    else
/* Opisy dla gracza baaardzo zmeczonego   */
    if(zmeczenie <= 30)
    {
        opis = "Czujesz sie bardzo zmeczon" + this_player()->koncowka("y", "a") +
            ", pomimo to postanawiasz ruszyc w dalsza droge. Co jakis " +
            "czas musisz sie zatrzymac, aby zlapac oddech i dac chwile " +
            "odpoczynku swoim strudzonym nogom. Idziesz jednak dzielnie " +
            "przed siebie zostawiajac za soba kolejne odcinki traktu. " +
            "Po pewnym czasie postanawiasz jednak zatrzymac sie na " +
            "dluzsza chwile.";
    }
  
    opis="\n" + opis + "\n\n";
    write(opis);
    
    return 0;

}
