inherit "d/Imperium/std/las.c";

#include "las.h"
#include "/d/Imperium/sys/alarm.h"

string 
opis_lasu ()
	{
	string las = "";

	/* Opis lasu zima */

	if (pora_roku () == "zima") las += "Caly las pograzony jest w " +
		"ciszy,  ktora przerywa tylko chrzest zmrozonego sniegu " +
		"pod Twymi stopami. ";
	if (pora_roku () == "zima" && pora_dnia () == "swit") las += "Gwiazdy juz " +
		"zgasly, lecz ciagle daleko do wschodu slonca. Wszystko " +
		"pograzylo sie w szarosci, w ktorej z trudem rozrozniasz " +
		"pojedyncze drzewa ";
	if (pora_roku () == "zima" && pora_dnia () == "wczesny ranek") las += "Pierwsze promienie " +
		"slonca odbijaja sie  w soplach zwisajacych z galezi, " +
		"snieg rozblyskuje tysiacami kolorowych ognikow. ";
	if (pora_roku () == "zima" && pora_dnia () == "ranek") las += "Coraz intensywniejsze " +
		"promienie slonca powoli biora gore nad zimowa aura. Mimo trzaskajacego " +
		"mrozu jest jakby cieplej. Po soplach zwisajacych z drzew sciekaja " +
		"pojedyncze krople wody. ";
	if (pora_roku () == "zima" && pora_dnia () == "poludnie") las += "Oslepia Cie swiatlo " +
		"odbijajace sie we wszechobecnej bieli. ";
	if (pora_roku () == "zima" && pora_dnia () == "popoludnie") las += "Wydaje sie ze jeszcze " +
		"temu swiat tonal w oslepiajacym blasku slonca. " +
		"Teraz widzisz wsrod drzew pierwsze, krwawe przeblyski " +
		"zachodzacego slonca. Krotki, zimowy dzien zmierza ku " +
		"koncowi. ";
	if (pora_roku () == "zima" && pora_dnia () == "wieczor") las += "Ostatnie przeblyski " +
		"slonca budza do zycia dlugie cienie. Nie mozesz oprzec " +
		"sie mysli, ze ktos lub cos obserwuje Cie zza drzew. ";
	if (pora_roku () == "zima" && pora_dnia () == "pozny wieczor") las += "Niemal obijasz sie " +
		"o drzewa, probujac zbadac najblizsze otoczenie. Slonce przed chwila skrylo " +
		"sie za horyzontem, pozostawiajac swiat na lasce ciemnosci. ";
	if (pora_roku () == "zima" && pora_dnia () == "noc") las += "Zimne " +
		"swiatlo gwiazd spowija go swa niesamowita blekitno - " +
		"szara poswiata. ";
	if (pora_roku () == "zima" && pora_dnia () == "polnoc") las += "Zimne " +
		"swiatlo gwiazd spowija go swa niesamowita blekitno - " +
		"szara poswiata. ";

	/* Opis lasu wiosna */

	if (pora_roku () == "wiosna") las += "Miejscami leza jeszcze platy " +
		"brudnego sniegu, ale zimowy krajobraz powoli ustepuje " +
		"miejsca budzacej sie do zycie przyrodzie. ";
	
	if (pora_roku () == "wiosna" && pora_dnia () == "swit") las += "Ciemnosc nocy " +
		"ustepuje miejsca porannej szarowce. Wyglada to, jaby otaczaly Cie kleby " +
		"brudnej, wilgotnej waty. Wilgoc i chlod przenikaja Twoje cialo i " +
		"budza dreszcze, a slonce jest ciagle zbyt slabe, by dac choc troche " +
		"ciepla. ";

	if (pora_roku () == "wiosna" && pora_dnia () == "wczesny ranek") las += "Slonce " +
		"podnosi sie nad horyzont, jednak jest zbyt slabe aby choc " +
		"troche rozgrzac Twoje przemarzniete cialo. ";

	if (pora_roku () == "wiosna" && pora_dnia () == "ranek") las += "Slonce stoi juz " +
		"wysoko, ale ciagle panuje rzeski chlod, wsrod drzew " +
		"zielenia sie pierwsze liscie krzewow, kwitna wiosenne " +
		"kwiaty. ";

	if (pora_roku () == "wiosna" && pora_dnia () == "poludnie") las += "W oddali slychac " +
		"spiew ptakow, slonce choc ciagle blade, przygrzewa juz " +
		"calkiem mocno. "; 

	if (pora_roku () == "wiosna" && pora_dnia () == "popoludnie") las += "Ptaki, w koncu " +
		"rozbudzone cieplem wiosennego slonca, wypelniaja las szalonymi trelami. " +
		"Przez ich zgielk przebijaja sie odglosy wiekszych zwierzat. Wszystkie " +
		"chca do ostatniej chwili wykorzystac pierwsze cieple dni. "; 

	if (pora_roku () == "wiosna" && pora_dnia () == "wieczor") las += "Dookola robi sie " +
		"coraz ciszej,dlugie cienie drzew ostro rysuja sie na " +
		"ziemi. Slonce juz prawie calkiem zniknelo za horyzontem. "; 

	if (pora_roku () == "wiosna" && pora_dnia () == "pozny wieczor") las += "Zapadla zupelna " +
		"cisza, mimo mroku bez trudnosci widzisz cienie przemykajace miedzy drzewami. " +
		"To ostatni, zapoznieni mieszkancy lasu kryja sie w swoich norach przed " +
		"groza nocy. "; 

	if (pora_roku () == "wiosna" && pora_dnia () == "noc") las += "Chlod wiosennej nocy " +
		"przypomina Ci ze do lata ciagle daleko. Zimno przenika cie  " +
		"do szpiku kosci, marzysz o cieplym miejscu na nocleg. ";

	if (pora_roku () == "wiosna" && pora_dnia () == "polnoc") las += "Chlod wiosennej nocy " +
		"przypomina Ci ze do lata ciagle daleko. Zimno przenika cie  " +
		"do szpiku kosci, marzysz o cieplym miejscu na nocleg. ";

	/* Opis lasu latem */

	if (pora_roku () == "lato") las += "Letni las odkrywa cale swoje bogactwo, zewszad " +
		"dochadza cie odglosy drobnych zwierzat buszujacych miedzy " +
		"drzewami. ";

	if (pora_roku () == "lato" && pora_dnia () == "swit") las += "Widzisz las uchwycony " +
		"na granicy snu i jawy. Slonce ciagle lezy gleboka pod horyzontem, jednak " +
		"blade swiatlo ukazuje las rownie wyraznie jak za dnia. Martwo stojace " +
		"powietrze nie porusza nawet najdrobniejszych lisci, zupelna pustka jest " +
		"przerazajaca, a niesamowite wrazenie uzupelnia kompletna cisza. ";
	
	if (pora_roku () == "lato" && pora_dnia () == "wczesny ranek") las += "Cieszysz sie " +
		"rzeskim chlodem poranka i obserwujesz przyrode leniwie " +
		"budzaca sie w  pierwszych promieniach slonca. ";

	if (pora_roku () == "lato" && pora_dnia () == "ranek") las += "Powoli rozwijaja sie " +
		"kielichy kwiatow. Budza sie owady, od czasu do czasu " +
		"widzisz dostojnie lecacego ogromnego, kolorowego motyla. ";

	if (pora_roku () == "lato" && pora_dnia () == "poludnie") las += "Slonce zalewa swiat " +
		"falami goraca na szczescie geste korony chronia przed " +
		"najdotkliwszym upalem. Zycie lasu zamarlo. ";

	if (pora_roku () == "lato" && pora_dnia () == "popoludnie") las += "Najgorsza fala upalu " +
		"juz zelzala, przyroda powraca do zycia z poludniowego odretwienia. Jednak " +
		"w powietrzu ciagle wisi nastroj rozleniwienia, zmeczenie goracem nie daje " +
		"latwo za wygrana. ";

	if (pora_roku () == "lato" && pora_dnia () == "wieczor") las += "Krwawo zachodzace " +
		"przeswieca przez galezie drzew i rzuca na ziemie " +
		"fantastyczne wzory. ";

	if (pora_roku () == "lato" && pora_dnia () == "pozny wieczor") las += "Mimo poznej " +
		"pory zycie lasu ciagle nie zamiera. Zewszad dochadza odglosy zwierzat " +
		"korzystajacych z ostatnich promieni swiatla, rozproszonego w nocnym, " +
		"rzeskim powietrzu. ";

	if (pora_roku () == "lato" && pora_dnia () == "noc") las += "Noc wydaje sie niczym " +
		" nie roznic od dnia. Drzewa jasno oswietlone swiatlem " +
		"gwiazd wyraznie odcinaja sie od granatowego nieba. ";

	if (pora_roku () == "lato" && pora_dnia () == "polnoc") las += "Noc wydaje sie niczym " +
		" nie roznic od dnia. Drzewa jasno oswietlone swiatlem " +
		"gwiazd wyraznie odcinaja sie od granatowego nieba. ";

	/* Opis lasu jesienia */

	if (pora_roku () == "jesien") las += "Jesien odcisnela swe pietno " +
		"na otaczajacym Cie lesie, nie slychac juz ptakow, znikly " +
		"gdzies kolorowe kwiaty, na krzewach wisza ostatnie, zolte " +
		"liscie. ";

	if (pora_roku () == "jesien" && pora_dnia () == "swit") las += "Nieprzenikniona " +
		"ciemnosc nocy powoli przechodzi w pelen polcieni poranek. " +
		"Miedzy drzewami podnosza sie pojedyncze obloki mgly, by powoli laczyc " +
		"sie w coraz wieksze skupiska. ";
	
	if (pora_roku () == "jesien" && pora_dnia () == "wczesny ranek") las += "Gesta jak " +
		"mleko mgla przeslania dalsze drzewa. Chlod i wilgoc przenikaja " +
		"Cie do szpiku kosci. ";

	if (pora_roku () == "jesien" && pora_dnia () == "ranek") las += "Przez galezie " +
		"niesmialo przebija sie slonce. Podnoszaca sie mgla powoli " +
		"odslania widok w glab lasu. ";

	if (pora_roku () == "jesien" && pora_dnia () == "poludnie") las += "Od czasu do czasu " +
		"widzisz drobne zwierzeta myszkujace w poszukiwaniu " +
		"zapasow na zime. ";


	if (pora_roku () == "jesien" && pora_dnia () == "popoludnie") las += "Gdzies wysoko, " +
		"na wierzcholkach drzew zbieraja sie do odlotu chmary ptakow. Zgielk ich " +
		"sejmikow zaglusza wszystkie dzwieki lasu. Co chwile stada wrobli " + 
		"przeslaniaja niebo. ";

	if (pora_roku () == "jesien" && pora_dnia () == "wieczor") las += "Slonce " +
		"blyskawicznie chyli sie ku zachodowi, w zapadajacym mroku " +
		"potykasz sie o wystajace korzenie. ";

	if (pora_roku () == "jesien" && pora_dnia () == "pozny wieczor") las += "Calkowity " +
		"mrok blyskawicznie objal wladze nad lasem. Resztki ciepla dnia powoli uchodza " +
		"w ciemnosc, wydajac Cie na pastwe chlodnego mroku. ";

	if (pora_roku () == "jesien" && pora_dnia () == "noc") las += "Dojmujacy chlod " +
		"zapowiada zblizajaca sie zime. W ciemnosci z trudem " +
		"odrozniasz najblizsze drzewa. ";

	if (pora_roku () == "jesien" && pora_dnia () == "polnoc") las += "Dojmujacy chlod " +
		"zapowiada zblizajaca sie zime. W ciemnosci z trudem " +
		"odrozniasz najblizsze drzewa. ";

	return las;
	}
int
przez_las ()
	{
	int koszt = 0;
	write ("Galezie bija Cie po twarzy, gdy klnac na czym swiat stoi " +
		"przedzierasz sie przez las.\n" );
	return koszt;
	}

string
jaki()
{
    switch(random(10))
    {
        case 0:
        return(NPATH + "niedzwiedz.c");
        case 1:
        case 2:
        return(NPATH + "sarna.c");
        case 3:
        case 4:
        case 5:
        return(NPATH + "lis.c");
        case 6:
        case 7:
        case 8:
        case 9:
        return(NPATH + "zajac.c");
   }
}        

void
create_kreutz_las()
{
}

void
create_las_room()
{
    create_kreutz_las();
    add_item(({"las","drzewa","zarosla","krzewy"}),
        "Gesty las rozposciera sie na niezmierzonych obszarach Imperium. Jest"+
        " ostoja setek gatunkow dzikich zwierzat i roslin. Niezaleznie "+
        "od pory roku las wyglada zawsze pieknie i tajemniczo. No, chyba ze sie"+
        " jest krasnoludem.\n");

    if(!random(5))
    {
        return;
    }    

    dodaj_npca(jaki());
    if(!random(5)) dodaj_npca(jaki());

}