@verb #16:"@nec*ronomicon" any any any rdo #55
@program #16:"@nec*ronomicon" any any any
"Finds an object in the garbage that matches the title provided."
if (this != player)
  return $msg:mtell("huh")
endif
this:tell("   **** Necronomicon ****")
for g in (children($garbage))
  $command_utils:suspend_if_needed()
  if (`index(g.old_names, argstr) ! ANY => 0')
    if (typeof(spirit = g:_get_ghost()) == $LIST && length(spirit) > 5)
      b = spirit[3]
      name = b[1]
      parent = b[3] ? b[3][1] | $nothing
      owner = b[5]
      children = length(b[4])
      verbs = length(spirit[5])
      time = spirit[2]
      corrupt = spirit[1]
      this:tell(g.location != $recycler ? "-> " | "", name, " (", g, "), child of ", parent, ", owned by ", owner, ". Had ", children, " kids and ", verbs, " verbs.")
    endif
  endif
  $command_utils:suspend_if_needed()
endfor
this:tell("   **** end ****")
"Last modified by Dax (#789) on Tue May  3 13:55:52 2005 MDT."
.