/*
 *  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 srodku ciemnego lochu. Stoisz na opadajacym, "
    + "nierownym chodniku, ktory jest udreka dla niedoswiadczonego "
    + "podroznika. Plynie po nim beztrosko sciek, zalewa jego duza "
    + "czesc. Wiele otworow i dziur zniknelo pod jego powierzchnia. "
    + "W scianach sa duze otwory, gdzie kiedys byly drzwi do cel. Teraz "
    + "mozna wejsc tam bez rzadnych ograniczen.\n");

add_exit (NPATH + "lochy/l8.c", "wschod");
add_exit (NPATH + "lochy/l6.c", "zachod");
add_exit (NPATH + "lochy/c8.c", "polnoc");
add_exit (NPATH + "lochy/c9.c", "poludnie");

add_item ("chodnik","Opada na wschod. W duzej czesci zalany jest "
	+ "przez sciek, przez to jest bardzo niebezpieczny.\n");
add_item ("pulapki","Najprawdopodobniej kryja sie w zalanej "
	+ "czesci chodnika. Lepiej unikac ich, bo moga przyniesc "
	+ "nieszczescie.\n");
add_item (({"sciek","wode"}),"Plynie z zachodu na wschod. Zalewa "
	+ "duza czesc chodnika i tym samym przykrywa jego nierownosi.\n");
add_item (({"otwory w chodniku","dziury"}),"Te ktore sa widoczne "
	+ "wygladaja niewinnie. Nie wiadomo jaka niespodzianka czeka "
	+ "na podroznika w czesci chodnika zalanej przez sciek.\n");
add_item ("otwory","Sa wszedzie. Pokrywaja chodnik, a dwa duze "
	+ "widoczne sa w scianach.\n");
add_item (({"duze otwory","otwory w scianach"}),"");
add_item ("drzwi","Trudno ogladac cos, czego nie ma. Kiedys byly tu "
	+ "drzwi, ale teraz pozostaly po nich otwory w scianach.\n");
add_item ("cele","Z tego miejsca nie mozesz je obejrzec. Powinienes do "
	+ "nich wejsc.\n");


    set_event_time (100.0, 250.0);
    add_event ("Slyszysz w oddali trzepotanie skrzydel. Jest ich wiele. Czego "
        + "tu chca, dlaczego nie daja spokoju?\n");
    add_event ("Slyszysz w oddali odglosy walki.\nNie, to sa krzyki zaatakowanych "
        + "przez te stwory. Umrzec rozszarpanym - to musi byc staszna smierc.\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 "";
}