400
@verb #13:"_rename_prop" this none this rxdo #55
@program #13:"_rename_prop" this none this
"Rename a property.  Called by @rename."
set_task_perms(caller_perms())
{object, pname, iobjstr} = args
info = `property_info(object, pname) ! ANY'
if (info == E_PROPNF)
  $msg:mtell("noprop", object, pname)
elseif (typeof(info) == $ERR)
  player:tell(info)
else
  if (iobjstr[1] == ".")
    iobjstr = iobjstr[2..$]
  elseif (to = $code_utils:parse_propref(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_prop(@args)
    endif
  endif
  e = `set_property_info(object, pname, {@info, iobjstr}) ! ANY'
  if (typeof(e) == $ERR)
    player:tell("Renaming ", object, ".", pname, " --> ", e)
  else
    player:tell(object, ".", pname, " renamed to .", iobjstr)
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.

0