@verb #3309:"l*ook" any any any rdo #8438
@program #3309:"l*ook" any any any
match = args ? player:match_object(dobjstr ? dobjstr | iobjstr) | this
if (!valid(match))
  OBJ = `dobjstr ? dobjstr | iobjstr ! ANY => 0'
  if (detail = this:integrated_description(OBJ))
    if (typeof(detail) != $LIST)
      return player:tell(detail)
    else
      return player:tell(detail)
      "Kept for portability. . ."
      "return player:tell_lines(detail);"
    endif
  else
    return pass(@args)
  endif
else
  match:look_self()
  if (seat = this:seated_where(match))
    prefix = match == player ? "You are " | $cecil_utils:pronoun(match, "He") + " is "
    player:tell(prefix, this:expanded_seatedlist_msg({match.name}, seat, this:seatedlist_msgs()[seat]))
  endif
  return
endif
"Last modified by Dax (#789) on Wed May  4 06:46:03 2005 MDT."
.