inherit COMMAND_BASE;
int cmd( object *indirect_obs ) {
object ob;
mapping prop;
string *sorted, property;
string txt;
txt = "$P$Properties$P$";
foreach( ob in indirect_obs ) {
prop = filter( ob->query_properties(), (: $2 :) );
sorted = sort_array( keys( prop ), 1 );
foreach( property in sorted ) {
txt += sprintf( "$I$0,5=(%s): %O$I$0,-5=\n", property, prop[ property ] );
}
}
tell_object( this_player(), txt );
return 1;
} /* cmd() */
mixed *query_patterns() {
return ({ "<indirect:wiz-present>", (: cmd( $1 ) :) });
} /* query_patterns() */
