24b
@verb #7407:"accept*able" this none this rxdo #8084
@program #7407:"accept*able" this none this
"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)
"Last modified by Cecil (#7407) on Tue Mar 25 16:55:21 2003 MST."
.

0