/* /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;
}
