/* A: Mezon */
/* Lokacja w jaksiniach Krainy Wodospadu */
/* plik:  jask_ga4.c loch */

inherit "/d/Imperium/Kraina/RUINY/jaskinie/stdjask";
#include "mezon.h"
#include "money.h"
#define TO this_object()

object skrzynia;

create_jaskinie()
{
                     set_short("Stary loch");
        
        set_long("Obszerna sala w ktorej sie znajdujesz ma ksztal kolisty, "+
        "a sypiacy sie strop jest podtrzymywany czterema grubymi filarami. "+
        "W polnocnej czesci groty zauwazasz przytwierdzona do sciany zbroje, "+
        "a miedzy filarami okuta skrzynie. "+
        "Jeden z filarow jest zaopatrzony w starannie wykute napisy, "+
        "wokol drugiego lezy pare czaszek i kosci.\n");

        add_item(("sufit"),("Nie mozna tego nazwac sufitem, gdyz brakuje tam "+
        "tylu kamieni, ze z latwoscia przejdzie przez dziure nawet masywny "+
        "ogr.\n"));

        add_item(({"filar","filary"}),("Masywne filary podtrzymujace "+
        "sklepienie. Sa tak grube, ze nawet ktos z wyjatkowo dlugimi "+
        "ramionami nie bylby w stanie ich objac. Na jednym z nich spostrzegasz "+
        "jakies napisy.\n"));
 
        add_item(({"napisy","filar z napisami"}),("Wykute w filarze jakies "+
        "dziwne znaki. Wygladaja na slowa klatwy, albo ostrzezenia.\n"));
     
        add_item(({"zbroje","sciane","sciany"}),("Sciany wykonano z pokrytego juz "+
        "nalotem kamienia. Zauwazasz tez zbroje wiszaca na sciane. "+
        "Z blizsza okazuja sie, ze sa to pozostalosci po kims, kto wpadl w pulapke "+
        "umieszczona w tym pomieszczeniu. Ze sciany wystaja trzy pionowe "+
        "ostrza, a na nich nadziana jest pelna plytowa zbroja. W srodku przylbicy "+
        "dostrzegasz szczerzacy sie w ostatnim usmiechu zaskoczenia szkielet.\n"));
 
        add_item(({"reke","kosci","czaszki","kosc","czaszke"}),("Wokol jednego z filarow lezy"+
        " calkiem sporo kosci i czaszek. Po jego drugiej stronie zauwazasz wiszaca "+
        "w kajdanach czyjas reke.\n"));
        
        add_item(("kajdany"),("Przy jednym z filarow jest umocowana para zelanych "+
        "kajdan, zaopatrzonych w kolce skierowane ku wewnetrznej stronie. \n"));
        
        add_cmd_item("zbroje","wez","Zbroi nie da sie ruszyc. Przytrzymuja ja "+
          "ostrza. Z bliska widzisz ze wszystko jest zardzewiale.\n");
        
        add_exit(NPATH + "jaskinie/jask_ga3.c", "wschod",0,1,0);
        add_exit(NPATH + "jaskinie/jask_ga1.c","zachod",0,1,0);
         
  reset_imperium_jaskinia();
}

void
reset_imperium_jaskinia()
{
      if(!skrzynia)
      {
        skrzynia = clone_object(NPATH + "obj/skrzynia");
        skrzynia -> move (TO);
        clone_object(NPATH + "bronie/multon")->move(skrzynia,1);
        MONEY_MAKE_GC(10)->move(skrzynia,1);
        return;
      }

      if(!present("multon",skrzynia)) 
      {                                                  
        skrzynia -> add_prop(CONT_I_CLOSED, 0);
        clone_object(NPATH + "bronie/multon")->move(skrzynia,1);
        MONEY_MAKE_GC(10)->move(skrzynia,1);
      }
      skrzynia->reset_skrzyni(); 
}  

demon_wolny()
{
   skrzynia->demon_wolny();
}