/* wiocha */
/* 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,"wejdz");

   ::init();
                     
}
                                 
void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

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


/* co widac */

        set_short( "Strome wzniesienie.");

        set_long( "Stoisz na zboczu lagodnego wzniesienia, na szczycie "+
        "ktorego ktos usypal wysoki na okolo osiem stop kopiec. "+
	"Na polnocy pagorek na ktorym stoisz opada lagodnie w strone "+
        "rowniny, a na wschodzie widzisz wiecej takich wzgorz. "+
	"Jest tu wyjatkowo cicho, i nawet najmniejszy wietrzyk nie porusza "+
	"brunatnymi kepami traw ktore wyrastaja na tym zboczu. \n");


/* pobawimy sie ? */

        add_item ( ({"kopiec","kurhan"}),
       "Usypany przed wiekami kopiec, kiedys niewatpliwie wyzszy, teraz "+
       "prawie wtapiajacy sie w wzgorze na ktorym go wzniesiono. Zapewne "+
       "jest to starozytny grobowiec, lecz kogo ? Gdy ogladasz go dokladniej, "+
       "ze zdziwieniem klekasz i odgarniasz kepy traw, ktore zakryly kamienna plyte, "+
       "umieszczon poziomo tuz u podnoza kopca! \n");

        add_item ( "plyte",
       "Stara, przysypana ziemia i zarosnieta trawami kamienna plyta, dluga i szeroka "+
       "na jakies dwie i pol stopy. Gdy oczyszczasz "+
       "ja dokladniej, zauwazasz na niej znak reki przebitej mieczem, i niezrozumiale dla "+
       "ciebie starozytne napisy. \n");

	 add_cmd_item ( "plyte", ({"odsun","przesun","otworz","podnies"}), "Sapiac ciezko "+
	 "probujesz zrobic cos z ta przekleta kamienna plyta, lecz jest za bardzo "+
	 "zagrzebana w ziemi. Gdy ze zmeczenia opierasz sie na niej rekami, "+
	 "plyta nagle lekko ugiela sie w dol! \n");
	 
	 
    add_exit(NPATH + "cment13.c", "polnoc", 0, 1);
    add_exit(NPATH + "cment18.c", "wschod", 0, 1);
    
    set_event_time(10.0, 200.0);
    add_event("Cisza.... \n");
    
    set_events_on(1);
      
}

int 
zejdz(string str)
{
 mixed gdzie=({"na plyte"});
 
 	if (member_array(str,gdzie)==-1)
 	return notify_fail("Na czym chcesz stanac ? \n");
 
 write ("Stajesz niepewnie na kamiennej plycie, i nagle zapada sie ona pod toba, a ty spadasz na dol! \n");
 say(QCIMIE(this_player(), PL_MIA) + " staje niepewnie na kamiennej plycie, i nagle zapada sie w dol! Po chwili plyta wraca na swe miejsce. \n");

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