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


#define A "diadem_ksiecia"

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

void
create_object()

{
     ustaw_nazwe(({"diadem","diademu","diademowi","diadem","diademem","diademie"}),
                ({"diademy","diademow","diademom","diademy","diademami","diademach"}),
                PL_MESKI_NOS_NZYW);

   dodaj_przym("plomienisty","plomienisci");

   add_prop("diadem_ksiecia",1);
   add_name("diadem_ksiecia");   
   set_long("Symbol najwyzszej wladzy 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("szef_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 diadem jest symbolem najwyzszej wladzy rodu von Carsteinow.\n";
    return "Diadem, ktory nosi, to symbol najwyzszej wladzy w Rodzinie von Carsteinow.\n";
}

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


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


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

}