42b
@verb #1606:"acceptable" this none this rxdo #60
@program #1606:"acceptable" this none this
"Copied from Generic Room (#6):acceptable by Hacker (#60) Jan 31 08:34:01 2003"
"Copied from the generic enhanced room (#1606):acceptable by Maxamillian (#833) Jan 31 07:05:27 2003"
"This verb is ONLY used to check if the object is allowed in.  This verb SHALL NOT prompt, make noise, etc."
{what} = args
if (what.owner:controls(this) || `what in this.residents ! E_TYPE')
  return 1
elseif (!this:is_unlocked_for(what))
  return 0
elseif (!this.free_entry)
  "Approved exits can move stuff in"
  for x in ($code_utils:callers())
    if (valid(x[1]) && x[1]:isa($exit) && x[2] == "move" && this:is_entrance(x[1]))
      return 1
    endif
  endfor
  "Let things enter which are already enclosed"
  location = what.location
  while (location != $nothing)
    if (location == this)
      return 1
    endif
    location = location.location
  endwhile
  return 0
endif
return 1
"Last modified by Lao-Tzu (#8084) on Fri Jan 31 08:34:01 2003 MST."
.

0