#include <obj_parser.h>
string desc_object( mixed o ) {
string str;
if( !o )
return "** Null-space **";
if( !catch( str = (string)o->short() ) && str )
return str;
if( !catch( str = (string)o->query_name() ) && str )
return str;
return file_name(o);
} /* desc_object() */
string desc_f_object( object o ) {
string str, tmp;
str = desc_object(o);
if( o && str != file_name(o) )
str += " (" + ( tmp ? tmp : file_name(o) ) + ")";
return str;
} /* desc_f_object() */
object *wzpresent2( string str, mixed onobj ) {
object *obs, ob, *obs2, obj;
string s1;
class obj_match result;
if( pointerp(onobj) ) {
obs = ({ });
foreach( ob in onobj )
obs += wzpresent2( str, ob );
return obs;
}
if( str == "all" )
return INV(onobj);
/* every fish */
if( sscanf( str, "every %s", s1 ) == 1 ) {
obs2 = INV(onobj);
obs = ({ });
foreach( ob in obs2 )
if( ob->id(s1) )
obs += ({ ob });
return obs;
}
result = match_objects_in_environments( str, onobj );
if( result->result == OBJ_PARSER_SUCCESS ||
result->result == OBJ_PARSER_AMBIGUOUS ) {
return result->objects;
}
if( obj = present( str, onobj ) )
return ({ obj });
for( obj = first_inventory(onobj); obj; obj = next_inventory(obj) ) {
s1 = file_name(obj);
if( sscanf( s1, "%*s"+str+"#%*d" ) || sscanf( s1, "%*s#"+str ) )
return ({ obj });
}
return ({ });
} /* wiz_present2() */
varargs object *wiz_present( string str, object onobj, int nogoout ) {
/* nogoout is so that it WON'T check the environment of onobj */
int j;
object ob, *obs, *obs2;
string s1, s2, *sts;
mixed thing;
class obj_match result;
if( !str || !onobj )
return ({ });
seteuid(geteuid(TP));
/* all the simple ones first */
if( str[0] == '@' ) {
if( ob = find_living( (string)TP->expand_nickname( extract( str, 1 ) ) ) )
return ({ ob });
notify_fail("Unable to find living object: "+extract( str, 1 )+".\n");
return ({ });
}
if( str == "me")
return ({ TP });
if( str == "here" )
return ({ ENV(TP) });
if( str == "everyone")
return users();
if( str == "creators" )
return filter( users(), (: (int)creatorp($1) :) );
if( str[0] == '/' ) {
if( ob = find_object(str) )
return ({ ob });
if( sizeof( ( sts = (string *)TP->get_cfiles(str) ) ) ) {
obs = ({ });
obs = map( sts, (: find_object($1) :) ) - ({ 0 });
return obs;
}
notify_fail("No loaded object: "+str+".\n");
return ({ });
}
/* (fish) == environment of fish */
if( str[0] == '(' && str[strlen(str) - 1] == ')' ) {
obs = wiz_present( extract( str, 1, strlen(str) - 2 ), onobj );
if( !sizeof(obs) )
return obs;
obs = map( obs, (: ENV($1) :) ) - ({ 0 });
return obs;
}
/* handle "fish on fish2" */
if( sscanf( str, "%s on %s", s1, s2 ) == 2 ||
sscanf( str, "%s in %s", s1, s2) == 2 ) {
obs = wiz_present( s2, onobj );
if( !sizeof(obs) )
return obs;
obs2 = ({ });
foreach( ob in obs )
obs2 += wiz_present( s1, ob, 1 );
return obs2;
}
/* fish and fish2 */
if( sscanf( str, "%s and %s", s1, s2 ) == 2 ) {
obs = wiz_present( s1, onobj );
obs2= wiz_present( s2, onobj );
obs2 += filter( obs, (: member_array( $1, $(obs2) ) < 0 :) );
return obs2;
}
/* fish except fish2 */
if( sscanf( str, "%s except %s", s1, s2 ) == 2 ||
sscanf( str, "%s but %s", s1, s2 ) == 2 ) {
obs = wiz_present( s1, onobj );
obs2= wiz_present( s2, onobj );
foreach( ob in obs2 )
while( ( j = member_array( ob, obs ) ) > -1 )
obs = delete( obs, j--, 1 );
return obs;
}
/* env of fish */
if( sscanf( str, "env of %s", s1 ) == 1 ) {
obs = wiz_present( s1, onobj );
if( !sizeof(obs) )
return obs;
return map( obs, (: ENV($1) :) ) - ({ 0 });
}
/* children of fish */
if( sscanf( str, "children of %s", s1 ) == 1 ) {
obs = wiz_present( s1, onobj );
obs2 = ({ });
foreach( ob in obs ) {
s1 = file_name(ob);
sscanf( s1, "%s#%*d", s1 );
obs2 += children(s1);
}
return obs2;
}
if( sscanf( str, "player %s", s1 ) )
return ({ find_player(s1) });
if( !sizeof( obs2 = wzpresent2( str, onobj ) ) && !nogoout )
obs2 = wzpresent2( str, ENV(onobj) );
if( sizeof(obs2) )
return obs2;
/* check for a find_match locally */
result = match_objects_in_environments( str, onobj );
if( result->result == OBJ_PARSER_SUCCESS ||
result->result == OBJ_PARSER_AMBIGUOUS )
return result->objects;
/* default to return find_living ... */
if( ob = find_living( (string)TP->expand_nickname(str) ) )
return ({ ob });
/* quick hack by ember 12/4/93 to stick in temporary object variables */
if( thing = TP->get_obvar(str) ) {
if( objectp(thing) )
return ({ thing });
if( pointerp(thing) ) {
/* Make sure they are all objects... */
return filter( thing, (: objectp( $1 ) :) );
}
}
if( sizeof( ( sts = (string *)TP->get_cfiles(str) ) ) ) {
obs = ({ });
obs = map( sts, (: find_object($1) :) ) - ({ 0 });
return obs;
}
if( s1 = string_to_define(str) ) {
ob = find_object(s1) || load_object(s1);
if( ob )
return ({ ob });
}
return ({ });
} /* wiz_present() */
