/* 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 + "stormvrm.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_event_time(10.0,50.0);

  add_event("Twoj ciezki oddech roznosi sie echem po pomieszczeniu.\n");
  add_event("Slyszysz w oddali slowa: Kaztsg Ug`Erhort Khek!.\n");
  add_event("Slyszysz w oddali slowa: Kaztsg Ug`Erhort Kahakan!.\n");
  add_event("Slyszysz w oddali slowa: Raghan Hag ister Ug`Kazab!.\n");
  add_event("Slyszysz w oddali slowa: Heken Darblist Yeg`Tog usert Ihm!.\n");

  set_events_on(1);

  add_exit( LOKACJE + "temple12.c","polnocny-wschod", 0);
  add_exit( LOKACJE + "temple16.c","poludniowy-wschod", 0);
  reset_imperium_room();
}
 string
 long_desc()
{
 return("Znalazl" + TP->koncowka("es", "as") + " sie w komnacie o ksztalcie idealnego okregu" +
    " - nawet sklepienie jest nieco wypukle. Cale pomieszczenie oswietlono" +
    " licznymi oliwnymi kagankami, ktorych blask" +
    " odslania makabryczne plaskorzezby, biegnace po okregu wzdluz sciany." + 
    " 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. Z komnat na poludniowym wschodzie dobiegaja" +
    " cie juz calkiem wyrazne" +
    " glosy spiewajace jakas potworna i odrazajaca piesn. Odruchowo zatykasz mocno uszy!" +
    " Nigdy nie wiadomo jak taka piesn moze zadzialac na nieuodporniony organizm.\n");
}