#pragma save_binary
#include "move_failures.h"
#define DROP 1
#define GET 2
int     move_flag;

varargs int move( mixed dest, mixed messin, mixed messout )
{
    object  prev;

    prev = environment();
    if( !dest )
	return MOVE_EMPTY_DEST;
    if( environment() &&
	    !environment()->test_remove( this_object(), move_flag & DROP ) )
	return MOVE_NO_DROP;
    if( !dest->test_add( this_object(), move_flag & GET ) )
	return MOVE_NO_GET;
    if( environment() )
	event( environment(), "exit", messout, dest );
    move_object( this_object(), dest );
    if( objectp( dest ) )
	event( dest, "enter", messin, prev );
    else
	if( find_object( dest ) )
	    event( find_object( dest ), "enter", messin, prev );
    return MOVE_OK;
}

void    reset_get()
{
    move_flag |= GET;
}
void    set_get()
{
    move_flag &= ~GET;
}
void    reset_drop()
{
    move_flag |= DROP;
}
void    set_drop()
{
    move_flag &= ~DROP;
}

void    dest_me()
{
    if( environment() )
	event( environment(), "dest_me" );
    efun::destruct( this_object() );
}

/* The ultimate dest_me. Do not mask! */
nomask mixed dwep()
{
    efun::destruct( this_object() );
    return "Destruct With Extreme Prejuce";
}

int     drop()
{
    return move_flag & DROP;
}
int     get()
{
    return move_flag & GET;
}

void    set_move_flag( int i )
{
    move_flag = i;
}

mixed  *query_init_data()
{
    return({ "move", move_flag, "set_move_flag/p/" });
}