343
@verb #101:"bf_add_property" this none this rxdo #55
@program #101:"bf_add_property" this none this
{object, name, value, pinfo} = args
if (!caller_perms():controls(object))
  raise(E_PERM, "You have no permission to add this property")
elseif (!caller_perms():controls(pinfo[1]))
  raise(E_PERM, "You have no permission to create a property owned by this player.")
elseif (index(pinfo[2], "w"))
  raise(E_INVARG, "Sorry, the writable flag has been disabled on this MOO.  If you have a valid reason for wanting a writable property, talk to a wizard.")
elseif (!caller_perms().programmer)
  raise(E_PERM, "Sorry, only programmers can add properties")
endif
ret = pass(@args)
set_task_perms(caller_perms())
object:("_set_" + name)(value)
return ret
"Last modified by Lao-Tzu (#8084) on Sun Jun 17 17:58:24 2001 MDT."
.

0