/*
 *  Plik:         c0.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. "
    + "Na jednej z nich zauwazasz zwisajace kajdanki. "
    + "Jest tu bardzo brudno i czujesz okropny smrod "
    + "dochodzacy od rozpadajacych sie cial szczurow. "
    + "Czasami zauwazasz jak jakis szczur przemyka "
    + "kolo ciebie, ocierajac sie o twoje nogi. Jest to takie "
    + "nieprzyjemne uczucie, ze wolisz jak najszybciej stad uciec. "
    + "Na podlodze oproc smieci i kosci leza kawalki cial szczurow. "
    + "Pewnie walka o jedzenie jest w lochach jedynym sposobem "
    + "przetrwania. Patrzysz na to wszystko i masz nadzieje "
    + "ze nigdy tu nie wrocisz. Bo chyba nie chcesz zostac zjedzonym "
    + "przez szczury, czyje oczy patrza na ciebie z ciemnych "
    + "zakatkow tej celi z wyrazna checia rozerwania cie na "
    + "drobne kawalki, takie, jakie leza przed toba.\n");


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

add_item (({"sciane", "sciany"}),
      "Sa to brudne i smierdzace sciany. Na jednej "
    + "ze scian zuwazasz zwisajace metalowe rdzawe kajdanki, "
    + "ktore pewnie sluzyly do trzymywania w nich wiezniow. "
    + "Dreszcz przebiega cale twoje cialo tylko na mysl "
    + "o pzostanie tu jako wiezien na reszte twojego krotkiego "
    + "zycia.\n");
add_item (({"kajdanki", "kajdany"}), 
      "Widzisz przed soba rdzawe metalowe kajdanki. "
    + "Chyba swoje najlepsze chwili maja juz za soba. "
    + "Teraz nadaja sie tylko do wyrzucenia lub jako eksponat "
    + "do czyjejs kolekcji wieziennych atrybutow.\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 czyjes pozostalosci. "
    + "Nawet sie nie zastanawiaj od kogo, tylko uciekaj stad jak "
    + "najszybciej.\n");  

add_cmd_item ("kajdanki", ({"wyrwij", "zniszcz"}), "@@kajdanki");
add_cmd_item ("powietrze", "powachaj", "@@powietrze");

set_event_time (10.0, 100.0);
add_event ("Slyszysz jak cos sie poruszylo w ciemnym zakatku celi. "
    + "Moze to duch wieznia? A moze szczur? 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
kajdanki()
{
    write ("Probujesz wyrwac te rdzawe i smierdzace kajdanki ze "
        + "sciany, lecz tobie sie nie udaje. Moze i sa rdzawe, "
        + "ale nadal sa mocne.\n");
    say (QCIMIE(TP, PL_MIA) + " probuje wyrwac kajdanki ze sciany. "
        + "Lecz chyba jest zaslaby na to. Sprobuj. "
        + "Moze ci sie uda?\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");
}