2ba
@verb #1606:"tell_contents" none none none rxdo #833
@program #1606:"tell_contents" none none none
"Remove objects from the visible contents whose name is the flag."
"Also remove object containing the $window which called us, if applicable."
cont = {}
flag = "} hidden {"
for thing in (args[1])
  if (caller:isa($window) && thing:contains(caller))
    "Windows can't ordinarily see the building they're in."
  elseif (`(msg = thing:msg_look_here()) && index(msg, thing.name) ! ANY => 0')
    player:tell(msg)
  elseif (thing.name == flag && !this:junk_p(thing))
    "Allow thing to hide."
  else
    cont = {@cont, thing}
  endif
endfor
return pass(cont, @listdelete(args, 1))
.

0