/*
 * # # # # #  Opisy por roku i dnia w gorach  # # #  Karraluch  # # # # #                  
 * Lekko zmodyfikowany przez Kaesa na potrrzeby Gor Szarych                                                   ---------
 */

inherit "/d/Imperium/std/gory";
#include "kaes.h" 
#include "/d/Imperium/sys/alarm.h"

void gorskie_npce();

string opis_przyrody()
{
 string opis;

/*   Kilka uwag ( takze dla mnie - ku pamieci ):
 *    - Oczywistym jest brak opisow charakterystycznych dla konkretnego
 *      miejsca,... z wyjatkiem widoku na szczyty ( wiecznie osniezone ),
 *      ... i czasem pojawia sie opis roslinnosci,
 *    - Dla terenow polozonych bardzo wysoko zalecam ujednolicenie
 *      opisu, czyli niezmienna, bezlitosna zima,
 *    - Burze pojawiaja sie na razie rutynowo na wiosne i w zimie 
 *      ( mowa o zimie wywolanej pora_roku(), bo w gorach zima to 2/3 roku 
 *      - stad tez "poswiecilem" jesien na chlodniejsze teksty ),
 *    - Z gory przepraszam za styl,... kto chce, niech poprawia  ;] 
 * 
 *     D O K L A D N I E   P R Z E C Z Y T A J  O P I S Y , N I M
 *      W L A C Z Y S Z   J E   D O   S W O J E J    L O K A C J I !
 */

// # # # # # # # # # # # #   W I O S N A

if(pora_roku()=="wiosna")
{
 switch(pora_dnia())
 {
 case "swit":
 opis ="Cala okolica usiana jest plamami swiezej zieleni i puszystej bieli. "
     + "Jednak na wysokich szczytach pozostala nigdy nie znikajaca, gruba "
     + "warstwa sniegu, majacego teraz niebiesko - rozowa barwe. "
     + "Sina mgla snuje sie w dolinach pokrywajac wszystko chlodna "
     + "rosa. ";
 break;
 case "wczesny ranek":
 opis ="Slonce powoli wychylilo sie zza gor. Jaskrawo zlota "
     + "czapa sniegu pokrywa kazdy ze szczytow, lecz na nizej "
     + "polozonych terenach snuja sie cienkie nitki strumykow "
     + "powstalych ze znikajacej zmarzliny. ";
 break;
 case "ranek":
 opis ="Z poludnia nadciagaja ciemne chmury, a zimny wiatr zaciekle "
     + "tnie po calym ciele. Na skale chrzesci powoli topniejacy lod, "
     + "podloze jest sliskie i mokre. Sople wiszace na galeziach robia sie "
     + "coraz krotsze i bardziej lsniace. ";
 break;
 case "poludnie":
 opis ="Na niebie biale obloki ustapily miejsca gestym, stalowym "
     + "chmurom burzowym. Cienkie strugi deszczu opadaja na ziemie, "
     + "targane silnym, okrutnie zimnym gorskim wiatrem. "
     + "Wszystko wokol pociemnialo, a niebo prawie cale stalo sie sine. ";
 break;
 case "popoludnie":
 opis ="Burza rozpetala sie na dobre. W gorach o tej porze roku wszystko "
     + "powinno sie niedlugo uspokoic, lecz na razie lepiej by bylo "
     + "poszukac jakiegos schronienia. Glosny huk co chwila rozchodzi sie "
     + "pomiedzy szczytami. Chyba dostales sie w sam srodek zywiolu! ";
 break;
 case "wieczor":
 opis ="Po niedawnej burzy, wszystko jakby zastyglo. Lekki wiatr niesie "
     + "drobne krople deszczu. Slonce, ledwo wyszlo zza chmur, chowa sie "
     + "za rozblykujacymi ogniscie gorami. Skaly przybraly czarny kolor, "
     + "jedynie na brzegach lsniac niczym zloto. ";
 break;
 case "pozny wieczor":
 opis ="Czarne szczyty rysuja sie niewyraznie na tle szafirowego nieba. "
     + "Z dolin podnosi sie gesta mgla, powodujac iz powietrze stalo sie "
     + "przenikliwie chlodne i wilgotne. Z licznych kryjowek w skalach "
     + "powoli wylaniaja sie nocne zwierzeta, rozchodzac sie we wszystkich "
     + "stronach. Nadchodzi gorska noc zionac przymrozkiem. ";
 break;
 case "noc":
 opis ="Ciemnosci okrywaja cala okolice. Slabe swiatlo ksiezyca przeziera "
     + "przez zamglone niebo, sprawiajac wrazenie, iz jest jeszcze mrozniej, "
     + "niz w rzeczywistosci. Gory, miejscami zasloniete przez mgle, "
     + "robia wrazenie uspionych, czekajacych tylko na nadejscie pierwszych "
     + "promieni slonca, jednak wiesz ze to tylko pozory. Gory w rzeczywistosci "
     + "pelne sa nocnych drapieznikow. ";
 break;
 case "polnoc":
 opis ="Ciemnosci okrywaja cala okolice. Slabe swiatlo ksiezyca przeziera "
     + "przez zamglone niebo, sprawiajac wrazenie, iz jest jeszcze mrozniej, "
     + "niz w rzeczywistosci. Gory, miejscami zasloniete przez mgle, "
     + "robia wrazenie uspionych, czekajacych tylko na nadejscie pierwszych "
     + "promieni slonca, jednak wiesz ze to tylko pozory. Gory w rzeczywistosci "
     + "pelne sa nocnych drapieznikow. ";
 break;
 }
}

// # # # # # # # # # # # #   L A T O

if(pora_roku()=="lato")
{
 switch (pora_dnia())
 {
 case "swit":
 opis ="Zapowiada sie cieply dzien. Slonce powoli wylania sie zza szczytow. "
     + "Mgla szybko opadla, przystrajajac zdzbla traw blyszczaca "
     + "bizuteria z rosy. Biale, poszarpane chmury suna powoli na polnoc, po "
     + "wielobarwnym niebosklonie. Nagie, wysokie szczyty zaczynaja "
     + "lsnic w rozpoczynajacym sie letnim dniu. ";
 break;
 case "wczesny ranek":
 opis ="Powoli robi sie coraz cieplej. Intensywne slonce, pozwala zniesc "
     + "chlodny wiatr, ktory pojawia sie od czasu do czasu. "
     + "Otacza cie soczysta zielen gorkiego krajobrazu. Horyzont przyslaniaja "
     + "czesciowo okryte bialymi oblokami szczyty. ";
 break;
 case "ranek":
 opis ="Na niebie rozgorzalo letnie slonce. Jego jasne promienie rozblyskuja "
     + "na osniezonych szczytach, lecz nadal czujesz chlodny powiew przemykajacy "
     + "pomiedzy skalami. Pomimo, ze slonce nie daje duzo ciepla, odczuwasz "
     + "zasadnicza roznice pomiedzy miejscami zacienionymi i naslonecznionymi. ";
 break;
 case "poludnie":
 opis ="Nawet w samo poludnie panuje tu przenikliwy ziab. Roslinnosc "
     + "poddaje sie bezlitosnemu, gorskiemu wiatrowi. Ze szczytow razi biela "
     + "wieczna zmarzlina, a i stad nie calkiem odeszla zima. Slonce, padajac "
     + "na osniezone miejsca rozblyskuje tak intensywnie, ze musisz mruzyc "
     + "oczy patrzac w tym kierunku. ";
 break;
 case "popoludnie":
 opis ="Wschodnie grzbiety gor powoli zakrywa cien. Na niebo powrocily "
     + "dlugie, postrzepione chmury gnane porywistym wiatrem, zwiastujac "
     + "koniec pogodnego dnia. Znad gor zerwal sie nagly, mrozny wiatr, "
     + "rozwiewajac snieg lezacy na szczytach. ";
 break;
 case "wieczor":
 opis ="Nad zachodnimi szczytami zawisl barwny baldachim z chmur, "
     + "oswietlonych znikajacym powoli za horyzontem sloncem. "
     + "W dolinach cala rozkwitla zielen przybrala wrecz granatowy kolor. "
     + "Silne, lecz rzadkie porywy wiatru niosa male krople deszczu. ";
 break;
 case "pozny wieczor":
 opis ="Zaczyna ciemniec. Deszcz przeniosl sie gdzie indziej, pozostawiajac "
     + "kaluze w skalnych wglebieniach. W lustrach wody odbija sie "
     + "ciemne, fioletowe niebo oraz wysokie, postrzepione szczyty. "
     + "Niektore kaluze zaczynaja juz zamarzac w zetknieciu z mroznym, "
     + "nocnym powietrzem. ";
 break;
 case "noc":
 opis ="Jest letnia, acz bardzo zimna noc. Przyslaniany chmurami ksiezyc "
     + "od czasu do czasu oswietla postrzepione pasma gor, rozlozyste doliny "
     + "i ciemne przelecze. Jasna gwiazda nad horyzontem wskazuje polnoc. "
     + "Osniezone miejsca rozblyskuja czasem w srebrnych promieniach "
     + "ksiezyca, rozswietlajac ta gorska noc. ";
 break;
 case "polnoc":
 opis ="Jest letnia, acz bardzo zimna noc. Przyslaniany chmurami ksiezyc "
     + "od czasu do czasu oswietla postrzepione pasma gor, rozlozyste doliny "
     + "i ciemne przelecze. Jasna gwiazda nad horyzontem wskazuje polnoc. "
     + "Osniezone miejsca rozblyskuja czasem w srebrnych promieniach "
     + "ksiezyca, rozswietlajac ta gorska noc. ";
 break;
 }
}

// # # # # # # # # # # # #   J E S I E N

if(pora_roku()=="jesien")
{
 switch (pora_dnia())
 {
 case "swit":
 opis ="Jasniejace na wschodzie niebo zwiastuje nadejscie dnia. "
     + "Niebieskie szczyty kroluja nad budzaca sie do zycia "
     + "gorska kraina. Wszystko w nocy zostalo pokryte sniegiem. "
     + "Z powodu rzadkiej roslinnosci trudno jest tutaj rozroznic "
     + "kolejne pory roku, jednak jest juz bardzo zimno, nawet jak na gory. ";
 break;
 case "wczesny ranek":
 opis ="Blada tarcza slonca widnieje ponad zamglonymi szczytami. "
     + "Wieje mrozny, porywisty wiatr zrywajacy ostatnie "
     + "liscie z drzew i krzewow. Cala okolica jest wilgotna, miejscami "
     + "widzisz zamarzniete kaluze, oszronione, pokraczne roslinki, "
     + "oraz niewielkie polacie sniegu. ";
 break;
 case "ranek":
 opis ="Teren pokryla mieszanina opadlych lisci i sniegu. "
     + "Geste, poszarzale chmury leniwie suna po niebosklonie, gubiac "
     + "po drodze drobne platki sniegu. Jest bardzo zimno, wieje mrozny "
     + "wiatr z polnocy, przechodzacy jakby na wylot cale twoje cialo. ";
 break;
 case "poludnie":
 opis ="Nie przykryta sniegiem roslinnosc przybrala jesienne kolory. "
     + "Gole, ciemne pnie drzew stercza ze skal nadajac krajobrazowi "
     + "posepny wyraz. Bure niebo sypie nieustannie sniegiem. Silny wiatr "
     + "niesie snieg z wyzszych partii gor, przyslaniajac co chwile "
     + "fragmenty gor. ";
 break;
 case "popoludnie":
 opis ="Nad osniezonymi szczytami mkna ciezkie chmury. Niebo na wschodzie "
     + "jest ciemne niczym najglebsze otchlanie oceanu. "
     + "Mroz sprawil, ze ziemia stala sie twarda niczym skala. Miejscami widzisz "
     + "lezace zamarzniete kupki lisci, czesciowo przysypane sniegiem. "
     + "Snieg chwilowo nie sypie, jednak jest to prawdopodobnie tylko krotka "
     + "przerwa. ";
 break;
 case "wieczor":
 opis ="Ciemnosci zalegaja w dolnych partiach gor. Krotki dzien dobiega "
     + "konca. Kleby mgly zaczynaja snuc sie pomiedzy gorskimi grzbietami. "
     + "Szybko zrobilo sie bardzo zimno, przenikajac twe cialo do szpiku "
     + "kosci. Wiatr momentami cichnie, po chili atakujac z jeszcze wieksza sila. ";
 break;
 case "pozny wieczor":
 opis ="Wiatr wzmogl sie i zaczelo sypac sniegiem. Cala okolica, "
     + "w srebrnej poswiacie ksiezyca wyglada rownie zlowieszczo, "
     + "co spokojnie, tylko czarne skaly odznaczaja sie na tym tle. "
     + "Miejscami widzisz nocne zwierzeta wychodzace ze swoich kryjowek "
     + "na poszukiwanie swoich ofiar. ";
 break;
 case "noc":
 opis ="Panuje mroczna, zimna noc. Slabo widoczne gwiazdy poblyskuja "
     + "na atramentowym niebie. Ksiezyc jest dosyc nisko, nie dajac zbyt wiele swiatla. "
     + "Silny wiatr wyje przeciagle w szczelinach skal, atakujac twoja "
     + "twarz tysiacem lodowych igielek niesionych z najwyzszych partii gor. ";
 break;
 case "polnoc":
 opis ="Panuje mroczna, zimna noc. Slabo widoczne gwiazdy poblyskuja "
     + "na atramentowym niebie. Ksiezyc jest dosyc nisko, nie dajac zbyt wiele swiatla. "
     + "Silny wiatr wyje przeciagle w szczelinach skal, atakujac twoja "
     + "twarz tysiacem lodowych igielek niesionych z najwyzszych partii gor. ";
 break;
 }
}
  
// # # # # # # # # # # # #   Z I M A

if(pora_roku()=="zima")
{
 switch (pora_dnia())
 {
 case "swit":
 opis ="Pokryte sniegiem szczyty powoli ogarnia rozowa luna. "
     + "Biale, klebiaste obloki suna na polnoc. Skaly przykryte "
     + "wielkimi zaspami stracily na swej srogosci. Jest niezwykle zimno. "
     + "Na calym ciele czujesz uroki obecnej pory roku, przenikliwy wiatr "
     + "niosacy spore kawalki lodu, gleboki snieg utrudniajacy chodzenie. ";
 break;
 case "wczesny ranek":
 opis ="Na drzewach wisza ogromne sople. Niebo poszarzalo, a na wschodzie "
     + "rozblyslo wschodzace slonce, lecz w dolinach nadal panuje polmrok. "
     + "Z podluznych chmur lekko zaproszylo sniegiem. Wiatr jest bardzo slaby, "
     + "jednak w kazdej chwili moze sie nasilic. Snieg "
     + "miejscami lsni delikatnie, jakby w oczekiwaniu na nowy dzien. ";
 break;
 case "ranek":
 opis ="Stalowe niebo caly czas raczy ziemie sniegiem. Duze, jasne platki "
     + "wiruja w powietrzu popychane mroznym wiatrem, po czym delikatnie "
     + "spadaja na ziemie. Wiatr, przybierajac czasem na sile przenosi "
     + "snieg z miejsca na miejsce tworzac coraz to nowe zaspy. ";
 break;
 case "poludnie":
 opis ="Ziemie zalega snieg po kolana, lecz wciaz nie przestaje sypac. "
     + "Widocznosc zmalala do tego stopnia, ze dostrzegasz jedynie "
     + "zarysy na pietnascie krokow stad. Zrobilo sie wyjatkowo ciemno, "
     + "slonce nie przeswituje przez gruba warstwe chmur jak i przez "
     + "gesto sypiacy snieg. ";
 break;
 case "popoludnie":
 opis ="Ciemne chmury zalegaja nad twoja glowa. "
     + "Chlodny wiatr dmie niemilosiernie, proszac klujacymi "
     + "platkami sniegu. Gdzies niedaleko slyszysz przeciagle "
     + "wycie glodnych wilkow. Na sniegu nie widzisz zadnych sladow, jednak "
     + "przy tak sypiacym sniegu trzeba zaledwie kilka minut aby wszystko zasypac. ";
 break;     
 case "wieczor":
 opis ="Wiatr nasila sie, zasypujac wszystko sniegiem. Ten zas "
     + "zaczyna tworzyc ogromne zaspy utrudniajace podroz. "
     + "Przejmujacy chlod mobilizuje jednak do poszukiwania jakiegos "
     + "schronienia. Zapowiada sie wielka sniezyca. ";
 break;
 case "pozny wieczor":
 opis ="Potworna zamiec sniezna utrudnia orientacje. Szalejacy wiatr "
     + "zwala z nog, ciskajac w ciebie kleby sniegu. Lodowate platki sniegu "
     + "wciskaja sie w kazda szczeline w twoim ubraniu, poglebiajac tylko "
     + "potworne zimno. Ostry mroz pokryl skalne sciany sporymi, lodowymi "
     + "plaskorzezbami. Jest juz calkiem ciemno, nie widzisz nawet "
     + "kawalka wieczornego, zimowego nieba. ";
 break;
 case "noc":
 opis ="Zamiec ustala, lecz ciemnosci nie ustapily. Wokol pietrza sie "
     + "potezne zaspy. Snieg skrzypi pod nogami, a co jakis czas "
     + "trzaska zerwana galaz, przyniesiona tu silnym wiatrem. "
     + "Nieporownywalny chlod ogarnal wysokie pietra gor. Spomiedzy chmur "
     + "momentami przeswituja pojedyncze gwiazdy, a ksiezyc jest schowany "
     + "za gorskimi szczytami. ";
 break;
  case "polnoc":
 opis ="Zamiec ustala, lecz ciemnosci nie ustapily. Wokol pietrza sie "
     + "potezne zaspy. Snieg skrzypi pod nogami, a co jakis czas "
     + "trzaska zerwana galaz, przyniesiona tu silnym wiatrem. "
     + "Nieporownywalny chlod ogarnal wysokie pietra gor. Spomiedzy chmur "
     + "momentami przeswituja pojedyncze gwiazdy, a ksiezyc jest schowany "
     + "za gorskimi szczytami. ";
 break;
 }
}

return opis;
}

void
gorskie_npce()
{
    switch(random(5)+1)
    {
        case 1:
        case 2:
        // Nic
        break;
        case 3:
        case 4:       
        // Kozice
        switch(random(2))
        {
            case 0:
            dodaj_npca(NPATH + "kozica.c"); 
            case 1:
            dodaj_npca(NPATH + "kozica.c"); 
            break;
        }           
        break;    
        case 5:
        switch(random(2)+1)
        {
            case 1:
            // Niedzwiedzie
            dodaj_npca(NPATH + "niedzwiedz.c",({WIOSNA,LATO,JESIEN}));
            switch(random(4))
            {
                case 0:
                dodaj_npca(NPATH + "niedzwiadek.c",({WIOSNA,LATO,JESIEN}));
                case 1:
                dodaj_npca(NPATH + "niedzwiadek.c",({WIOSNA,LATO,JESIEN}));
                case 2:
                dodaj_npca(NPATH + "niedzwiadek.c",({WIOSNA,LATO,JESIEN}));
                case 3:
                dodaj_npca(NPATH + "niedzwiadek.c",({WIOSNA,LATO,JESIEN}));
                break;
            }
            break;
            case 2:
            // Wilki
                dodaj_npca(NPATH + "wilk.c",NOCE);
                dodaj_npca(NPATH + "wilk.c",NOCE);
                dodaj_npca(NPATH + "wilk.c",NOCE);
                dodaj_npca(NPATH + "wilk.c",NOCE);
                dodaj_npca(NPATH + "wilk.c",NOCE);
            break;
        }
        break;
    }
}      

void
create_gory_szare()
{
}

void
create_gory_room()
{
  create_gory_szare();
  gorskie_npce();
}