/*
 *  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 gdzies w lochu. Stoisz na suchej czesci chodnika. "
    + "Przed soba widzisz duzy otwor, prowadzacy na dol. Sciek plynie "
    + "pod polnocna sciana i znika w szczelinie tuz pod wschodnia. "
    + "Sciany wyryte sa w skale. Sa puste. Nie maja rzadnych sladow, "
	+ "jakie moznaby spotkac w tego typu miejscach. "
    + "Sklepienie jest plaskie i sciete na wshod. Korytarz sprawia "
    + "wrazenie niedokonczonego.\n");

add_exit (NPATH + "lochy/l10.c", "polnocny-zachod");
add_exit (NPATH + "", "dol");

add_item ("chodnik","Jest czesciowo zalany przez sciek. Poludniowa czesc "
	+ "korytarza jest sucha. W niej znajduje sie duzy otwor.\n");
add_item ("duzy otwor","Jest to otwor w suchej czesci chodnika. Prowadzi "
	+ "na nastepny poziom lochu.\n");
add_item ("sciek","Plynie pod polnocna sciana i wpada do szczeliny. Jest "
	+ "ona dosyc mala, wiec musi miec swoje drugie ujscie. Na pewno w "
	+ "zalanej czesci chodnika.\n");
add_item ("szczeline","Jest we wschodniej scianie. Przypomina raczej otwor, "
	+ "niz typowa szczeline skalna. Wlewa sie do niej sciek.\n");
add_item ("sciany","Nie maja rzadnych szczegolnych cech.\n");
add_item ("wschodnia sciane","Jest niewielkich rozmiarow. Tuz nad szczelina "
	+ "polozona nad chodnikiem przechodzi w sklepienie.\n");
add_item ("sklepienie","W tej czesci lochu jest niskie i mocno opada tak, ze "
	+ "na wschodzie styka sie ze szczelina.\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 "";
}