inherit "/std/object";
inherit "/cmd/std/command_driver.c";
#include "wampiry.h"
#include "/d/Imperium/std/reload.h"


#define A "pierscien_hrabiego"

int zalozony;
int wear();
int remove();

void
create_object()

{
   ustaw_nazwe(({"pierscien","pierscienia","pierscieniowi","pierscien","pierscieniem","pierscieniu"}),
              ({"pierscienie","pierscieni","pierscieniom","pierscienie","pierscieniami","pierscieniach"}),
               PL_MESKI_NOS_NZYW);
   dodaj_przym("krwisto-czerwony","krwisto-czerwoni");
   dodaj_przym("rubinowy","rubinowi");

   add_prop("pierscien_hrabiego",1);
   add_name("pierscie_hrabiego");   
   set_long("Ten pierscien jest symbolem twojego wyzszego stanu szlacheckiego wsrod rodu " 
         +  "von Carsteinow.\n");

   add_prop(OBJ_I_WEIGHT,   1000);
   add_prop(OBJ_I_VOLUME,    500);
   add_prop(OBJ_I_VALUE,   24000);
}

dodaj_propy()
{
    add_prop(OBJ_M_NO_SELL, "Nie.\n");
    add_prop(OBJ_M_NO_DROP, "Nie.\n");
    add_prop(OBJ_M_NO_GIVE,"Nie.\n");
    add_prop(OBJ_M_NO_STEAL, 1);
    add_prop(OBJ_M_NO_GET, "Nie.\n");


}

usun_propy()
{
    remove_prop(OBJ_M_NO_SELL);
    remove_prop(OBJ_M_NO_DROP);
    remove_prop(OBJ_M_NO_GIVE);
    remove_prop(OBJ_M_NO_STEAL);
    remove_prop(OBJ_M_NO_GET);
}


int
wear()
{
    if (this_player()->query_subloc_obj(A))
        { remove_object(); return 1;}
    this_player()->add_subloc(A, this_object());
    move(this_player(), A);
    zalozony=1;
    this_player()->add_prop("hrabia_wampirow",1);
    return 1;
}

int
remove()
{
    this_player()->remove_subloc(A);
    zalozony=0;
    move(this_player());
    return 1;
}

void
 





enter_env(object ob, object from)
{
    ::enter_env(ob, from);
    dodaj_propy();
    wear();
}

string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (on_obj == for_obj)
    return "Twoj "+short(PL_BIE)+" to symbol wladzy w rodzine von Carsteinow.\n";
    return "Pierscien przezen noszony jest symbolem wyzszego stanu w rodzie von Carsteinow.\n";
}

string
query_auto_load()
{
        return MASTER_OB(this_object());
}
 


int no_way(string what)
{
   if (what=="pierscien")
       {
             write("Chesz sprowadzic na siebie gniew nieumarlych?\n");
             say(QCIMIE(this_player(),PL_MIA)+" spoglada na swoj " 
                 +"pierscien.\n");
             return 1;
       }
  return 0;
}


void init()
{
   ::init();
   add_action(no_way, "zdejmij");

}