/*
 * To jest cos. Cos, co jest miernym nasladownictwem traktu KZ-NULN
 * zrobionego przez, zdaje sie, Elvarona. Nie mam tego traktu w domu,
 * a poza tym i tak wolalbym napisac to sam.
 *                         z wyrazami szacunku
 *                                     Mithandir :))
 *
 * Trakt Kreutzhofen - Nuln, Mithandir 1998
 *
 */

#include "mith.h"

inherit ROOM;
inherit TRAKTPATH+"p_room.c";

string
dlugi_opis(int i)
{
        string opis="";
	// opis+=" Stoisz na srodku szerokiego traktu, biegnacego miedzy "
           //     +"miastami Nuln i Kreutzhofen. ";
        opis+=opis_pory_roku();
        switch (i)
        {
                case 1: opis+="Na polnocy, o drugiej stronie rzeki widzisz "
                     +"zarysy poteznych gor. Od poludnia widok zaslania "
                     +"zwarta sciana lasu. Niedaleko na zachodzie trakt "
                     +"dociera do Kreutzhofen, na wschodzie zas mija "
                     +"szerokim lukiem zakrety rzeki i biegnie daleko do "
                     +"Nuln.\n";
                     break;
                case 2: opis+="W tym miejscu Sol szerokim lukiem zakreca na "
                     +"polnoc. Aby nie przecinac glownego nurtu rzeki, trakt "
                     +"zatacza jeszcze szerszy luk.\n";
                     break;
                case 3: opis+="Olbrzymia, odwieczna puszcza porasta obie "
                     +"strony rzeki. Trakt biegnie szerokim wycienciem w "
                     +"gestwie drzew, osloniety z obu stron nieprzenikniona "
                     +"sciana drzew i krzewow.\n";
                     break;
                case 4: opis+="W tym miejscu do Sol wplywaja doplywy z "
                     +"poludniowych lancuchow gor. Na szczescie nurt "
                     +"doplywow w tym miejscu jest szeroki i plytki, tak ze "
                     +"skaczac po kamieniach bez obawy mozna przejsc na "
                     +"druga strone.\n";
                     break;
                case 5: opis+="Trakt biegnie tuz nad wschodnim brzegiem "
                     +"Sol. Rzeka jest juz wtym miejscu szeroka i "
                     +"porywista, nie mozna nawet mazyc o przebyciu jej. "
                     +"Gesty las porasta zreszta obydwa brzegi, i do wody "
                     +"mozna dotrzec tylko tam, gdzie trakt wlasciwie "
                     +"ociera sie o rzeke.\n";
                     break;
                case 6: opis+="W tym miejscu rosnacy dotad prawie nad sama "
                     +"rzeka las odsunal sie troche na wschod. Nurt rzeki "
                     +"rozszerza sie, tworzac mala, naturalna zatoczke. W "
                     +"tym miejscu zatrzymuja sie plynace rzaka lodzie na "
                     +"noc, gdyz zegluga po ciemku jest prawie "
                     +"niemozliwa.\n";
                     break;
                case 7: opis+="Rzeka Sol zrobiwszy ostry zakret na polnoc "
                     +"nie biegnie prosto, ale kluczy wybierajac najnizej "
                     +"polozone partie lasu. Oby nie wydluzac drogi, trakt "
                     +"wybito prosto az do Nuln.\n";
                     break;
                case 8: opis+=" Trakt biegnie prosto w kierunku "
                     +"polnoc-poludnie. Wokol ciebie rosnie wielki, "
                     +"gesty las, porosniety chaszczami krzewow i "
                     +"zamieszkany przez dzikie zwierzeta. Na zachodzie "
                     +"przez przeswity w koronach drzew dostrzegasz wysokie "
                     +"szczyty Gor Szarych.\n";
                     break;
                case 9: opis+=" Ze wschodu wpada do Sol duzy nurt jej "
                     +"doplywow z poludniowych gor. Rzeka nagle prawie "
                     +"dwukrotnie zwieksza przeplyw wody, czego skutkiem "
                     +"jest zwiekszenie porywistosci nurtu. Jest to jedno z "
                     +"najniebezpieczniejszych miejsc dla plywajacych "
                     +"rzeka statkow.\n";
                     break;
                case 10: opis+="Trakt biegnie ciemnym, gestym lasem, tuz "
                     +"nad brzegiem rzeki Sol. Przez zwarte korony drzew "
                     +"ledwo dociera troche swiatla.\n";
                     break;
                case 11: opis+="Na polnocy dostrzegasz przejasnienie, "
                     +"zapewne konczy sie tam potezny las, w ktorym sie "
                     +"aktulanie znajdujesz. Rzeka Sol pedzi niezmordowanie "
                     +"swoje wody, nabierajac prednkosci w miare jak "
                     +"wpadaja do niej liczne lesne strumyczki.\n";
                     break;
                case 12: opis+=" W miejscu tym trakt przecina brzeg "
                     +"wielkiego, gestego lasu. Na polnocy trakt biegnie "
                     +"miedzy rzeka Sol i rozleglymi, rowninymi lakami "
                     +"Sudenlandii. Na poludniu wielki las rozciaga sie po "
                     +"obu stronach traktu.\n";
                     break;
                case 13: opis+="Rzeka Sol wpada w tym miejscu do Reiku, jednej z "
                     +"najwiekszych rzek Imperium. Przez Reik przerzucono "
                     +"wielki, kamienny most, bedacy arcydzielem "
                     +"budownictwa. Jest tak szeroki, ze moga sie na nim "
                     +"minac dwa wozy, a przy tym tak wysoki, ze wiekszosc "
                     +"lodzi bez problemu pod nim przeplynie.\n";
                     break;
                case 14: opis+="Na poludniu widac laczace sie nurtu Sol i "
                     +"Reik. Niedaleko na polnocy trakt dociera do miasta "
                     +"Nuln. Po obydwu stronach traktu rozsiane sa male, "
                     +"rolnicze, a nad rzeka rybackie chatki.\n";
                     break;
                case 15: opis+="Stoisz pod poludniowa brama miasta Nuln. "
                     +"Przez kraty w murze wplywa do miasta Sol. W miejscu "
                     +"tym zaczyna sie biegnacy do Kreutzhofen trak. Tam "
                     +"krzyzuje sie wiekszosc drog handlowych w Starym "
                     +"Swiecie.\n";
                     break;
        }
        set_long(opis);
	return opis;
}

create_trakt()
{
        dlugi_opis(0);
}

create_imperium_room()
{
        create_trakt();
        set_short(" Droga z Nuln do Kreutzhofen i odwrotnie");

	add_event(" Kolo ciebie przejezdza galopem podazajacy w "
             +"kierunku Nuln oddzial jezdzcow. Moze byla to kawaleria, a "
             +"moze tylko grupa niecierpliwych podroznikow? Przemkneli tak "
             +"szybko, ze nie zdolales nic zauwazyc.\n");
        add_item(({"droge","trakt"})," Trakt miedzy Nuln a Kreutzhofen jest "
        +"niepodobny do innych drog w Imerpium. Ze wzgledu na czeste uzywanie"
        +" go przez karawany ze wszystkich krancow swiata, zdazajacych do "
        +"Nuln i innych miast Imperium, trakt jest pozadnie utrzymany. "
        +"Nigdzie nie widac niebezpiecznych w czasie deszczu zaglebien, w "
        +"ktorych mogla by sie gromadzic woda, wszedzie dorga jest rowna i "
        +"dokladnie ubita.\n");
        add_item(({"rzeke","sol"})," Rzeka Sol pedzi nieprzewanie swoje "
           +"wody z Gor Szarch az pod same Nuln, gdzie wpada do Reiku.\n");
}

int go()
{
int zmeczenie;
    string opis;

    ::go();

 //   if (!this_player()->query_fatigue())
    if (0)
    {
        write("Starasz sie zmusic do dalszej wedrowki, lecz jestes tak " +
            "potwornie zmeczon" + this_player()->koncowka("y", "a") + ", iz dalszy " +
            "marsz bez chwili odpoczynku jest ponad twoje mozliwosci.\n");
            
        say(QCIMIE(this_player(), PL_MIA) + " stara sie ruszyc w dalsza droge, lecz w " +
            "tej samej chwili zatrzymuje sie, nie mogac zlapac oddechu z " +
            "powodu zmeczenia.\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."; 
            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 poza 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 bardzo 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;

}