52c
@verb #101:"bf_set_verb_info bf_set_verb_args" this none this rxdo #55
@program #101:"bf_set_verb_info bf_set_verb_args" this none this
{object, verbname, info} = args
{owner, perms, names} = info
if (!caller_perms():controls_verb(object, verbname))
  raise(E_PERM, "You don't control that verb!")
elseif (verb == "bf_set_verb_args")
  "Well, OK then..."
  pass(@args)
elseif (!caller_perms():controls(owner))
  raise(E_PERM, "You don't control the new owner of the verb!")
elseif (!is_player(owner))
  raise(E_PERM, "Non-players may not own verbs.")
elseif (index(perms, "w"))
  raise(E_INVARG, "Sorry, writable verbs are disabled on this MOO.  Contact a wizard if you think you have a valid reason for needing one.")
elseif (!index(perms, "d"))
  raise(E_INVARG, "!d verbs are no longer permitted on this MOO. Please use error catching constructs instead.")
elseif (!caller_perms():controls(object) && names != verb_info(object, verbname)[3])
  raise(E_PERM, "You may not rename a verb on an object that you do not control.")
endif
pass(@args)
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:10:31 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Sat May 21 03:39:51 2005 MDT."
.

0