277
@verb #8500:"accept" this none this rxd #6397
@program #8500:"accept" this none this
if (args[1] in {$repo_man, $housekeeper})
  return 1
endif
ok = this:enter_allowed(@args)
if (this.security == 1)
  return 1
elseif (this.security == 2)
  if (!ok)
    return 0
  endif
  return 1
elseif (this.security == 3)
  if (listassoc("tell_exits", callers(), 2))
    return 1
  endif
  if (ok)
    return 1
  else
    return 0
  endif
elseif (this.security == 4)
  if (!ok)
    return 0
  endif
elseif (this.security == 5)
endif
return ok
"Last modified by Lao-Tzu (#8084) on Mon Nov  8 07:27:24 1999 MST."
.

0