2b7
@verb #6:"match_exit" this none this rxdo #60
@program #6:"match_exit" this none this
"Copied from Test Center (#4772):match_exit by Hacker (#60)Mar  6 12:31:25 2001"
"Copied from Generic Room (#6):match_exit by Hacker (#60)Mar  6 11:47:33 2001"
what = args[1]
if (what)
  yes = $failed_match
  for e in (this:exits())
    if (typeof(e) == WAIF || valid(e) && what in {@$get_property(e, "aliases"), @`e.name ! E_TYPE => {}'})
      if (yes == $failed_match)
        yes = e
      elseif (yes != e)
        return $ambiguous_match
      endif
    endif
  endfor
  return yes
else
  return $nothing
endif
"Last modified by Lao-Tzu (#8084) on Mon Aug 12 08:42:43 2002 MDT."
.

0