/*
 *  Plik:         l2.c
 *  Autor:        Dushin
 *  Data:         25.08.1998
 *  Last Update:  25.08.1998
 *  Opis:         Korytarz lochow.
 */

inherit  "/d/Imperium/lakshmi/Witt/std/lochy_std.c";

#include "/d/Imperium/lakshmi/Witt/zamek.h"
#include "/d/Imperium/sys/alarm.h"

void
create_lochy_room()
{

add_prop (ROOM_I_LIGHT, 1);
add_prop (ROOM_I_INSIDE, 1);

set_short ("Korytarz lochow");
set_long ("Jestes gdzies w lochu. Wszedzie jest tu brudno. Chodnik jest pelen "
    + "zanieczyszczen. Jest tak nierowny, ze latwo mozesz zlapac sie "
    + "w jakas pulapke i skaleczyc. Tu zaczyna opadac. Ze szczeliny na srodku "
    + "korytarza wydostaje sie woda. Formuluje sciek i plynie w rowku tuz pod "
    + "poludniowa sciana na wschod. Sklepienie staje sie coraz wyzsze, jakby mialo cos"
    + "pomiescic. Sciany, zbudowane z kamiennych blokow, sa gladkie. Na polnocy "
    + "i poludniu wbudowane sa w nie drzwi, choc nie przypominaja ich dzisiaj.\n");

add_exit (NPATH + "lochy/l5.c", "wschod");
add_exit (NPATH + "lochy/l1.c", "zachod");
add_exit (NPATH + "lochy/c2.c", "polnoc");
add_exit (NPATH + "lochy/c3.c", "poludnie");

add_item ("brud","Pokrywa gruba warstwa sciany i chodnik.\n");
add_item ("zanieczyszczenia","Sa pochodzenia organicznego. Najwiecej jest tu "
	+ "odchodow. Sa takze smieci pozostawione przez wiezniow, lecz teraz "
	+ "trudno okreslic do czego sluzyly.\n");
add_item ("pulapke","Nie mozesz jej dostrzec. Nawet nie wiesz gdzie szukac jej. "
	+ "Moze jest nia najblizsza szczelina w srodku korytarza, moze jest "
	+ "ukryta. Musisz uwazac.\n");
add_item ("szczeline","Tak, ale ktora. Jest ich tu wiele, a przegladac jedna "
	+ "po drugiej zajeloby ci duzo czasu.\n");
add_item ("szczeliny","Pokrywaja caly chodnik. Trudno powiedziec jakiej sa "
	+ "glebokosci i co w sobie kryja.\n");
add_item ("szczeline w srodku korytarza","Jest to waska szczelina o wyrobionych "
	+ "krawedziach. Wyplywa z niej woda.\n");
add_item (({"wode","sciek"}),"Plynie w rowku tuz pod poludniowa sciana. Zabiera "
	+ "z saba wiele zanieczyszczen i brudu, dlatego jest coraz brudniejszy.\n");
add_item (({"rowek","rowek pod poludniowa sciana"}),"Jest to dlugi, ciagnacy sie "
	+ "pod poludiowa sciana przez caly korytarz rowek. Plynie w nim sciek.\n");
add_item ("sklepienie","Jest coraz wyzsze. Zastawiajace jest co bedzie krylo "
	+ "na wschodzie.\n");
add_item ("sciany","Sa zbudowane z kamiennych blokow. Sa gladkie i bardzo "
	+ "wytrzymale. W tej czesci korytarza maja male otworki na wysokosci "
	+ "oczu.\n");
add_item (({"male otworki","otworki"}),"Sa wydrazone w scianach, sluzyly "
	+ "do zagladania do wieznia z roznych miejsc.\n");
add_item ("kamienne bloki","Tworza sciany od cel. Nic nie jest wstanie ich "
	+ "ruszyc, ani obalic.\n");
add_item ("drzwi","Byly to porzadnej konstrukcji drzwi. Razem ze sciana tworzyly "
	+ "beriere nie do przejscia. Teraz jednak sa w okropnym stanie. Ich masywna "
	+ "konstrukcja nie wystrzymala pod naporem jakiejs ogromnej sily. Zawiasy, na "
	+ "ktorych byly zawiszone sa wigiete. Zastanawiajace jest to, co moglo "
	+ "spowodowac takie zniszczenia.\n");

add_cmd_item ("odchody","obejrzyj","@@oglada");

set_event_time (50.0, 200.0);
add_event ("Slyszysz w oddali trzepot skrzydel. Jakis dziwny zwierz "
    + "zamieszkuje te lochy.\n");
add_event ("Dobiega do ciebie cichy pisk z oddali. Nie wiesz skad "
    + "dochodzi, ale cie przeraza.\n");
set_events_on(1);

add_cmd_item ("sie wody","napij","@@pije_wode");
add_cmd_item ("sie scieku","napij","@@pije_sciek");

}

string
pije_wode()
{
    write ("Jezeli chcesz sie to zrobic to musisz sie napic scieku.\n");
    say (QCIMIE(TP, PL_MIA) + " pochyla sie, aby napic sie scieku, ale rezygnuje. "
		+ "Dobrze, bo moglby od niego zachorowac.\n");
    return "";
}

string
pije_sciek()
{
    write ("Nie mozesz tego uczynic w tym miejscu. Poszukaj zrodla, z ktorego "
        + "moglbys sie napic bez uszerbku dla zdrowia.\n");
    say (QCIMIE(TP, PL_MIA) + " pochyla sie, aby napic sie scieku, ale rezygnuje. "
		+ "Dobrze, bo moglby od niego zachorowac.\n");
    return "";
}



string
oglada()
{
    write ("Sa to zwyczajne odchody zwierzat zamieszkujacych ten loch. Az dziwne, "
	+ "ze cie interesuja.\n");
    say (QCIMIE(TP, PL_MIA) + " oglada z zaciekawieniem odchody. Daj" 
	+ TP->koncowka("mu","jej")
        + " cos do jedzenia, wspomoz biedactwo.\n");
    return "";
}