35d
@verb #5450:"look_cmd" this none this rxdo #9988
@program #5450:"look_cmd" this none this
match = player:my_match_object($string_utils:from_list(args, " "), this.location)
if (length(args) == 0)
  match = this.location
endif
if (match == $failed_match || match == $ambiguous_match || match == $nothing)
  match = player:my_match_object($string_utils:from_list(args, " "), this)
  if (match == $failed_match || match == $ambiguous_match || match == $nothing)
    this:tell("What \"", $string_utils:from_list(args, " "), "\"?")
  else
    player:tell(this:title(), ">>>")
    match:look_self()
    player:tell("<<<", this:title())
  endif
else
  player:tell(this:title(), ">>>")
  match:look_self()
  player:tell("<<<", this:title())
endif
"Last modified by Dax (#789) on Thu Dec 13 20:48:18 2001 MST."
.

0