/* Vaktoth 1997 */


#pragma no_clone
inherit "/d/Imperium/std/room";
#include "/sys/stdproperties.h"
#include "/sys/macros.h"
#include "defs.h"

object *skav = allocate(10);
void
reset_imperium_room()
{
  int i;
  for (i=0; i<sizeof(skav); i++)
  {
    if (present(skav[i],TO)==0)
    {
        skav[i] = clone_object( NPCS + "skavenr.c");
        tell_room(TO,"Skaven nadchodzi.\n");
        skav[i]->move(TO);
    }
  }
}


create_imperium_room()
{
   
  
    set_long("@@long_desc");
    set_short("Swiatynia Rogatego Szczura");

    add_item(({"inskrypcje","tajemnicze inskrypcje"}),
	        "Inskrypcje te napisano stosujac starozytny jezyk runiczny skavenow. " +
	        "Nie masz najmniejszego pojecia co one oznaczaja, lecz " +
	        "przeswiadczenie mowi ci iz poznanie ich tresci przyprawiloby cie o utrate zmyslow. " +
            "Tylko wypaczone umysly chaosu bylyby zdolne ogarnac widniejace tutaj tresci.\n");

    add_item(({"sciana","sciane","sciany"}),
	        "Sciany pomieszczenia sa zadziwiajaco rowne. Dodatkowo, " +
            "czujesz, ze emanuje z nich cos nieslychanie zlego i obrzydliwego. Po chwili " +
            "dostrzegasz przyczyne - setki ludzkich czaszek wmieszanych w spoiwo skalne " +
            "przeswituje przez nie, upiornie wpatrujac sie w ciebie pustymi oczodolami.\n");
    
    add_item(({"podloga","podloge","podloze"}),
	        "Podloga pomieszczenia jest zadziwiajaco rowna, tak samo jak sciany. Dodatkowo, " +
            "czujesz, ze emanuje z niej cos nieslychanie zlego i obrzydliwego. Po chwili " +
            "dostrzegasz przyczyne - setki ludzkich czaszek wmieszanych w spoiwo skalne " +
            "przeswituje przez nie, upiornie wpatrujac sie w ciebie pustymi oczodolami.\n");

    add_item(({"plaskorzezby","plaskorzezbe","rzezby","rzezbe"}),
	        "Sa to bardzo dziwne plaskorzezby, przedstawiajace ze straszliwa " +
	        "precyzja rozliczne odrazajace rytualy, ktorych znaczenia nie potrafisz " +
	        "sie domyslic. Kilka plaskorzezb przedstawia jedna postac - szczura z " +
	        "olbrzymim rogatym lbem!\n");

    add_item(({"zdobienia","zdobienie"}),
	        "Zdobienia te to przede wszystkim motywy trupich czaszek i piszczeli a " +
	        "co gorsze, te czaszki i kosci sa prawdziwe! Horror! Setki istnien kosztowalo " +
	        "wykonanie tych `ozdobek`!\n");

  
  INSIDE;

  set_alarm(60.0, 180.0, "talk");

  add_exit( LOKACJE + "temple10.c","zachod", 0);
  add_exit( LOKACJE + "temple12.c","wschod", 0);
  reset_imperium_room();
}
 string
 long_desc()
{
 return("Dotarl" + TP->koncowka("es", "as") + " do polowy korytarza, ciagnacego sie" +
    " przez kilkadziesiat metrow w kierunku wschod-zachod. Tunel ten ma profil idealnego" +
    " kwadratu i jest niezle oswietlony licznymi oliwnymi kagankami, ktorych blask" +
    " odslania makabryczne plaskorzezby, biegnace wzdluz scian." + 
    " W powietrzu unosi sie zapach palonego kadzidla i czegos nieokreslonego, czegos, co" +
    " sprawia, ze ciarki chodza ci po plecach. Ta aura wszechpoteznego i wszechobecnego" +
    " zla zdaje sie wypelniac to miejsce po brzegi, nie pozwalajac ci skupic mysli. Powoli" +
    " zaczyna ogarniac cie poploch i przerazenie. Ze wschodu dobiegaja cie przyciszone" +
    " glosy spiewajace jakas potwornie monotonna, wrecz usypiajaca piesn. Odruchowo zatykasz" +
    " uszy. Nigdy nic nie wiadomo jak taka piesn moze zadzialac na nieuodporniony organizm.\n");
} 

void 
talk()
{
         tell_room(this_object(), 
           "Twoj ciezki oddech roznosi sie echem po pomieszczeniu.\n");
}