@verb #14:"_rename_verb" this none this rxdo #55
@program #14:"_rename_verb" this none this
"Rename a verb.  Called by @rename."
set_task_perms(caller_perms())
{object, vname, iobjstr} = args
info = `verb_info(object, vname) ! ANY'
if (info == E_VERBNF)
  $msg:mtell("noverb", object, vname)
elseif (typeof(info) == $ERR)
  player:tell(info)
else
  if (iobjstr[1] == ":")
    iobjstr = iobjstr[2..$]
  elseif (to = $code_utils:parse_verbref(iobjstr))
    if (object == player:my_match_object(to[1]))
      "The specified target object was the source."
      iobjstr = to[2]
    else
      "This is really a @move, not a @rename"
      return this:_move_verb(@args)
    endif
  endif
  info[3] = iobjstr
  e = `set_verb_info(object, vname, info) ! ANY'
  if (typeof(e) == $ERR)
    player:tell("Renaming ", object, ":", vname, " --> ", e)
  else
    player:tell(object, ":", vname, " renamed to :\"", iobjstr, "\"")
  endif
endif
"Last modified by Dax (#789) on Tue May 17 14:11:29 2005 MDT."
.