1d7
@verb #3:"moveto_loud" this none this rxdo #7407
@program #3:"moveto_loud" this none this
{dest} = args
if (caller == this)
  set_task_perms(this.owner)
else
  set_task_perms(caller_perms())
endif
oa = ``this:msg_oarrive() ! E_VERBNF => this.msg_oarrive' ! E_PROPNF => ""'
od = ``this:msg_odepart() ! E_VERBNF => this.msg_odepart' ! E_PROPNF => ""'
this:moveto(dest)
oa && `dest:sub_announce(oa, oldloc) ! ANY'
od && `oldloc:sub_announce(od, dest) ! ANY'
.

0