/*   /secure/sefun/to_object.c
 *   from the Dead Souls.4 Library
 *   recreated by Blitz@Dead Souls
 *
 *   Purpose: Parse passed string argument and
 *            return a matching object pointer
 *            if one is found.
 *
 *   Usage Examples:
 *     sword           (1st sword in inv or env)
 *     sword@here      (find sword in local env)
 *     sword#4         (find 4th sword)
 *     sword#2@foo     (find 2nd sword on player foo)
 *     sword@bag#2@foo (find 1st sword in foo's 2nd bag)
 *     ---------------
 *     /path/filename  (find or load filename)
 *     /path/file#999  (find unique cloned object)
 *     %foo            (explicitly find player foo)
 *     $foo            (explicitly find npc foo)
 *     @foo            (return foo's environment)
 *     
 *     tokens: me, here, sefun
 */

#include <global.h>

object to_object(mixed var) {
    object env, ob, *obs;
    string tmp, where;
    int i, char;

    if( objectp(var) ) return var;
    else if( !stringp(var) || !sizeof(var) ) return 0;
    if( sscanf(var, "%s@%s", tmp, where) == 2 ) {
        var = tmp;
        if( !env = to_object(where) ) return 0;
        if( !sizeof(var) ) return environment(env);
    }
    switch(var) {
    case "here" : return environment(this_player());
    case "me" : return this_player();
    case "sefun" : return find_object(SEFUN);
    }
    if( sscanf(var, "%s#%d", tmp, i) == 2 ) {
        if( ob = find_object(var) ) return ob;
        else var = tmp;
    }
    else i = 1;
    if( i < 1 ) return 0;
    if( member_array(var[0], ({ '/', '$', '%', }) ) > -1 ) {
        char = var[0];
        var = var[1..];
    }
    switch( char ) {
    case '/' :
        if( var[<2..] != ".c" ) var += ".c";
        if( !file_exists(var) ) return 0;
        return load_object(var);
        break;
    case '%' :
        if( !(ob = find_player(var)) ) return 0;
        else return ob;
        break;
    case '$' :
        if( env )  {
            obs = filter(all_inventory(env),
              (: living($1) && !interactive($1) && $1->id($(var)) :));
            if( sizeof(obs) < i ) return 0;
            else return obs[i - 1];
        }
        if( (ob = find_living(var)) && !interactive(ob) ) return ob;
        else return 0;
        break;
    default:
        if( !env ) {
            env = this_player();
        }
        if( i > 1 ) {
            obs = filter(all_inventory(env), (: $1->id($(var)) :));
            if( sizeof(obs) < i ) {
                if( !env = environment(env) ) {
                    ob = 0;
                }
                else {
                    obs = filter(all_inventory(env), (: $1->id($(var)) :));
                    if( sizeof(obs) < i ) {
                        ob = 0;
                    }
                    else {
                        ob = obs[i - 1];
                    }
                }
            }
            else {
                ob = obs[i-1];
            }
            if( ob ) {
                return ob;
            }
        }
        else {
            ob = present(var, env);
            if( ob ) return ob;
            else if( env = environment(env) ) {
                ob = present(var, env);
                if( ob ) return ob;
            }
            if( ob = find_player(var) ) return ob;
            if( ob = find_living(var) ) return ob;
            if( !this_player() ) {
                return 0;
            }
            var = absolute_path(this_player()->query_cwd(), var);
            if(!file_exists(var)) var += ".c";
            if(!file_exists(var)) var = "";
            if( sizeof(var) && ob = load_object(var) ) {
                return ob;
            }
        }
        return 0;
    }
    return 0;
}