/*    /cmds/creator/clean.c
 *    From the Dead Souls Mud Library
 *    Cleans out the inventory of an object, defaulting to this room
 *    created by Valodin@Dead Souls 930101
 *    Version: @(#) clean.c 1.2@(#)
 *    Last modified: 96/10/06
 */

#include <lib.h>
#include <message_class.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    object array obs, items, users;
    object ob;

    if( !args || args == "" ) {
        ob = environment(previous_object());
    }
    else {
        ob = get_object(args);
    }
    if( !ob ) {
        return "No " + args + " found.";
    }
    previous_object()->eventPrint(sprintf("Cleaning %O", ob), MSG_SYSTEM);
    say(this_player()->GetName()+" cleans "+ob->GetShort()+".");
    obs = deep_inventory(ob);
    users = filter(obs, (: userp :));
    items = obs - users;
    foreach(object user in users) {
        object tmp = user;

        while( tmp = environment(tmp) ) {
            items -= ({ tmp });
        }
    }
    foreach(object item in items) {
        if( item ) {
            item->eventDestruct();
        }
    }
    return 1;
}

string GetHelp() {
    return ("Syntax: clean [OBJECT]\n\n"
            "This command destroys all objects in the inventory of a "
            "specified object.  It skips any item that has a user somewhere "
            "in its deep inventory.");
}