/*
 *  Plik:         l.c
 *  Autor:        Dushin
 *  Data:         16.08.1998
 *  Last Update:  18.08.1998
 *  Opis:         Prototyp.
 */

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 na rozwidleniu w lochu. Wieksza jego czesc biegnie na "
    + "poludnie. Jest to duzy korytarz. Chodnik wyrownuje sie i w dalszej czesci "
	+ "pokryty jest plytkami. Nie ulatwia to chodzenia, ale lepiej wyglada. "
    + "W scianie jest wykute wejscie do drugiego korytarza. Jest niewielkie, "
    + "lecz latwo sie w nim przecisnac. Polozone jest ponizej poziomu chodnika, "
    + "dlatego tam kieruje sie sciek. Teraz przybiera duzych rozmiarow podziemna, "
    + "cuchnaca rzeczke.\n");

add_exit (NPATH + "lochy/l10.c", "wschod");
add_exit (NPATH + "lochy/l8.c", "polnoc");
add_exit (NPATH + "lochy/l11.c", "poludnie");

add_item ("plytki","Pokrywaja poludniowa czesc chodnika.\n");
add_item ("sciany","Sa tu dwie sciany. Jedna jest wykuta w skale i wyglada "
	+ "jakby miala za chwile runac. "
	+ "Druga jest utworzana przez kamienny blok. Jest rowna, wygladzona. "
	+ "Wyglada na bardzo wytrzymala, jest przeciwienstwem pierwszej sciany.\n");
add_item ("sciane", "Sa tu dwie sciany, wschodnia i zachodnia. Musisz sie "
	+ "zdecydowac.\n");
add_item ("zachodnia sciane","");
add_item ("wschodnia sciane","Jest nierowna, wykuta w skale. Po srodku jej "
	+ "znajduje sie wejscie do opadajacego chodnika. Tam tez znika sciek.\n");
add_item ("drugi korytarz","Nie mozesz go stad zobaczyc. Wyrwa we wschodniej "
	+ "scianie prowadzi do niego.\n");
add_item ("pierwszy korytarz","Nie mozesz go stad zobaczyc. Jest na poludnie. "
	+ "Prowadzi do niego okazaly chodnik pokryty plytkami.\n");
add_item ("wode","Nigdzie tu nie widzisz wody. Jest tylko ten cuchnacy sciek.\n");
add_item (({"sciek","podziemna rzeczke","rzeczke"}),"Jest to okropny, wielki sciek. "
	+ "Wrozlewa sie po chodniku, zbiera z soba zanieczyszczenia i plynie na "
	+ "na wschod.\n");

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 "";
}