/* -*- LPC -*- */
/*
* $Locker: $
* $Id: unidentify.c,v 1.1 2001/09/26 01:45:09 presto Exp $
*
*
*/
#define EFFECT "/std/effects/object/identity_hold"
inherit "/cmds/base";
mixed cmd(object *indirect_obs)
{
object *things;
things = filter(indirect_obs, (: $1->query_identifier() :));
if (!sizeof(things)) {
if (sizeof(indirect_obs) > 1)
write("You do not have any of those things identified.\n");
else
write("You do not have " + indirect_obs[0]->the_short() +
" identified.\n");
}
else {
things->set_identifier(0);
write("You stop identifying " + query_multiple_short(things, "one") +
".\n");
}
return 1;
}
mixed *query_patterns() {
return ({ "<indirect:object:me'object(s)'>", (: cmd($1) :) });
} /* query_patterns() */
