/* 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( "Niewysoki kurhan.");

        set_long( "Stoisz przy usypanym przez kogos, niskim kurhanie , "+
        "ktory ledwo dostrzegasz "+
        "pomiedzy tymi wszystkimi krzakami, ktore w tej okolicy "+
        "wyrosly nad wyraz bujnie. Na poludniowym zachodzie "+
        "dostrzegasz plaska rownine, a na polnocy wzniesienia "+
        "na ktorych stoisz opadaja lagodnie w dol ku osnutym "+
        "mgla terenom. \n");
	



/* pobawimy sie ? */

        add_item ( "kruhan",
       "Niski, malo wyrozniajacy sie wsrod wzniesien kurhan. "+
       "Jest malo widoczny wsrod krzakow ktore bronia dostepu do niego. \n");

	
        add_item ( "krzaki",
       "Wysokie na trzy stopy, cierniste badyle, ktore porastaja te okolice. "+
       "Moze udaloby ci sie przez nie przejsc, i wejsc na kurhan. \n");


    add_exit(NPATH + "cment29.c", "polnoc", 0, 1);
    add_exit(NPATH + "cment15.c", "poludniowy-zachod", 0, 1);
    
    set_event_time(10.0, 200.0);
    add_event("Wydaje ci sie, ze gdzies z oddali dochodzi do ciebie placz dziecka. \n");
    add_event("Wiatr poruszyl krzakami. \n");
    
    set_events_on(1);
      
}

int 
zejdz(string str)
{
 mixed gdzie=({"w krzaki","miedzy krzaki"});
 
 	if (member_array(str,gdzie)==-1)
 	return notify_fail("Moze po prostu wejdz miedzy krzaki? \n");
 
 write ("Wchodzisz miedzy krzaki. Nagle wpadasz w jakis dol! \n");
 say(QCIMIE(this_player(), PL_MIA) + " rusza w strone kurhanu, przedzierajac cie przez lapiace go cierniami krzaki. Nagle niknie ci z oczu! \n");

 this_player()->move_living("M", NPATH + "kurhan2/krypta11.c", 1, 0);
 
 return 1;
}