/* Vaktoth 1997 */

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

object gracz;
void travel1(object gracz);
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 jestes dziwnie " +
	        "przeswiadczon"+ TP->koncowka("y", "a") + " 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, z wyjatkiem zachodniej sciany. 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","szczura"}),
	        "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(({"czaszki","czaszke"}),"Jedna z upiornych czaszek wydaje sie wystawac bardziej " +
        "niz inne.\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`! Przygladajac sie im uwazniej zauwazyles, ze jedna z " +
	        "czaszek wyraznie jest obluzowana.\n");

  DARK;
  INSIDE;
   
  reset_imperium_room();
  set_alarm(60.0, 180.0, "talk");

  add_exit( LOKACJE + "temple06.c","polnocny-wschod", 0);
  add_exit( LOKACJE + "temple07.c","poludniowy-wschod", 0);

}
 string
 long_desc()
{
 return("Jestes w dosc szerokim i wysokim pomieszczeniu, bedacym jednoczesnie" +
    " czyms w rodzaju przedsionka i poczatkiem dwoch korytarzy, ktorych wyloty" +
    " widnieja na ponocnym i poludniowym wschodzie. Przygladajac sie scianom," +
    " stwierdziles ze zdziwieniem, iz sa niezwykle gladkie, jakby jakas nieziemska" +
    " sila wygladzila ich powierzchnie. Nie ma na nich najmniejszego nawet zadrapania," +
    " pomijajac zachodnia sciane, ktora pokryta jest plaskorzezbami, zdobieniami i" +
    " tajemniczymi inskrypcjami." + 
    " W powietrzu unosi sie zapach palonego kadzidla i cos nieokreslonego, cos, co" +
    " sprawia, ze ciarki chodza ci po plecach. Ta aura wszechpoteznego i wszechobecnego" +
    " zla zdaje sie wypelniac to miejsce po brzegi.\n");
} 

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

void init() 
{
  ::init();

  add_action("do_pull_skull", "wyciagnij");
  add_action("do_pull_skull", "ciagnij");
  add_action("do_pull_skull", "szarpnij");
  add_action("do_pull_skull", "wyjmij");

 }



int
do_pull_skull(string str)
{
  notify_fail("Co chcesz wyciagnac?\n");

  if(!str)
  return 0;

  if(str == "czaszke")
  {
      write("Zdecydowanym ruchem wyciagasz obluzowana czaszke. Wtem "+
      "zalewa cie krwistoczerwone swiatlo i wszystko zaczyna wirowac wokol ciebie" +
      ". Po chwili ogarnia cie calkowita ciemnosc ... zauwazasz tylko, ze czaszka" +
      " zniknela z twoich dloni.\n");

      say(QCIMIE(TP,PL_MIA) + " majstruje cos przy sciane.\n");

    gracz = this_player();

    set_alarm(1.0,0.0,&travel1(gracz));

      say(QCIMIE(TP,PL_MIA) + " znika nagle w blysku czerwonego swiatla!\n");
 
      return 1;
   } 
}

void
travel1(object gracz) 
{
  tell_room(LOKACJE + "temple01.c", QCIMIE(gracz,PL_MIA)+" pojawia sie nie wiadomo skad!\n");
  gracz->move( LOKACJE + "temple01.c" );
  gracz-> command("sp");
}