254
@verb #9814:"accept*able" this none this rxdo #9814
@program #9814:"accept*able" this none this
"Copied from Cecil (#7407):accept by Lao-Tzu (#8084) Mar 25 16:55:52 2003"
"Copied from Generic Player (#12):accept by Lao-Tzu (#8084) Mar 25 16:48:57 2003"
{what} = args
ok = 1
if (!what:isa($physical))
  ok = 0
elseif (!this:is_unlocked_for(what))
  ok = 0
elseif (is_player(what))
  if (what:isa($project) && this in what.teachers)
    ok = 1
  else
    ok = 0
  endif
elseif (valid(caller_perms()) && !caller_perms():controls(this))
  ok = 0
endif
return ok && pass(@args)
.

0