/* 
 * /std/living/possess.c
 */

static string possessed;	/* Possessing demon */

/*
 * Function name: remove_object
 * Description:   Destruct this object, but check for possessed first
 */
private void
possessed_remove()
{
    object ob;

    while (ob = present("possob", this_object()))
    {
	if (function_exists("create_object", ob) == "/std/possob")
	{
	    command("quit");
	}
	else
	{
	    ob->remove_object();
	    if (ob)
		"/secure/master"->do_debug("destroy", ob);
	}
    }
}

/*
 * Function name: set_possessed
 * Description:	  Sets possessd status.
 * Arguments:	  demon - The one who possesses
 */
public nomask void
set_possessed(string demon)
{
    if (function_exists("possess", previous_object()) != "/std/possob")
	return;

    possessed = demon;
}

/*
 * Function name: query_possessed
 * Description:	  Returns possessed status
 */
public nomask string
query_possessed()
{
    return possessed;
}