3cc
@verb #101:"bf_add_verb" this none this rxdo #55
@program #101:"bf_add_verb" this none this
{object, vinfo, vargs} = args
if (!caller_perms():controls(object))
  raise(E_PERM, "You have no permission to add this verb.")
elseif (!caller_perms():controls(vinfo[1]))
  raise(E_PERM, "You have no permission to create a verb owned by this player.")
elseif (!is_player(vinfo[1]))
  raise(E_PERM, "Non-player may not own verbs.")
elseif (index(vinfo[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 verb, talk to a wizard.")
elseif (!index(vinfo[2], "d"))
  raise(E_INVARG, "!d verbs are no longer permitted on this MOO. Please use error catching constructs instead.")
elseif (!caller_perms().programmer)
  raise(E_PERM, "Sorry, only programmers can add verbs")
endif
return pass(object, vinfo, vargs)
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:10:19 2001 MST."
.

0