inherit "/std/object";

#include <wa_types.h>
#include <stdproperties.h>

void
create_object()
{
    set_no_show();
    add_prop(OBJ_I_NO_DROP, "Polozyc tatuaz? Nie... :)\n");
}

void
enter_env(object dest, object from)
{
    if (living (dest) )
	dest->add_subloc ("_tatuaz_lotosu", this_object() );
    ::enter_env (dest, from);
}

void
leave_env(object from, object dest)
{
    if (living (from) )
	from->remove_subloc ("_tatuaz_lotosu"); 
    ::leave_env (from, dest);
}

mixed
show_subloc(mixed subloc, object on_obj, object for_obj)
{
    if (subloc != "_tatuaz_lotosu")
	return 0;

    if (for_obj != on_obj && objectp (on_obj->query_armour (TS_TORSO)) )
	return 0;

    if (for_obj != on_obj)
	return "Na lewej piersi ma przepieknie wytatuowany zlocisty kwiat " +
	    "lotosu. \n";

    if (on_obj->query_prop (TEMP_SUBLOC_SHOW_ONLY_THINGS) )
        return 0;

    return "Na lewej piersi masz przepieknie wytatuowany zlocisty kwiat lotosu." +
        ( (objectp (on_obj->query_armour (TS_TORSO) ) ) ? " (zakryty)\n" : "\n" );
}

string
query_auto_load()
{
    return "/d/Imperium/morley/lotos:";
}

string
query_recover()
{
    return 0;
}