melville/
melville/cmds/
melville/cmds/admin/
melville/data/
melville/data/mail/
melville/data/player/
melville/data/system/
melville/data/user/
melville/doc/functions/
melville/doc/help/
melville/inherit/
melville/log/
melville/obj/
melville/system/auto/
melville/system/player/
melville/system/user/
melville/users/
melville/users/mobydick/
melville/world/
/* Show the files names of all objects in the wizard's environment.
   A temporary command unless I expand it later. */

int do_command (string str) {

    object env ;
    object *contents ;
    int i ;

    env = previous_object()->query_environment() ;
    if (!env) {
        write ("Can't do that in the void.\n") ;
	return 1 ;
    }
    contents = env->query_inventory() ;
    /* There has to be contents since the player is there. */
    for (i=0;i<sizeof(contents);i++) {
        write (object_name(contents[i])+"\n") ;
    }
    return 1 ;
}