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