/* autor : Mezon */
/* data: 01.07'98 */
/* lokacja do zostawiania przez 'zakonnikow' sprzetu. tzw. zbrojownia' */

#include "lakshmi.h"
inherit STD + "dziedzin";
#include <composite.h>

#define WEA_SUBL "_wea_subl_zbr"
#define ARM_SUBL "_arm_subl_zbr"

create_imperium_room()

{
add_prop(ROOM_I_INSIDE, 1);
        set_short("Zbrojownia");
        set_long("@@opis");
         

        add_item(({"runy","znaki","malowidla"}),
                   "Na scianach dostrzegasz rozne znaki i malowidla "+
                   "przedstawiajace sceny z dawnych wojen. Na pewno "+ 
                   "maja znaczenie symboliczne... \n");

        add_item("sciany",
                 "Na scianach tego pomieszczenia znajduja sie liczne "+ 
                 "runy i malowidla, kunsztownie wykonane. \n");

        add_item(({"atrapy","makiety","bronie"}),
                 "Roznego rodzaju bronie, najczesciej topory i mloty.\n");


        add_exit(NPATH + "pietro2.c","polnoc",0,1,0);
        add_exit(NPATH + "magazyn.c","zachod",0,1,0);
        
/*
        set_event_time(15.0, 180.0);
        add_event("Wydaje Ci sie, ze slyszysz odglosy dawnych"+ 
                  "bitew... \n",2);


        set_events_on(1);
*/

     clone_object(PATH + "obj/skrzynia")->move(TO);
     
     add_subloc(WEA_SUBL,TO);
     add_subloc(ARM_SUBL,TO);
}

opis()
{
   string str="Pomieszczenie, w ktorym sie znajdujesz sluzy "+
                 "mieszkancom zamku do przechowywania "+
                 "ekwipunku. Wszystko co tu lezy, moze byc swobodnie "+
                 "uzywane przez ogol czlonkow Zakonu, podczas gdy przedmioty zostawione "+
                 "w zdobionej skrzyni sa tylko i wylacznie do uzytku "+
                 "Rycerzy Zakonnych. Dla podkreslenia "+ 
                 "klimatu panujacego w tym miejscu, sciany ozdobione "+ 
                 "sa licznymi runami, a takze wisza tu makiety wszelakich "+ 
                 "broni, rowniez tych archaicznych, sluzacych kiedys "+ 
                 "krasnoludom i ludziom w ich wspolnej walce przeciwko "+
                 "silom Chaosu. Aura tego miejsca przywodzi na mysl "+ 
                 "dawne, honorowe bitwy, wojny i potyczki. Zbrojownia "+    
                 "ta jest symbolem jednosci istot ludzkich i "+ 
                 "krasnoludow w niszczeniu Chaosu.\n";
   return str;
}

enter_inv(object co, object skad)
{
   string a,subl;
   
   ::enter_inv(co,skad);
   
   if ((a=function_exists("create_weapon",co))||function_exists("create_armour",co))
       {
          if (a) subl=WEA_SUBL; else subl=ARM_SUBL;
          dump_array(co->move(TO,subl));
          skad->catch_msg("Wieszasz " + co->short(skad, PL_BIE) + " na " +
          	"przeznaczone miejsce.\n");
       }
}

string
show_subloc(string subl, object on_obj, object for_obj)
{
   string str="";
   object *inv=subinventory(subl);
   
   if (sizeof(inv))
   switch(subl)
      {
         case WEA_SUBL: str="Na scianach zbrojowni wis" +
         	(sizeof(inv)>1?"za":"i") + " " +
         	COMPOSITE_DEAD(inv,PL_MIA) + ".\n";
            break;
         case ARM_SUBL: str="Na scianach zbrojowni wis" +
         	(sizeof(inv)>1?"za":"i") + " " +
         	COMPOSITE_DEAD(inv,PL_MIA) + ".\n";
            break;
      }
   return str;
}