@verb #8852:"@find" any none none rdo #8852
@program #8852:"@find" any none none
"'@find #<object>', '@find <player>', '@find :<verb>' '@find .<property>' - Attempt to locate things. Verbs and properties are found on any object in the player's vicinity, and some other places."
if (!dobjstr)
  player:tell("Usage: '@find #<object>' or '@find <player>' or '@find :<verb>' or '@find .<property>'.")
  return
endif
if (dobjstr[1] == ":")
  name = dobjstr[2..$]
  this:find_verb(name)
  return
elseif (dobjstr[1] == ".")
  name = dobjstr[2..$]
  this:find_property(name)
  return
elseif (dobjstr[1] == "#")
  target = toobj(dobjstr)
  if (!valid(target))
    player:tell(target, " does not exist.")
  endif
else
  target = $string_utils:match_player(dobjstr)
  $command_utils:player_match_result(target, dobjstr)
endif
if (valid(target))
  player:tell(target.name, " (", target, ") is at ", valid(target.location) ? target.location.name | "Nowhere", " (", target.location, ").")
endif
"Last modified by Iscariah (#8852) on Sat Oct 15 09:38:25 2005 MDT."
.