@verb #8084:"convert_exit" this none this rxdo #55
@program #8084:"convert_exit" this none this
caller_perms() == #8084 || raise(E_PERM)
{exit} = args
if (parent(exit) != $exit && parent(exit) != #4766 || verbs(exit) || properties(exit))
  raise(E_INVARG, "Too complex for my blood!")
endif
set_task_perms(exit.owner)
newexit = $vexit:new()
newexit->dest = exit.dest
newexit->aliases = {exit.name, @exit.aliases}
newexit->key = exit.key
newexit->msg_nogo = exit.msg_nogo
newexit->msg_onogo = exit.msg_onogo
newexit->msg_arrive = exit.msg_arrive
newexit->msg_oarrive = exit.msg_oarrive
newexit->msg_oleave = exit.msg_oleave
newexit->msg_leave = exit.msg_leave
newexit->obvious = exit.obvious
return newexit
"Last modified by Lao-Tzu (#8084) on Wed Aug 21 06:29:16 2002 MDT."
.