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


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

int zejdz(string str);
// int opusc(string str);

init()
{
   add_action(zejdz,"przecisnij");
   add_action(zejdz,"zsun");
   add_action(zejdz,"wejdz");
   ::init();
                     
}
                                 
void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

        add_prop ( ROOM_I_INSIDE, 0); // czy jest to lokacja na polu, czy pokoj 


/* co widac */

        set_short( "Kolo kurhanu.");

        set_long( "Wsrod pagorkow ktore wyrastaja za twymi "+
        "plecami, ten kolo ktorego stoisz wyroznia sie szczegolnie. "+
        "Od razu widac, ze usypala go ludzka reka, gdyz jest nieco wyzszy "+
        "od pozostalych, i bardziej stromy. Jego zbocza porastaja "+
        "kepy niskich uschnietych krzewow, a caly ten kurhan "+
        "otoczony jest niskim walem porosnietym uboga roslinnoscia, szarpana "+	"przez wiejacy w tym miejscu ostry wiatr. \n");
	



/* pobawimy sie ? */

        add_item ( "kurhan",
       "Kurhan u ktorego podnoza stoisz jest wysoki na jakies pietnascie stop,  "+
       "i porastaja go gdzieniegdzie suche krzaki. U jego podnoza "+
       "usypany jest niski wal, porosniety mizernymi kepkami traw. \n");

        add_item ( "krzaki",
        "Porastajace zbocze kurhanu suche badyle. \n");
         	
      
      
        add_item ( "wal",
       "Wal ktory otacza kurhan jest wysoki na okolo dwie stopy. "+
       "Kucasz, i ogladasz go dokladniej. Okazuje sie, ze jest on zbudowany "+
       "ze skal ponakladanych na siebie, lecz wiatr obsypal je dokladnie ziemia, "+
       "i stad wrazenie, ze to jakis nasyp. \n");

	add_item ( "otwor",
	"Pod jedna ze skal ktora tworzy wal wokol kurhanu odsypala sie ziemia, "+
	"tworzac zejscie na dol. Otwor jest dosc szeroki, i chyba da sie przez "+
	"niego przecisnac na dol. \n");
	    
       
       add_item ( "skaly" ,
       "Obchodzisz kurhan dookola, uwaznie ogladaj murek zbudowany ze skal. "+
       "W jednym miejscu wydaje ci sie, ze ziemia jest pod nim nieco zapadnieta, "+
       "i gdy klekasz by przygladnac sie dokladniej, piach i drobniejsze "+
       "odlamki kamieni spod jednej ze skal osuwaja "+
       "sie do wnetrza kurhanu, ukazujac ziejacy czernia otwor! \n");
        
        
    add_exit(NPATH + "cment23.c", "wschod", 0, 1);
    
    set_event_time(10.0, 200.0);
    add_event("Cos poruszylo sie na szczycie kurhanu! \n");
    add_event("Slyszysz jakies wycie w oddali. \n");
    add_event("Nagly podmuch wiatru mocno uderza cie w twarz. \n");
    add_event("Przez chwile wydawalo ci sie, ze slyszysz odglosy zazartej bitwy. \n");
    
    set_events_on(1);
      
}

int 
zejdz(string str)
{
 mixed gdzie=({"sie pod skalami","w otwor","do otworu", "sie przez otwor","sie do srodka"});
 
 	if (member_array(str,gdzie)==-1)
 	return notify_fail("Gdzie sie chcesz przecisnac? \n");
 
 write ("Klekasz przy kamiennym wale, i odnajdujesz pod nim "+
 "otwor prowadzacy w dol. Przeciskasz sie z trudem przez niego. \n");
 say(QCIMIE(this_player(), PL_MIA) + " kleka przy wale, i odgarniajac reka suche trawy odnajduje otwor prowadzacy w dol. "+
 "Z trudem przeciska sie przez niego. \n");

 this_player()->move_living("M", NPATH + "kurhan1/krypta01.c", 1, 0);
 
 return 1;
}