/*
 *  Plik:         l0.c
 *  Autor:        Dushin
 *  Data:         25.09.1998
 *  Last Update:  25.09.1998
 *  Opis:         Korytarz lochow.
 */

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

#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 ("Stoisz na kamiennej posadzce prowadzacej do lochu, "
        + "nierowno pokrytej plytkami. Tu i tam "
        + "walaja sie smieci, ktore gromadza sie najliczniej w katach. Sciany "
        + "wykute sa w skale. Nierowne, porysowane powierzchnie swiadcza, ze "
        + "wykonawcami lochu byli wieznianiowie. W scianach jest wiele szczelin. "
        + "Z jednej, znajdujacej sie tuz na glowa, wyplywa woda. Gromadzi sie "
        + "w rowkach w posadzce i plynie na wschod, by zniknac w malym otworze. "
        + "Od gory dolatuje promyk swiatla, wskazuje wyjscie.\n");

    add_exit (NPATH + "lochy/l1.c", "wschod");
    add_exit (NPATH + "", "gora");

    add_item (({"posadzke","kamienna posadzke"}),"Jest to zwykla posadzka "
        + "wylozona kamiennymi plytkami, ktore ulozone sa w duzych odstepach i "
	+ "tworza rowki. Jest bardzo zanieczyszczona. Smieci pokrywajc jej "
	+ "cala powierzchnie. Od dluzszego czasu nik tu nie sprzatal.\n");
    add_item ("smieci","Pokrywaja cala posadzke. Sa to w wiekszosci "
        + "pozostalosci po podroznikach. Mozna dostrzec resztki jedzenia, "
	+ "skrawki ubran, blizej nie okreslone i bezwartosciowe rzeczy. "
	+ "Z pewnascia duzo przechodzi tedy podroznikow, moze ktorys "
	+ "wrescie by tu posprzatal.\n");
    add_item ("katy","Sa zmora tego pomieszczenia. Jezeli o podloze mozna "
	+ "powiedziec, ze jest zanieczyszczona to katy sa tu smietnikami.\n");
    add_item ("sciany","Sa wykute w skale. Ich porysowane powierzchnie kryja "
        + "wiele szczelin.\n");
    add_item (({"powierzchnie","porysowane powierzchnie"}),"Sa to powierzchnie "
	+ "scian, ktore kryja w sobie wiele zakamarkow i szczelin.\n");
    add_item ("powierzchnie scian","Sa niegladkie i nierowne. Czas obchodzi "
 	+ "sie z nimi lagodnie. Gdyby ich wykonanie bylo o wiele staranniejsze, "
	+ "mozna byloby powiedziec o nich, ze wygladaja dobrze.\n");
    add_item (({"zakamarki","szczeliny"}),"Znajduja sie wszedzie. "
	+ "Pokrywaja cale sciany. "
	+ "Trudno jest je ogladac wszystkie na raz.\n");
    add_item ("szczeline","Tak, ale ktora. Wszedzie sa szczeliny, pokrywaja "
	+ "przeciez obficie sciany.\n");
    add_item ("szczeline nad glowa","Jest to mala szczelina, z ktorej wydostaje "
	+ "sie woda.\n");
    add_item ("rowki","Sa miedzy kamiennymi plytkami, pokrywaja niemal cala "
	+ "posadzke. Gromadza sie w nich smieci.\n");
    add_item ("rowki w posadzce","Kamienne plytki na posadzce tworza rowki. "
	+ "W jednym takim rowku plynie woda.\n");
    add_item (({"otwor","maly otwor"}),"Jest to malej wielkosci otwor, polozony "
	+ "na wschod, tuz przy wejsciu do nastepnego korytarza lochu. Znika w nim "
	+ "sciek.\n");
    add_item (({"promyk","promyk swiatla"}),"Dolatuje od gory. Jest niewielki, ale "
	+ "na pewno wskazuje na wyjscie z tego ponurego lochu.\n");
    add_item ("wyjscie","Idac za promykiem natrafisz na wyjscie. Jest to najmilsza "
	+ "rzecz jaka cie moze spotkac w tym lochu.\n");
    add_item ("wode","Wyplywa ze szczeliny tuz nad glowa, zbiera sie na posadzce, "
        + "miedzy rowkami i pynie na wschod, by zniknac w malym otworze. Zdaje sie "
        + "byc zdatna do picia. ");

    add_cmd_item (({"posadzke","podloge","korytarz"}),"posprzataj","@@sprzata");
    add_cmd_item (({"sciany","sciane"}),"odmaluj","@@odmalowuje");

    set_event_time (50.0, 150.0);
    add_event ("Dobiega co ciebie cichy pisk z glebi lochu. Lekkie poruszenie "
        + "nie trwalo dlugo, ale wywarlo na tobie niemile wrazenie.\n");
    add_event ("Uderza cie chlod wnetrza lochu. Jest nieprzyjemy pomimo tego, "
        + "ze cie orzezwil. Jest tu zbyt ponuro bys mogl sie cieszyc takimi "
        + "rzeczami.\n");
    add_event ("Przejmujaca glucha cisza. Czyz to nie jest straszne w swojej wymowie? "
        + "Najwieksze tragedie poprzedzone byly wlasnie taka cisza. Czujesz lek.\n");
    set_events_on(1);
    set_drink_places("splywajacej ze sciany");
}

string
sprzata()
{
    write ("Widze, ze nie jestes tu na wakacjach. Nie dobrze cos z toba. "
        + "Zastanow sie co robisz, moze jeszcze odmalujesz sciany?\n");
    say (QCIMIE(TP, PL_MIA) + " chce posprzatac posadzke. Uwazaj na "
        + TP->koncowka ("niego","nia") + ", to wariat" 
        + TP->koncowka ("", "ka") + "!\n"); 
    return "";
}

string
odmalowuje()
{
    write ("Chyba cie ten loch opental. A czym chcesz to zrobic. Daj "
        + "sobie spokoj. Unikaj takich sytuacji, by inni nie mieli "
        + "powodu cie zabic.\n");
    say (QCIMIE(TP, PL_MIA) + " teraz chce odmalowac sciany. Czyz to nie "
        + "wspaniale miec przed soba idiot" 
	+ TP->koncowka("e","ke") + ". "
	+ "Pomoz " + TP->koncowka("jemu","jej")
	+ " pozbierac sie. Pewnie ma problemy biedactwo.\n");
    return "";
}

void
init()
{
    ::init();

    init_drink_water();
}

void
drink_effect(string str)
{
    write("Podchodzisz do siany i pijesz odrobine wlody wyplywajacej ze "
        + "sciany. Gasisz czesciowo "
        + "pragnienie lykiem orzezwiajacej wody.\n");
    say (QCIMIE(TP, PL_MIA) + " podchodzi sciany, by "
        + "zaczerpnac lyk wody.\n");
}