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


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

int chwyc(string str);

init
{
  add_action(chwyc,"zlap");
  add_action(chwyc,"chwyc");

  ::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 krytarzu wewnatrz kurhanu. "+
        "Popekane kamienne bloki, z ktorych zbudowane sa sciany, "+
        "nie oparly sie niszczacej sile czasu, i maja na sobie "+
        "liczne pekniecia. Niemniej jednak, wytrzymaja na pewno "+
        "jeszcze sporo. "+
        "Z skradajacego sie zewszad polmroku, zdaja sie wpatrywac "+
        "w ciebie niewidzialne oczy, i caly czas masz nieodparte "+
        "wrazenie, ze ktos stoi za twoimi plecami. "+
	"Z peknietego sufitu zwisaja korzenie jakiegos drzewa, "+
	"ktore nie balo sie naruszyc spokoju zmarlym, natomiast "+ 
	"na podlodze wylozonej popekanymi cienkimi plytkami kamiennymi "+
	"dostrzegasz porozrzucane resztki pochodni, i zapewne kosci "+
	"jakiegos poszukiwacza przygod. \n");
	


/* pobawimy sie ? */

	add_item ( "pajeczyny",
        "Sa wszedzie. Przede wszystkim na twej twarzy. \n");
	                


        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 ( "kosci",
        "Kawalki kosci, ktore niegdys wchodzily w sklad szkieletu jakiegos wedrowca. \n");

	add_item ( "korzenie",
	"Zwisajace z gory, grube korzenie jakiegos wiekowego drzewa. Jak udalo im sie "+
	"nadkruszyc skalne sklepienie ? \n");
	

	add_cmd_item ( ({"sciany","sciane"}), ({"dotknij","nacisnij"}), "Podchodzisz "+
	"sciany i probojesz poruszyc kamiennymi blokami. Jednak trzymaja sie mocno. \n");
	
	
    add_exit(NPATH + "kurhan1/krypta01.c", "poludnie", 0, 1);
    add_exit(NPATH + "kurhan1/krypta03.c", "polnoc", 0, 1);
    
    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
chwyc(string str)
{
   mixed zaco=({"za korzen","za korzen"});
   
   if (member_array(str,zaco)==-1)
   return notify_fail("Za co chcesz zlapac? \n");
   
   if (TP->query_prop(JUZ_TRZYMA))
   return notify_fail("Trzymasz sie kurczowo jednego z zwisajacych korzeni. \n");

   TP->add_prop(JUZ_TRZYMA);        
   return 1;
}