@verb #1:"_set_*" this none this rxdo #55
@program #1:"_set_*" this none this
if ((stuff = this:has_callable_verb("set_" + verb[6..$])) && `listassoc("set_" + verb[6..$], callers(), 2)[1] != stuff[1] ! E_RANGE => 1')
  set_task_perms(caller_perms())
  return this:("set_" + verb[6..$])(@args)
endif
try
  if (!index(property_info(this, verb[6..$])[2], "w") && !caller_perms():controls_property(this, verb[6..$]))
    raise(E_PERM)
  endif
except (E_PROPNF)
  set_task_perms(caller_perms())
endtry
if (verb[6..$] in {"wizard"})
  caller_perms().wizard && $wiz_utils:wiz_alert(tostr(this, ":", verb), "Valid attempt to set " + verb[6..$] + " property!")
  raise(E_PERM)
endif
try
  return this.(verb[6..$]) = args[1]
except (E_PROPNF)
  raise(E_PROPNF, tostr("Property not found: \"", this, ".", verb[6..$], "\"."))
endtry
"Last modified by Cecil (#7407) on Tue Nov  5 22:26:12 2002 MST."
.