/*
 *  Plik:         c4.c
 *  Autor:        Aleksy
 *  Data:         15.08.1998
 *  Last Update:  16.08.1998
 *  Opis:         Cela wiezienna.
 */
   
inherit "/d/Imperium/lakshmi/Witt/std/lochy_std.c";

#include "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 ("Cela wiezienna");
set_long ("Znajdujesz sie w niewielkim pokoju. Jest tu dosyc "
    + "ciemno. Wokol widzisz tylko smierdzace sciany. "
    + "Jest tu bardzo brudno i czujesz okropny smrod "
    + "dochodzacy od rozpadajacych sie cial szczurow. "
    + "Na podlodze oproc "
    + "smieci i kosci leza kawalki martwych szczurow. "
    + "Pewnie walka o jedzenie jest w lochach jedynym sposobem "
    + "przetrwania. W jednym z rogow tej celi zauwazasz dziure "
    + "dosyc duzych rozmiarow. Mozesz tylko sobie "
    + "wyobrazic jaki musi byc szczur, by zrobic sobie taki "
    + "otwor. Na sama mysl o tym juz robi ci sie niedobrze. "
    + "Rozgladasz sie nerwowo, "
    + "ale nie widzisz tu zadnego az tak wielkiego "
    + "szczura. Moze lepiej juz idz stad, bo kto wie co wyskoczy "
    + "za chwile z tej dziury. A chyba nie chcesz wiedziec.\n");

add_exit (NPATH + "l5.c", "poludnie");

add_item (({"sciane", "sciany"}),
      "Sa to brudne i smierdzace sciany. "
    + "Chyba tylko pajaki moga na nich zyc. "
    + "Na jednej ze scian wlasnie zauwazasz dosyc duza pajeczyne.\n");
add_item (({"dziure", "otwor"}),
      "Jest to dosyc duzych rozmiarow dziura. Widac, ze ktos musial "
    + "posiadac dosyc mocne kly by ja zrobic. Wlasnie kolo niej "
    + "lezy najwiecej kawalkow cial. Moze lepiej do niej nie "
    + "zagladac, bo kto wie co stad wyskoczy na ciebie.\n"); 
add_item (({"brud", "smieci"}), 
      "Szczatki, kosci i ciala. Tylko nie wiesz czyje "
    + "to wszystko. Patrzysz na siebie. Uff, chyba nie twoje.\n"); 
add_item (({"cialo", "ciala"}),
      "Sa to ciala szczurow, no moze tylko "
    + "troche wieksze niz ciala zwyklych szczurow.\n");
add_item (({"kosci", "kosc"}),
      "Zwykle kosci jakich pelno w lochach. Zauwazasz "
    + "tylko dosc spora liczbe duzych kosci, pewnie sa ludzkie. "
    + "A moze i jakiejs innej rasy. Nie jestes pewny co do tego.\n");
add_item (({"szczatki", "kawalki"}),
      "Widzisz przed soba pozostalosci od kogos. "
    + "Nawet sie nie zastanawiaj od kogo, tylko uciekaj stad jak "
    + "najszybciej.\n");  

add_cmd_item (({"do dziury", "do otworu"}), "zajrzyj", "@@dziura");
add_cmd_item ("powietrze", "powachaj", "@@powietrze");

set_event_time (10.0, 200.0);
add_event ("Slyszysz jak cos sie poruszylo w ciemnym zakatku celi. "
    + "Moze to wlasnie ten ogromny szczur? Lub jakis inny potwor? "
    + "Lepiej idz stad jak najszybciej a nie namyslaj sie "
    + "nad tym, co by to mozglo byc.\n");
add_event ("Czujesz, jakby ktos stal za toba. Szybko sie odwracasz "
    + "i ... Uffff, to chyba tylko zludzenie. Czujesz sie poprostu "
    + "potwornie.\n");
add_event ("Chyba juz zaczynasz wariowac. Wydaje ci sie ze slyszysz "
    + "jakis szepot. Tylko nic nie mozesz zrozumiec. Juz czujesz sie "
    + "zle od tych widokow i smrodu.\n");
set_events_on(1);
}

string
dziura()
{
    write ("Podchodzisz blizej do dziury robiac ostrozne kroki. "
        + "Probujesz zobaczyc co tam jest ... nagle slyszysz z "
        + "otworu okropny krzyk, rozdzierajacy twoje uszy. "
        + "Czujesz ze caly drzysz ze strachu. Nogi juz nie "
        + "chca trzymac cie prosto. Krzyk z kazda chwila narasta. "
        + "Nie wytrzymujesz tego dluzej i szybko odskakujesz od "
        + "dziury. Cieszysz sie tylko, ze to cos nie wyskoczylo "
        + "z tej dziury.\n");
    say (QCIMIE(TP, PL_MIA) + " podchodzi blizej do dziury "
        + "i probuje zajrzec do tego mrocznego otworu. Nagle widzisz "
        + "na jego twarzy strach. "
        + QCIMIE(TP, PL_MIA) + " szybko "
        + "odskakuje od tego otworu. Nawet nie masz "
        + "checi zapytac go o to, co tam zobaczyl.\n");
    return "";
}

string
powietrze()
{
    write ("Watchasz powietrze ... Bleeeee, co za smierdzacy zapach. "
        + "Czujesz sie jeszcze gorzej. Zaslaniasz nos i rot reka, "
        + "bo juz nie wytrzymujesz. Zaczynasz czuc zawroty glowy. "
        + "I czyj to byl glupi pomysl by tu przyjsc? Teraz myslisz "
        + "tylko o jednym, zeby jak najszybciej stad wyjsc!\n");
    say (QCIMIE(TP, PL_MIA) + " nagle krzywi sie, "
        + "wyglada jak by zjadz trucizne. Zaslania twarz reka i "
        + "nerwowo zaczyna jakby szukac czegos. Po krotkim "
        + "namysleniu rozumiesz ze szuka wyjscie stad. Tez czujesz "
        + "sie niedobrze. Lepiej juz tez poszukaj wyjscie stad.\n");
}