@verb #5450:"init_follow" this none this rxdo #9988
@program #5450:"init_follow" this none this
if (!(caller == this || $perm_utils:controls(caller, this) || $perm_utils:controls(caller_perms(), this)))
  return E_PERM
endif
if (!is_player(this.location))
  dest = args[1].location
  old_loc = this.location
  if (this:moveto(dest) == 0)
    old_loc:announce_all($msg:substitute(this:msg_odepart()))
    dest:announce_all($msg:substitute(this:msg_oarrive()))
  else
    this.owner:Tell(E_NACC)
  endif
else
  if (this:moveto(args[1].location) == 0)
    args[1].location:announce_all($msg:substitute(this:msg_oarrive()))
  endif
endif
"Last modified by manta (#7165) on Fri Sep 11 05:09:59 1998 EDT."
.