#include "local.h"

inherit HOME + "std/room";

#include <options.h>

int typ;
string op_dodatkowy;
string op_koncowy="";
string type_long;
int extra_light;

string short_desc();


void
set_area_type(int area_typ)
{
     typ = area_typ;
}

void 
add_end(string opis)
{
     op_koncowy=opis;
}

void 
add_long(string opis)
{
     op_dodatkowy=opis;
}


void
type_long(string opis)
{
    type_long=opis;
}


void
add_light(int add)
{
    extra_light += add;
}

int
return_light()
{
    int light = 0;
   
    switch(pora_dnia())
    {
        case "noc": light = 1; break;
        case "swit": light = 1; break;
        case "wczesny ranek": light = 2; break;
        case "ranek": light = 3; break;
        case "poludnie": light = 3; break;
        case "popoludnie": light = 2; break;
        case "wieczor": light = 1; break;
        case "pozny wieczor": light = 1; break;
    }
   
    return (light + extra_light);
}

public void
create_trakt_room() 
{
    set_area_type(0);
    op_dodatkowy = "";
}

nomask void
create_imperium_room()
{
    op_dodatkowy = "";
    type_long = "";
    
    set_short("@@short_desc");

    set_long("@@long_desc");
    
    add_item("trakt","@@ob_trakt");
    add_item("snieg","@@ob_snieg");
    add_item("rowniny","@@ob_rowniny");
    add_item("las","@@ob_las");   

    add_prop(ROOM_I_LIGHT, "@@return_light");
    add_prop(ROOM_I_INSIDE, 0);
    add_prop(ROOM_I_IS, 1);    

    if (random(100, time()) < 15)
      dodaj_npca(NPATH + "npc/podroznik"); 
    create_trakt_room();
}


/* ================================================ */
/* dodatkowe mozliwosci na trakcie zrobione w init  */
/* ================================================ */

int schowaj(string str)
{
    return 0;
}

int wejdz(string str)
{
    return 0;
}



public void
trakt_init() 
{
}

nomask void
init()
{
    ::init();
//  add_action(schowaj,"schowaj");
//  add_action(wejdz,"wejdz");

    trakt_init();
}

/* =============================================== */
/* funkcje zwracajace opisy przedmiotow na trakcie */
/* =============================================== */

string ob_las()
{
    string opis;
    
    if (pora_dnia() == "noc") 
        return "Wszedzie gdzie wydaje sie znajdowac, widzisz tylko ciemna " +
            "plame na tle jasniejszego nieba.\n";
            
    opis = "Nie zauwazasz niczego takiego.\n";
    
    if (typ == 2) 
        return "Niewielkich zagajnikow, ktore mijasz czasami, lasem raczej"+
            " nazwac nie mozna.\n";
            
    if (typ == 3) 
        return "Co prawda mijasz ostatnio duzo zagajnikow, jednak prawdziwy " +
            "las wydaje sie znajdowac bardziej na polnoc.\n";
            
    if (typ != 4)
        return opis;
    
    switch(pora_roku())
    {
        case "zima": opis = "Lezy na polnoc od traktu, lub raczej to trakt " +
            "biegnie jego poludniowym skrajem. Jest bardzo gesty, sklada " +
            "sie glownie z drzew lisciastych. Poniewaz panuje obecnie zima, " +
            "sa one kompletnie ogolocone z liscii. Wysoko w koronach mozesz " +
            "dostrzec spore czapy sniegu, grozace upadkiem przy " +
            "pierwszym podmuchu wiatru."; break;
            
        case "wiosna": opis = "Lezy na polnoc od traktu lub raczej to " +
            "trakt biegnie jego poludniowym skrajem. Jest bardzo gesty, " +
            "sklada sie glownie z drzew lisciastych. Do twoich uszu dociera " +
            "caly czas kojacy szum lisci, dochodzacy z koron nieustannie " +
            "poruszanych delikatnym wiatrem. Scialka porosnieta jest swieza " +
            "wiosenna trawa oraz innymi roslinami, korzystajacymi z wiosny, " +
            "aby rozrastac sie w szalonym tempie."; break;
            
        case "lato": opis = "Lezy na polnoc od traktu lub raczej to trakt " +
            "biegnie jego poludniowym skrajem. Jest bardzo gesty, sklada " +
            "sie glownie z drzew lisciastych, skrywajacych w swoim cieniu " +
            "trakt. Korony drzew wydaja sie dosyc dobrze chronic przed " +
            "sloncem, pochlaniajac prawie w calosci jego zar, lecz nie sa " +
            "w stanie schlodzic powietrza. Jest tu jednak znacznie " +
            "przyjemniej niz tam, gdzie padaja palace promienie. Sciolka " +
            "porosnieta jest trawa oraz innymi roslinami, znajdujacymi tu " +
            "schronienie przed sloncem.";
            break;
            
        case "jesien": opis = "Lezy na polnoc od traktu lub raczej to " +
            "trakt biegnie jego poludniowym skrajem. Jest bardzo gesty, " +
            "sklada sie glownie z drzew lisciastych. Sciolka pokryta jest " +
            "glownie liscmi niedawno opadlymi z drzew. Kazdy, nawet " +
            "najslabszy podmuch wiatru powoduje iz do twoich uszu " +
            "dochodzi ich opadajacy szelest. Niedlugo korony drzew zostana " +
            "z nich w pelni ogolocone.";
            break;
    }
    opis += "\n";
    
    return opis;
}


string ob_rowniny()
{
    string opis;
    string pr = pora_roku();
    
    if (pora_dnia() == "noc") 
        return "Nie widzisz az tak dobrze w nocy.\n";
        
     opis = "Nie zauwazasz niczego takiego.";
     
    if (typ == 1 || typ == 8) 
        opis = "Rozciagaja sie we wszystkich kierunkach, ograniczone " +
            "jedynie horyzontem. Niekiedy dostrzegasz pojedyncze drzewa " +
            "stojace samotnie w oddali.";
    else if (typ == 2) 
        opis = "Rozciagaja sie we wszystkich kierunkach, ograniczone " +
            "jedynie horyzontem. Niekiedy na jego linii widzisz " +
            "niewielkie plamy, zapewne jakies skupiska drzew.";
    else if (typ == 3) 
        opis = "Rozciagaja sie we wszystkich kierunkach, lecz nie jestes " +
            "w stanie stwierdzic jak daleko, gdyz obraz przeslaniaja ci " +
            "liczne, nieduze skupiska drzew.";
    else if (typ == 4) 
        opis = "Rozciagaja sie na poludnie od ciebie. Nie jestes w stanie " +
            "stwierdzic jak sa rozlegle gdyz prawie cala linie horyzontu " +
            "przeslaniaja ci liczne zagajniki lezace tam.";
    else if (typ == 5) 
        opis = "Rozciagaja sie we wszystkich kierunkach, lecz nie jestes " +
            "w stanie stwierdzic jak daleko, gdyz obraz przeslaniaja ci " +
            "liczne, nieduze skupiska drzew.";
            
    if (typ == 8) 
        opis +=" Na poludniu dostrzegasz niewyrazne jeszcze mury Nuln.";
        
    if (typ < 6)
    {
        if (pr == "zima")
            opis += " Pokryte sa obecnie gruba warstwa sniegu, " +
                "tworzacego liczne doliny i wzniesienia zmieniajace " +
                "swoje polozenie po pierwszym silniejszym podmuchu wiatru.";
        else
        {
            opis += " Porosniete sa wysoka trawa, falujaca przy kazdym " +
                "silniejszym podmuchu wiatru.";
                
            switch(pr)
            {
                case "wiosna": opis+=" Ma ona soczysty, jasnozielony " +
                    "kolor."; break;
                    
                case "lato": opis += " Gdy wiatr ucichnie wydaje sie uginac "+
                    "pod wplywem palacego slonca."; break;
                    
                case "jesien": opis += " Jest ona pozolkla i wypalona " +
                    "sloncem. Gdy powieje mocniejszy wiatr, jej wysuszone " +
                    "polamane kawalki unosza sie wraz z nim w gore."; break;
            }
        }

        if (TP->query_rasa(PL_MIA)[0..8] == "krasnolud") 
            opis += " Gdy stoisz tak samotnie zaczynasz czuc sie jak maly i " +
              "nic nie znaczacy punkt, nie majacy zadnego wplywu na " +
              "otaczajacy cie swiat. Masz wrazenie, iz jestes jak zdzblo " +
              "trawy, ktore moze wyrwac kazdy silniejszy podmuch wiatru. " +
              "Ogarnia cie przygnebienie i uczucie bezsilnosci w stosunku " +
              "do otaczajacego cie swiata.";
    }

    opis += "\n";
    
    return opis;
}



string ob_trakt()
{
    string opis;
    
    if (pora_roku() == "zima") 
        opis = "Trakt pokryty jest gruba warstwa ubitego sniegu. Dzieki " +
            "niemu jest mozliwa w miare szybka komunikacja pomiedzy";
    else
        opis = "Trakt zrobiony jest z topornie ociosanych kamieni wbitych " +
            "w ziemie. Jego budowa byla zapewne bardzo dluga i wymagala " +
            "ciezkej pracy budowniczych. Dzieki niemu jest mozliwa w miare " +
            "szybka komunikacja pomiedzy";
            
    if (typ != 8) 
        opis += " Nuln a Kraina Zgromadzenia i miejscami lezacymi dalej " +
            "na wschod.\n";
    else
        opis += " Nuln a miejscami lezacymi dalej na polnoc i wschod.\n";
        
    return opis;
}

string ob_snieg()
{
    if (pora_roku() != "zima") 
        return "Nie zauwazasz niczego takiego.\n";
        
    if (pora_dnia() != "noc")  
        return "Cala okolica jest nim pokryta. Na trakcie zostal ubity przez " +
            "podroznych i nie przeszkadza zbytnio w marszu, moze z " +
            "wyjatkiem miejsc gdzie jest slisko. Poza nim podroz jednak " +
            "nie bylaby jednak tak przyjemna, gdyz moznaby zapasc sie po " +
            "kolana albo jeszcze glebiej.\n";
    else
        return "Cala okolica jest nim pokryta. Blask ksiezyca i gwiazd " +
            "odbija sie od niego, dodajac jeszcze wiecej swiatla. Wydaje " +
            "ci sie, ze na samym trakcie jest ubity, najprawdopodobniej " +
            "przez innych podroznych przechadzacych tedy. Musisz tylko caly " +
            "czas uwazac, zeby sie nie poslizgnac.\n";
}

/* ==============================
 * Typy otoczenia traktu:
 *  Laki do okola              1 
 *  Krzaki porastajace okolice 2
 *  okolice lasu na polnocy    3
 *  las na polnocy             4
 *  pagorki na wschodzie       5
 *  wsrod pagorkow             6
 *  na polnoc od rz. Aver      7
 *  na polnoc od Nuln          8
 * ===============================
 */



string short_desc()
{
    return "Imperialny trakt pomiedzy Kraina Zgromadzenia a Nuln, " + 
        pora_dnia() + ", " + pora_roku();
}



string long_desc()
{
    string opis;
    string pr = pora_roku();
    string pd = pora_dnia();
    
    opis = "Podrozujesz imperialnym traktem laczacym Nuln z Kraina "+
        "Zgromadzenia. Jest wlasnie " + pd + ". Gdy rozgladasz "+
        "sie dookola dostrzegasz";
        
    if (type_long != "") 
        opis += type_long;
    else
    {
        switch(typ)
        {
            case 1: opis += " rozlegle rowniny, rozciagajace sie ze " +
                "wszystkich stron, az po kres twojego pola widzenia."; break;
                
            case 2: opis += ", iz okolica porosnieta jest licznymi " +
                "grupkami krzewow, tworzacych malownicze wyspy, rozsiane " +
                "na otaczajacej cie rowninie. Im dalej na polnoc tym " +
                "wydaje sie ich byc coraz wiecej."; break;
                
            case 3: opis += " liczne, niezbyt duze zagajniki, porastajace " +
                "rozciagajaca sie dookola rownine. Na polnocy ich liczba " +
                "wydaje sie zwiekszac, ograniczajac czasami twoje pole " +
                "widzenia."; break;
                
            case 4: opis += ", iz trakt prowadzi obecnie skrajem lasu, " +
                "znajdujacego sie na polnocy. Na poludniu rozciaga sie " +
                "rownina porosnieta licznymi, niewielkimi zagajnikami oraz " +
                "krzewami."; break;
                
            case 5: opis += ", iz okolica porosnieta jest licznymi " +
                "grupkami krzewow, tworzacymi malownicze wyspy rozsiane na " +
                "otaczajacej cie rowninie. Im dalej na polnoc tym wydaje " +
                "sie ich byc coraz wiecej. Uksztaltowanie terenu wydaje " +
                "sie powoli zmieniac przechodzac z rowniny na zachodzie, " +
                "w niezbyt wysokie pagorki na wschodzie."; break;
                
            case 6: opis += ", ze trakt obecnie kluczy pomiedzy pagorkami, " +
                "wznoszacymi sie dookola, wykonujac liczne zakrety, " +
                "skrywajace jego dalszy bieg. W odleglosci kilku metrow " +
                "na polnoc od traktu wznosi sie gesty zywoplot, " +
                "odgradzajacy Kraine Zgromadzenia od reszty Imperium.";
                break;
                
            case 7: opis += ", ze trakt biegnie obecnie w niewielkiej " +
                "odleglosci od polnocnego brzegu rzeki Aver. Plynie ona " +
                "ze wschodu na zachod, przecinajac Kraine Zgromadzenia. " +
                "Patrzac zgodnie z biegiem rzeki trakt wydaje sie powoli " +
                "od niej oddalac."; break;
                
            case 8: opis = "Podrozujesz imperialnym traktem prowadzacym " +
                "na polnoc od Nuln. Jest wlasnie " + pora_dnia() + 
                ". Gdy rozgladasz sie dookola, dostrzegasz wsrod " +
                "bezkresnych rownim otaczajacych cie ze wszystkich stron, " +
                "wznoszace sie na poludniu mury miasta Nuln.";
        }
    }
 
    opis += op_dodatkowy;
    
/* ================================ */
/* Ogolny opis zimowego krajobrazu */

    if (pr == "zima")
    {
        opis += " Panuje obecnie zima, pokrywajaca cala okolice bialym " +
            "plaszczem. Snieg na trakcie jest w miare ubity i nie " +
            "ogranicza zbytnio mozliwosci podrozy, jednak poza droga, " +
            "jego warstwa wydaje sie byc dosyc gruba.";
    
        switch(pd)
        {
            case "noc": opis += " Panuje wlasnie mrozna zimowa noc. " +
                "Blade swiatlo gwiazd pada na okolice swym srebrzytym " +
                "blaskiem, tworzacym zludne jeziora swiatla w kazdym " +
                "wiekszym zaglebieniu. Jest tak bardzo zimno, iz wydaje ci " +
                "sie ze juz gorzej byc nie moze. Jakby na przekor twoim " +
                "przekonaniom temperatura zdaje sie nadal obnizac."; break;
                
            case "swit": 
            case "wczesny ranek": opis += " Jasna tarcza slonca spoglada " +
                "sponad krawedzi horyzontu, zalewajac pokryte sniegiem " +
                "obszary jasnym, razacym swiatlem. Jest jeszcze bardzo " +
                "zimno, gdyz slonce ledwo co zdazylo pojawic sie na niebie.";
                break;
                
            case "ranek": opis += " Jasna tarcza slonca wydaje sie powoli " +
                "zblizac do zenitu, przepelniajac okolice slonecznym " +
                "blaskiem, odbijanym przez kazdy platek sniegu. Jest juz " +
                "troche cieplej, a nocny mroz powoli zaczyna odchodzic w " +
                "niepamiec."; break;
                
            case "poludnie": opis += " Jasna tarcza slonca przebyla juz " +
                "ponad polowe swojej dziennej drogi, co oznacza, iz " +
                "wlasnie minelo poludnie. Jest w miare cieplo, o ile mozna " +
                "to powiedziec o temperaturze panujacej zazwyczaj w zimie.";
                break;
                
            case "popoludnie": opis += " Pomimo, iz slonce znajduje sie " +
                "jeszcze ponad horyzontem, jego swiatlo nie jest juz tak " +
                "jasne. Wszystkie przedmioty w okolicy wydaja sie rzucac " +
                "przesadnie dlugie cienie, rosnace z kazda chwila."; break;
                
            case "wieczor": 
            case "pozny wieczor": opis += " Znad krawedzi horyzontu wystaje "+
                "juz tylko rabek slonca, pokrywajac cala okolice cieniami, " +
                "przecinanymi ostatnimi jego promieniami. Zaczyna sie " +
                "robic coraz zimniej, a zapadniecie zmroku jest juz tylko " +
                "kwestia godzin lub nawet minut."; break;
        }

    }
    else

 /* =======================*/
 /* glowny opis wiosny */
 
    if (pr == "wiosna")
    {
        opis +=" Panuje obecnie wszechobecna wiosna. Cala roslinnosc " +
            "porastajaca okolice przybrala kolor swiezej zieleni. W " +
            "niektorych miejscach, a w szczegolnosci na drodze mozna " +
            "dostrzec slady niedawnych roztopow.";

        switch(pd)
        {
            case "noc": opis += " Pomimo iz jest noc, bez wiekszych " +
                "przeszkod mozesz podrozowac traktem, wyraznie widocznym " +
                "na tle okolicy. Jest dosyc chlodno; moze rano bedzie " +
                "przymrozek."; break;
                
            case "swit": 
            case "wczesny ranek": opis += " Jest jeszcze dosyc chlodno, " +
                "slonce zdazylo dopiero co wyjzec spoza horyzontu. " +
                "Gdzieniegdzie na trawie mozna dostrzec slady szronu, " +
                "szybko znikajacego pod cieplym dotknieciem slonca, " +
                "ogrzewajacym twoja twarz, kiedy spogladasz w jego strone.";
                break;
                
            case "ranek": opis += " Slonce znajduje sie na niebie juz od " +
                "dobrych kilku godzin. Poranna rosa zaczyna powoli znikac, " +
                "a slonce przyjemnie ogrzewa twoja twarz. Zapowiada sie " +
                "piekny wiosenny dzien."; break;
                
            case "poludnie": opis += " Slonce swieci juz wysoko na niebie, " +
                "zatapiajac cala okolice swoim blaskiem. Dookola ciebie " +
                "rozlega sie radosne swiergotanie ptakow, zrywajacych sie " +
                "co chwila do lotu."; break;
                
            case "popoludnie": opis += " Slonce juz zatoczylo ponad polowe " +
                "swojej drogi, rozpoczynajac powolna wedrowke poza horyzont. " +
                "Gdy spogladasz na niebo, dostrzgasz chmary ptakow " +
                "latajacych na jego tle."; break;
                
            case "wieczor":
            case "pozny wieczor": opis += " Slonce powoli chowa swoja " +
                "czerwona tarcze poza horyzont. Po okolicy zaczynaja sie " +
                "snuc dlugie cienie przedmiotow, rosnace z kazda chwila. " +
                "Zapadniecie kompletnych ciemnosci jest juz tylko kwestia " +
                "czasu."; break;
        }
    }
    else

/* ============================ */
/* glowny opis lata             */

    if (pr == "lato")
    {
        if (pd == "noc")
            opis += " Panuje noc, lecz nie jest ciemno, gdyz okolice " +
                "rozswietla gwiazdziste letnie niebo. Jest to jedna z " +
                "tych cieplych, letnich nocy, gdy czlowiek (albo dowolna " +
                "istota) moze odpoczac, a przyjemny chlodny wiaterek " +
                "pomaga zapomniec o upalnym dniu. Podroz traktem po zmroku " +
                "jest o wiele bardziej wygodna i mniej meczaca.";
        else
        {
            opis += " Gdy dokladnie przyjrzysz sie okolicy, mozesz dostrzec " +
                "skutki panujacego tu lata. Wysoka trawa jest w wielu " +
                "miejscach przypalona sloncem. Rowniez na drzewach mozna " +
                "dostrzec skutki jego bezlitosnej dzialalnosci.";
                
            switch(pora_dnia())
            {
                case "swit": 
                case "wczesny ranek": opis += " Panuje jeszcze przyjemny " +
                    "poranny chlodek. Na trawie widac rose, lecz nad " +
                    "horyzontem wznosi sie juz plomienna tarcza " +
                    "wschodzacago slonca. Jest to jedna z wygodniejszych " +
                    "por dnia do podrozy."; break;
                    
                case "ranek": opis += " Wznosi juz ono swoja plomienna " +
                    "tarcze wysoko ponad horyzontem, zmierzajac szybko do " +
                    "zenitu. Robi sie coraz cieplej, niedlugo upal bedzie " +
                    "nieznosny, a podroz stanie sie meczarnia."; break;
                    
                case "poludnie": opis += " Wznosi ono obecnie swoja ognista " +
                    "tarcze w najwyzszym punkcie nieba, razac swoimi " +
                    "promieniami wszystko co zyje. Gdy spogladasz w dal " +
                    "widzisz jak powietrze faluje z goraca. Podrozy traktem " +
                    "w porze najwiekszych upalow nie mozna zaliczyc do " +
                    "dobrych pomyslow."; break;
                    
                case "popoludnie": opis += " Pora najwiekszych upalow juz " +
                    "minela, jest jednak jeszcze bardzo goraco. Slonce " +
                    "przekroczylo juz zenit i powoli zaczyna zmierzac ku " +
                    "zachodowi. Przebywanie w jego promieniach nie jest " +
                    "juz tak uciazliwe jak kilka godzin temu."; break;
                case "wieczor": 
                case "pozny wieczor": opis += " Chowa ono teraz powoli " +
                    "swoja tarcze poza horyzont, pozwalajac odpoczac od " +
                    "swych morderczych promieni. Niedlugo zapadnie zmrok, " +
                    "pograzajac wszystko w swoim chlodzie kajacym rozgrzane " +
                    "cialo. Podroz traktem o tej porze jest dosyc wygodna i " +
                    "zmaczmoe mniej meczaca niz podczas upalu."; break;
            }
        }
    }
    else
    
    
/* ================== */
/* glowny opis jesieni*/    

    if (pr == "jesien")
    {
        if (pd == "noc")
        {
            opis += " Panuje wlasnie noc, rozswietlana miejscami przez " +
                "gwiazdy, ktorym udaje sie przebic przez rzadkie chmury " +
                "plynace po niebie. Jest dosyc chlodno, nie to nie do " +
                "konca z powodu temperatury, lecz raczej zimnego, " +
                "przejmujacego wiatru z polnocy. Powietrze przesycone " +
                "jest wilgocia osadzajaca sie na wszystkim w okolicy.";
                
            if (typ == 4)
            {
                opis += " Na trakcie lezy duzo wilgotnych, na wpol gnijacych " +
                    "lisci, na ktorych bardzo latwo sie poslizgnac, tym " +
                    "bardziej, ze jest ciemno.";
            }
        }
        else
            opis+=" Slonce pomimo iz swieci, nie grzeje juz tak mocno " +
                "jak latem. Jesienny wiatr, niezdecydowany jak pogoda, " +
                "co jakis czas unosi w gore pozolkle liscie i zdzbla traw. " +
                "Po niebie przeciagaja nisko lecace chmury, powodujace " +
                "czeste jesienne deszcze."; 

        switch(pora_dnia())
        {
            case "swit": 
            case "wczesny ranek": opis += " Slonce, ktore zdazylo dopiero " +
                "co wzejsc, nie mialo jeszcze czasu, aby rozproszyc chlod " +
                "i wilgoc poranka. Nad otwartymi przestrzeniami dostrzegasz " +
                "niekiedy biale smugi wiszacej nad ziemia mgly. Zapewne " +
                "szybko znikna w promieniach slonca."; break;
                
            case "ranek": opis+=" Pomimo, iz slonce swieci jasno, to nie " +
                "jest w stanie stawic czola chlodowi jesienngo poranka. " +
                "Powoli zaczyna robic sie cieplej, a wilgoc zaczyna znikac " +
                "z powietrza. Niedlugo powinno byc calkiem znosnie."; break;
                
            case "poludnie": opis += " Slonce swieci wysoko na niebie, " +
                "spogladajac poprzez rzadkie chmury na ziemie. Gdy padaja " +
                "na ciebie jego promienie, robi ci sie przyjemnie cieplo.";
                break;
                
            case "popoludnie": opis += " Minelo juz poludnie. Slonce swieci " +
                "czasami na ziemie spoza chmur, ogrzewajac ja swoimi " +
                "promieniami. Pomimo, iz jest w miare cieplo, to gdy " +
                "czujesz przejmujacy, polnocny wiatr, odruchowo odwracasz " +
                "glowe w kierunku slonca."; break;
                
            case "wieczor": 
            case "pozny wieczor": opis += " Czerwona tarcza slonca powoli " +
                "chowa sie poza horyzont, rozswietlajac blado ostatnie " +
                "chwile dnia. Niedlugo nastana kompletne ciemnosci, a " +
                "wraz z ich nadejsciem zapewne jeszcze bardziej sie " +
                "ochlodzi, pomimo, iz nawet teraz nie jest zbyt przyjemnie. " +
                "Najwyzszy czas znalezc sobie jakies wygodne cieple miejsce, " +
                "gdzie bedzie mozna spedzic nadchodzaca noc."; break;
        }

    }
    
    opis += op_koncowy + "\n";
    
    return opis;
}

int go()
{
    int zmeczenie;
    string opis; 
 
    ::go();
    
    if (!TP->query_fatigue())
    {
        write("Starasz sie zmusic do dalszej wedrowki, lecz jestes tak " +
            "potwornie zmeczon" + TP->koncowka("y", "a") + ", iz dalszy " +
            "marsz bez chwili odpoczynku jest ponad twoje mozliwosci.\n");
            
        say(QCIMIE(TP, 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 (TP->query_option(OPT_BRIEF))
        return 0;

    zmeczenie = TP->query_fatigue() * 100 / TP->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" + TP->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" + 
                    TP->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" +
            TP->koncowka("y", "a") + ", pokonujesz szybko kolejne odcinki " +
            "traktu, zastanawiajac sie, co sie kryje poza horyzontem. " +
            "Po pewnym czasie, gdy uwazasz iz przesz" + 
            TP->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" + TP->koncowka("y", "a") + 
              ", poruszasz sie szybko, przechodzac kolejny odcinek traktu."+
              " Po pewnym czasie, gdy uwazasz iz przesz" +
              TP->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" +
              TP->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" + TP->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;

}
