/* Alterations by Hamlet, Jan 1996 */
#include <standard.h>
#include <cmd.h>
inherit CMD_BASE;
void setup() {
position = 1;
}
string query_short_help()
{
return "\"obfind name\" will return a (unique) list of objects "
"matching the id \"name\". Very useful for finding those "
"hard to locate items players lose.\n";
}
static int cmd(string str, object me) {
object *obs = objects();
int i;
string *names = ({ });
obs = filter(obs, "check_id", this_object(), str);
for(i=0;i<sizeof(obs);i++) {
names += ({ base_name(obs[i]) });
}
printf("%O", uniq_array(names));
return 1;
}
int check_id(object ob, string str) {
return (int)ob->id(str);
}