inherit "/std/object";
inherit "/cmd/std/command_driver.c";
#include "czarne_slonce.h"
#include "/d/Imperium/std/reload.h"
#include "spece.h"
#include "spece1.h"
#include "emoty.h"

#define A "czarne_slonce"

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("srebrny","srebrni");

   add_prop("czarne_slonce",1);
   add_name("pierscien_czarnego_slonca");   
   set_long("Symbol Przynaleznosci do Czarnego Slonca.\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 sprzedaz.");
    add_prop(OBJ_M_NO_DROP, "Nie odlozysz tego.");
    add_prop(OBJ_M_NO_GIVE,"ni");
    add_prop(OBJ_M_NO_STEAL, 1);
    add_prop(OBJ_M_NO_GET, "hyhyyh");


}

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("czarne_slonce",1);
        this_player()->add_prop(LIVE_I_SEE_DARK, 100);
	this_player()->ustaw_odmiane_rasy(({"plomien","plomienia","plomieniowi","plomienia",
		"plomieniem","plomieniu"}),({"plomienie","plomieni","plomieniom","plomienie",
		"plomieniami","plomieniach"}),PL_MESKI_OS);
      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)+" jest symbolem przynaleznosci do Czarnego Slonca.\n";
}

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


int no_way(string what)
{
   if (what=="pierscien")
       {
             write("Chcesz znalesc swe cialo w miejskim rynsztoku?\n");
             say(QCIMIE(this_player(),PL_MIA)+" spoglada na swoj " 
                 +"pierscien.\n");
             return 1;
       }
  return 0;
}


void init()
{
   ::init();
   add_action(no_way, "zdejmij");
   add_action("zasasynuj", "zasasynuj");
   add_action("rzuc", "rzuc");
   add_action("tnij", "tnij");
        add_action("nawoluj","cnapad");
        add_action("usmiech","cusmiech");
        add_action("wybuch","cagresja");   
        add_action("grymas","csprawy"); 
        add_action("krew","csznyty");     
        add_action("przypatrz","clustruj");
        add_action("pogarda","cpogardz");
        add_action("pomoc","ckomendy");
        init_emoty();
}