inherit "/std/room";

mapping room_cont;
int     max_num;

void    create()
{
    room_cont = ([ ]);
    max_num = 8;
    ::create();
    call_out( "test_cont", 0 );
}

mapping query_room_cont()
{
    return room_cont;
}

int     query_max_num()
{
    return max_num;
}
void    set_max_num( int i )
{
    max_num = i;
}

void    add_thing( object ob )
{
    string  shr;
    int     value;

    if( !ob || environment( ob ) != this_object() )
	return;
    shr = (string)ob->short();

    if( !room_cont[ shr ] )
    {
	room_cont[ shr ] = ({ ob });
	return;
    }
    if( sizeof( room_cont[ shr ] ) > max_num )
	call_out( "do_dest", 0, ob );
    else
	room_cont[ shr ] += ({ ob });
    return;
}

void    do_dest( object ob )
{
    if( ob && environment( ob ) == this_object() )
	ob->dest_me();
}

/* for updateing etc.... */
void    test_cont()
{
    int     i;
    object *obs;

    obs = all_inventory();
    for( i = 0; i < sizeof( obs ); i++ )
	add_thing( obs[ i ] );
}

void    remove_thing( object ob )
{
    mixed * arr;
    int     i, val;
    string  sh;

    if( !ob || environment( ob ) == this_object() )
	return;
    sh = (string)ob->short();

    if( !room_cont[ sh ] )
	return;
    arr = room_cont[ sh ];
    if( (i = member_array( ob, arr )) == -1 )
	return;
    if( sizeof( arr ) <= 1 )
    {
	room_cont = m_delete( room_cont, sh );
    }
    else
	room_cont[ sh ] = delete( arr, i, 1 );
}

void    event_enter( object ob )
{
    call_out( "add_thing", 0, ob );
}

void    event_exit( object ob )
{
    call_out( "remove_thing", 0, ob );
}