/* wejscie do swiatynki wyznawcow chaosu
   151097 Rangar*/


#include "/sys/stdproperties.h"
#include "local.h"
inherit IR;
#include "miesz.h"



object kaplan;

create_imperium_room() {
    
    set_long("@@my_long");
    set_short("Wejscie do swiatyni");
    
    add_exit(HOME+"/podz16", "polnoc", 0, 7);
    add_exit(HOME+"/podz14", "poludnie", 0, 7);
    add_exit(HOME+"/podz17", "wschod", 0, 7);
    
    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 2);

    add_item("oltarz","Na srodku tej przestronnej komnaty stoi oltarz. Jest zbudowany"+
                      " z jednego, solidnego bloku granitu. Na powierzchni bloku widac"+
                      " liczne, dlugie rowki prowadzace od srodka do krawedzi i dalej do mis"+
                      " umieszczonych na posadzce dookola oltarza. W misach i rowkach dostrzegasz"+
                      " na dnie rdzawe slady niedawno zaschnietej krwi. Po baczniejszej obserwacji"+
                      " zauwazasz niewielkie sztyfciki ukryte za oltarzem, wolno spalajace sie i"+
                      " wydzielajace odurzajacy zapach.\n"+
                      "Na oltarzu lezy zmasakrowane cialo.\n");
    add_item(({"cialo","resztki"}),"@@cialo");
    add_item(({"sztyfciki","kadzidlo","sztyfcik","preciki"}),"Za oltarzem ukryte sa dlugie i cienkie preciki egzotycznego kadzidla."+
                                                             " Z wolna spalaja sie i wydzielaja odurzajacy zapach. Cienkie smuzki dymu"+
                                                             " unosza sie pod sam sufit komnaty, skad rozwiewaja sie do pozostalych"+
                                                             " pomieszczen. Won kadzidla jest lekko slodkawa, wyczuwasz w niej zapachy"+
                                                             " maciejki, bzu, jasminu, miety i wielu innych, ktorych nie mozesz rozpoznac.\n");

                                     
    set_event_time(10.0,100.0);
    add_event("Slyszysz irytujace kapanie czegos lepkiego. Brrr!\n");
    add_event("Jakies dziwne odglosy dobiegaja z glebi korytarza.\n");
    add_event("Masz wrazenie, ze setki niewidzialnych oczu badawczo wpatruja sie w ciebie.\n");
    set_events_on(1);

    dodaj_npca(DHOME + "npc/kaplan.c");
    reset_imperium_room();

}

void
reset_imperium_room()
{
    ludzie(random(2)+1);
}


string
my_long() {
  return "Stoisz u wylotu ciasnego, dusznego korytarza."+
         " Przed soba widzisz duza, okragla sale o ciemnych scianach, oswietlona"+
         " nielicznymi pochodniami i misami z zarzacymi sie weglami. Panuje tu"+
         " polmrok. Na srodku pomieszczenia dostrzegasz spory oltarz a na nim"+
         " resztki jakiejs istoty. Powietrze nie jest tak ciezkie jak w korytarzu"+
         " i unosi sie w nim intrygujacy zapach jakiegos kadzidla. Masz wrazenie,"+
         " ze zaklocasz spokoj tego miejsca i za chwile ktos surowo cie za to ukarze."+
         " Czujesz, jak mimo woli wzdluz kregoslupa przebiega ci lodowaty dreszcz.\n";
           }
int
czy_wyjdzie() {
     write("Kiedy kierujesz swoje kroki na zachod i dochodzisz do drzwi"+
           " komnaty potezna, magiczna obecnosc nie pozwala ci ich przekroczyc.\n");
     this_player()->add_mana((-1)*random(20));
     return 1;
               }
string
cialo() {
return "Przygladasz sie blizej cialu lezacemu na oltarzu. Wytoczono"+
       " z niego cala krew i pozbawiono go wszystkich czlonkow oraz"+
       " glowy, a na korpusie wycieto czyms ostrym dziwaczne znaki."+
       " Twoje obrzydzenie zamienia sie w strach kiedy zauwazasz, ze"+
       " ta strasznie zmasakrowana istota to "+
       this_player()->query_race_name()+"!\n";
        }