265
@verb #2100:"tell_contents" none none none rxdo #2731
@program #2100:"tell_contents" none none none
"Copied from the generic enhanced room (#1606):tell_contents by Maxamillian (#833)Feb 25 15:01:20 2002"
"Remove objects from the visible contents whose name is the flag."
if ($tcm)
  return pass(@args)
endif
cont = {}
flag = "} hidden {"
for thing in (args[1])
  if (`(msg = thing:msg_look_here()) && index(msg, thing.name) ! ANY => 0')
    player:tell(msg)
  else
    thing.name == flag && !this:junk_p(thing) || (cont = {@cont, thing})
  endif
endfor
return pass(cont, @listdelete(args, 1))
.

0