/* A: Lakshmi, gigant by Mezon :) */
/* Jaskinia w Krainie Wodospadu */

inherit "/d/Imperium/Kraina/RUINY/jaskinie/stdjask";
#include "mezon.h"
int a = 0;
object ogr;

void
create_jaskinie()
{

        add_prop(ROOM_I_INSIDE,1);

        set_short("Ogromna grota");
        set_long("Stoisz w jaskini zupelnie innej od tych ponurych korytarzy, ktore "+
                 "spotkac w pozostalych czesciach tego ciagu podziemnych tuneli."+
                 " Jest to ogromna grota, ktorej sklepienia nie mozesz "+
                 "dostrzec, tak wysoko sie ono wznosi. "+
                 "Nie jest to jednak zwykla wydrazona w kamieniu jaskinia, "+
                 "lecz prawdziwe arcydzielo natury. "+
                 "Dokladnie posrodku widzisz malenkie jeziorko, "+
                 "utworzone przez zbierajace sie tutaj podziemne cieki. "+ 
                 "Pomimo pozornie krystalicznej czystosci, woda nie wyglada "+
                 "zachecajaco i nie masz najmniejszej ochoty jej pic.\n");

        add_item(({"jeziorko","wode"}),("Niewielkie, krysztalowo czyste "+
                  "jeziorko, polozone dokladnie posrodku tej przepieknej "+
                  "jaskini. Jednak jego czystosc moze byc zwodnicza i "+
                  "lepiej nie probowac wody z niego.\n"));

       add_item(({"sklepienie","sufit"}),
                  "Sklepienie tej groty znajduje sie na tak duzej "+
                  "wysokosci, ze dostrzegasz jedynie najwieksze i "+
                  "najdluzsze ze stalaktytow, ktore przez wieki tu narosly.\n");
                            
     
        add_exit(NPATH + "jaskinie/jask_d7.c","poludniowy-wschod",0,1,0);
        add_exit(NPATH + "jaskinie/jask_d5.c","poludniowy-zachod",0,1,0);
        add_exit(NPATH + "jaskinie/jask_da5.c","polnocny-wschod",0,1,0);
        add_exit(NPATH + "jaskinie/jask_da3.c","polnocny-zachod",0,1,0);
        add_exit(NPATH + "jaskinie/jaska4.c","gora",0,1,0);


}

void
enter_inv(object ob, object from)
{
    ::enter_inv(ob, from);

    if(!a)
      set_alarm(10.0, 0.0, "dawamy_go"); 
}

void
dawamy_go()
{
   
      if (a == 0)
      {
      ogr = clone_object(NPATH + "npc/smog_gig.c");
    
      ogr -> move(this_object());
      tell_room(this_object(),"Z wody wynurza sie "+ QIMIE(ogr, PL_MIA)+"!\n");
      a = 1;
      }
}


void
reset_imperium_jaskinia()
{
  ::reset_imperium_jaskinia();
  if(!ogr) 
  {
  a = 0;
  }
}