/* krypta */
/* autor : dhor */
/* the very first version :))))))) */


inherit "/d/Imperium/std/room";
#include </sys/stdproperties.h>
#include <macros.h>
#include "dhor.h"

int idz(string str);

init()
{
  add_action(idz,"wespnij");
  ::init();
}


void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

        add_prop ( ROOM_I_INSIDE, 1); // czy jest to lokacja na polu, czy pokoj 
        add_prop ( ROOM_I_LIGHT, 0); // jasno czy ciemno


/* co widac */

        set_short( "Podziemna krypta.");

        set_long( "Stoisz w waskim korytarzu wewnatrz kurhanu. "+
        "Pomieszczenie to wydaje sie byc zbudowane przed wiekami, "+
        "a kamiennych bloki ktore podtrzymuja zwaly ziemi, sa "+
        "poprzecinane licznymi peknieciami. "+
        "Nad toba jasniej wylot dziury, prowadzacej na zewnatrz "+
        "tego ponurego miejsca. "+
        "Ze skradajacego sie zewszad polmroku zdaja sie wpatrywac "+
        "w ciebie niewidzialne oczy, i caly czas masz nieodparte "+
        "wrazenie, ze ktos stoi za twoimi plecami. "+
        "Nachodzi cie mysl, ze moze zaklocanie spokoju zmarlym to "+
        "nie najlepszy pomysl? \n"); 



/* pobawimy sie ? */



        add_item ( "sciany" ,
        "Zbudowane z kamiennych blokow sciany. Czas wyryl juz na nich wlasciwe "+
        "pietno, i widac tu i owdzie pokazne pekniecia. \n");
        
        add_item ( ({"wylot","dziure"}),
        "Widniejaca nad twoja glowa dziura. Przy odrobinie "+
        "umiejetnosci mozna sie przez nia wspiac na zewnatrz. \n");

	add_cmd_item ( ({"sciany","sciane"}), ({"dotknij","nacisnij"}), "Podchodzisz "+
	"sciany i probojesz poruszyc kamiennymi blokami. Jednak trzymaja sie mocno. \n");
	
	
    add_exit(NPATH + "cment37.c", "gora", 0, 1);
    add_exit(NPATH + "kurhan2/krypta12.c", "polnoc", 0, 1);
    
    dodaj_npca(NPC + "szkielet.c");
        

    set_event_time(10.0, 100.0);
    add_event("Cos trzasnelo ci pod stopami! \n");
    add_event("Z oddali dochodzi cie niewyrazny szept. To na pewno tylko powiew wiatru. \n");
    add_event("Troche piachu obsunelo sie z sufitu. \n");

    
    set_events_on(1);
      
}

int
idz(string str)
{
  mixed jak=({"sie na gore"});
  
  if (member_array(str,jak)==-1)
  return notify_fail("Gdzie sie chcesz wspiac ? \n");
  
  if (TP->query_skill(SS_CLIMB)<20)
  {
  write("Probojesz wspiac sie na gore, lecz nie za dobrze idzie "+
  "ci z wspinaczka, i osuwasz sie z powrotem na ziemie. \n");
  say(QCIMIE(TP, PL_MIA) + " proboje sie wspiac na gore, lecz jego umiejetnosci "+
  "sa za male. \n");
  }
  else
  {
  write("Wspinasz sie na gore. \n");
  say(QCIMIE(TP, PL_MIA) + " wspina sie na gore. \n");
  TP->move_living("M", NPATH + "cment37.c", 1, 0);   
  return 1;
  }
  return 1;  
}