/* autor : Quad */

inherit "/d/Imperium/std/room";
#include </sys/stdproperties.h>
#include <macros.h>
int zaglebienie(string str);

init()
  {
   add_action(zaglebienie,"wskocz");
  ::init();
  }

void
create_imperium_room()
{

        add_prop (ROOM_I_INSIDE, 1);
        add_prop (ROOM_I_LIGHT, 1);
        



        set_short("Dolna czesc jasnkini.");

        set_long("Jest to kamieniste dno jaskini z ktorego pod katem w gore "+
	         "prowadzi dlugi slabo oswietlony tunel. W nierownych "+
		 "odstepach na scianach tunelu sa rozwieszone pochodnie niknace "+
		 "wraz z glebia tunelu. Centralna komnata jest obszerna, jej "+
                 "srodkowa czesc to duze, ciemne zaglebienie z ktorego dochadza "+
		 "chrapliwe dzwieki. W pomieszczeniu panuje zaduch a z zaglebienia "+
		 "wydobywa sie smrod stechlizny. \n"); 	




        add_item (
      ("zaglebienie"),
       "Obszerne, ciemne zaglebienie z glebi ktorego dochadza "+
       "twych uszu chrapliwy odglosy. Twoje nosdrza drazni smrod stechlizny "+
       "wydobywajacy sie z zaglebienia. "+
       "Wyglada na to ze do zaglebienia mozna wskoczyc. \n");
        
        add_item (
      ("pochodnie"),
      "Na kamiennej scianie w roznorodnych odstepach porozwieszane sa slabo "+
      "plonace pochodnie. Ilosc swiatla ktore daja zdaje sie byc niewystarcza "+
      "jak na tak wielkie pomieszczenie. \n");
       
       
    add_exit("/d/Imperium/quad/workroom.c", ({"tunel", "do tunelu"}), 0,0);
 
              
    set_event_time(10.0, 50.0);
    
    add_event("Nagle z zaglebienia wydobyl sie potworny ryk. \n");
    add_event("Pochodnie na scianach migocza slabym ogniem. \n");


    set_events_on(1);

    
}      

/* wchodzenie do zaglebienia przez zeskocz */


 int
 zaglebienie(string str)
 {
    mixed w_co=({"do zaglebienia","w zaglebienie"});
   
    if (member_array(str,w_co)==-1) 
       return notify_fail("Wskocz gdzie ?\n");
   
     write("Ociezale wskakujesz do ogromnego ciemnego zaglebienia.\n");
     this_player()->move_living("ociezale do ogromnego ciemnego zaglebienia", "/d/Imperium/quad/zagl.c",1,0);
       return 1;

  }