/* Sala jest to napisane przez Silvego, ale ma kilka moich dodatkow - Morty */


inherit "/d/Imperium/std/room";
#include "/sys/stdproperties.h"
#include "silvy.h"

create_imperium_room()
 {

    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 1);
    set_short("Oltarz");
    set_long("Jestes u stop podwyzszenia na polnocnym krancu wielkiej " +
                 "jaskini. To podwyzszenie to bez watpienia oltarz. Jest on " +
                 "ozdobiony runicznymi symbolami, ktorych znaczenia nie jestes " +
                 "w stanie rozszyfrowac. Za oltarzem widzisz otwor w posadzce. Ma " +
                 "on co najmniej piec metrow srednicy. Z jego wnetrza bije krwistoczerwona " +
                 "luna. To ona oswietla pobliskie sciany, zalamujac sie na " +
                 "ostrych krawedziach i dajac niesamowite refleksy. Obok oltarza " +
		 "widzisz pantagram usypany z jakiegos piasku lub podobnego pylu. " +
		 "Ziarenka zdaja sie lekko unosic w powietrzu. Opanowuje cie niesamowite,"+
		 " przytlaczajace uczucie strachu. Zlo tego miejsca jest niemal namacalne.\n");

    add_exit(NPATH + "wieza/sala_2.c","poludniowy-zachod","@@czy_mozna",1);
    add_exit(NPATH + "wieza/sala_3.c","poludniowy-wschod","@@czy_mozna",1);
    add_exit(NPATH + "wieza/sala_1.c","poludnie","@@czy_mozna",1);

    add_item(({"podloga","podloge","posadzka","posadzke"}),"Kamienna posadzka jest tu czysta i lsniaca.\n");
    
    add_item(({"sciany","sciana","sciane"}), "Sciany maja tu imponujaca wielkosc. W skalnych " +
                   "zalamaniach odbija sie czerwony blask bijacy z " +
                   "otworu w podlodze.\n");
                   
    add_item(({"otwor","otwor w posadzce","dziura","dziure"}), "Otwor ma mniej wiecej piec metrow srednicy. " +
                   "W srodku widzisz stale poruszajaca sie pomaranczowo-czerwona " +
                   "substancje. Bije od niej blask i fala goraca. Wolisz nie " +
                   "myslec co by bylo gdybys tam wpadl.\n");
                   
    add_item(({"oltarz","podwyzszenie"}), "Ma on mniej wiecej metr wysokosci, metr szerokosci i okolo " +
                   "dwoch dlugosci. Jest caly z czarnego granitu, sciany boczne " +
                   "pokryte sa zlotymi znakami runicznymi. Powierzchnia pobrudzona jest " +
                   "czyms lepkim. Ze zgroza stwierdzasz ze to krew.\n");
                   
    add_item(({"znaki","runy"}), "Sa one wyzlobione w czarnym marmurze, a nastepnie wypelnione " +
                   "zlota farba. Niestety mimo najszczerszych checi nie jestes w stanie " +
                   "rozszyfrowac ich znaczenia.\n");
                   
    add_item(({"krew","powierzchnia","powierzchnie"}), "Cala powierzchnia oltarza wymazana jest krwia. I ta krew jest " +
                   "SWIEZA !!!.\n");
                   
    add_item(({"pentagram","piach","pyl"}), "Jest to pentagram usypany z jakiegos piasku lub podobnego pylu. "+
		"Na kazdym zakonczeniu gwiazdy stoi miseczka ktora jest wypelniona, "+
		"jakas brunatno-czerwona ciecza. Ziarenka zdaja sie lekko poruszac i unosic"+
		" w powietrzu.\n");
    add_item(({"miseczka", "miseczki"}), "Sa to male gliniane miseczki, wypelnione"+
    		" jakas ciecza, ktora troche przypomina krew. Coz ta juz moze byc "+
    		" troche zakrzepla.\n");
    
    set_event_time(40.0,170.0);
    add_event("Pentagram rozblyska jasnym swiatlem, z jego srodka zaczyna unosic" +
		" sie dym. Po chwili wszysko przygasa i zdaje sie wracac do normy.\n");
    add_event("Substancja w dziurze zaczyna bulgotac, zmieniajac kolor na pomaranczowy"+
		" nastepnie na bialy. Cala jaskinia zaczyna drzec w posadach. Pionowo"+
		" w gore wystrzeliwuje jasny promien swiatla. Po chwili swiatlo przygasa"+
		" a substancja przestaje bulgotac.\n");
    set_events_on(1);  

    dodaj_npca(NPATH + "npc/demonolog");
 }

int
czy_mozna()
{
    if(random(5))
    {
        write("Tracisz rownowage na sliskiej posadzce i padasz jak " +
           this_player()->koncowka("dlugi","dluga") + ".\n");
        say(QCIMIE(this_player(),PL_MIA) + " traci rownowage na "+
           "sliskiej posadzce i pada jak "+
           this_player()->koncowka("dlugi","dluga") + ".\n");
        this_player()->add_fatigue(-10);
        return 1;
    }
    return 0;
}