/*    /cmds/creator/scan.c
 *    from the Foundation II LPC Library
 *    scans an object
 *    created by Descartes of Borg 950516
 *    -fi flags added for Dead Souls by Blitz 951208
 */

#include <lib.h>

#define OPT_E       (1 << 1)
#define OPT_D       (1 << 2)
#define OPT_I       (1 << 3)
#define OPT_F       (1 << 4)

inherit LIB_DAEMON;

string inventory(object ob, int level, int scan);

mixed cmd(string args) {
    object *inv;
    object ob;
    string tmp;
    int scan, i, maxi;

    if( args == "" || !args ) {
        ob = this_player();
        scan = 0;
    }
    else {
        while(args[0] == '-') {
            switch(args[1]) {
            case 'd': scan |= OPT_D; break;
            case 'e': scan |= OPT_E; break;
            case 'i': scan |= OPT_I; break;
            case 'f': scan |= OPT_F; break;
            }
            if( strlen(args) > 3 ) args = trim(args[2..]);
            else args = "";
        }
        if( args != "" ) ob = get_object(args);
        if( !ob ) ob = this_player();
    }
    if( scan & OPT_E ) ob = environment(ob);
    if( !ob ) return "No environment for requested object.";
    if( scan & OPT_D ) tmp = "Deep scanning " + identify(ob) + ":\n";
    else tmp = "Scanning " + identify(ob) + ":\n";
    for(i=0, maxi = sizeof(inv = all_inventory(ob)); i<maxi; i++)
        tmp += inventory(inv[i], 1, scan);
    this_player()->eventPage(explode(tmp, "\n") + ({""}), "system");
    return 1;
}

string inventory(object ob, int level, int scan) {
    object *inv;
    string ret;
    int i, maxi;

    for(i = 1, ret = ""; i <= level; i++) ret += "\t";
    if( scan & OPT_I ) {
        string tmp;
        if( scan & OPT_F ) tmp = identify(ob) + "\n" + ret + " ";
        else tmp = "";
        tmp += sprintf("(%s) - Mass: %d  Value: %d  Class: %d",
          capitalize((string)ob->GetKeyName()),
          (int)ob->GetMass(), (int)ob->GetValue(),
          intp((int)ob->GetClass()) ? (int)ob->GetClass() : 0 );
        if( ob->GetWorn() ) tmp += " (worn)";
        ret += tmp;
    }
    else ret += identify(ob);
    if( ( scan & OPT_D ) &&
      ( maxi = sizeof(inv = all_inventory(ob))) ) ret += ":\n";
    else ret += "\n";
    if( !( scan & OPT_D ) ) return ret;
    for(i=0; i<maxi; i++)
        ret += inventory(inv[i], level + 1, scan);
    return ret;
}

string GetHelp(string str) {
    return "Syntax: <scan (-e) (-d) (-i) (-f) ([object])>\n\n"
    "Scans the inventory of the object you name.  If you do "
    "not specify an object, then it gives you your inventory.  "
    "If you specify the -e option, the command does the "
    "environment of the object which is targeted.  If the -d "
    "option is specified, then a deep scan is done.  The -i "
    "option displays information about each object.  The -f "
    "option forces filenames to be displayed (default).\n\n"
    "See also: inventory, stat";
}