@verb #51:"ok" this none this rxdo #60
@program #51:"ok" this none this
who = args[1]
if (who < 1 || who > length(this.active))
  return E_RANGE
elseif (length(c = callers()) < 2 ? player == this.active[who] | c[2][1] == this || ($perm_utils:controls(c[2][3], this.active[who]) || c[2][3] == $editor.owner))
  return 1
else
  return E_PERM
endif
"Last modified by Dax (#789) on Sun Aug 16 19:35:18 1998 EDT."
.