26d
@verb #1606:"tell_contents_old" this none this rxdo #833
@program #1606:"tell_contents_old" this none this
"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 (`thing:has_property("msg_look_here") && index(thing.msg_look_here, thing.name) ! ANY => 0')
    player:tell(thing.msg_look_here)
  else
    thing.name == flag && !this:junk_p(thing) || (cont = {@cont, thing})
  endif
endfor
return pass(cont, @listdelete(args, 1))
"Last modified by Raptor (#6319) on Sun Oct 15 17:03:50 2000 MDT."
.

0