@verb #13:"_move_prop _move!_prop" this none this rxdo #55
@program #13:"_move_prop _move!_prop" this none this
"Move a property.  Called by @move."
set_task_perms(caller_perms())
{object, pname, iobjstr} = args
if (this:("_copy" + verb[6..$])(@args))
  "The property has been copied.  Now delete the original."
  if ($ERR == typeof(e = `delete_property(object, pname) ! ANY'))
    return player:tell("Deleting ", object, ".", pname, " --> ", e)
  endif
  player:tell(object, ".", pname, " removed.")
endif
"Last modified by Dax (#789) on Tue May  3 15:38:52 2005 MDT."
.