293
@verb #3136:"teleport follow" any any any rxd #2633
@program #3136:"teleport follow" any any any
$dperms:only_owner()
if (verb == "teleport")
  targ = $eve:my_match_object(argstr)
else
  targ = $su:match_player(argstr)
  targ = valid(targ) ? targ.location | targ
endif
if (targ == $failed_match)
  $eve:tell("Who or What?")
elseif (!targ:acceptable($eve))
  $eve:tell(targ:title(), " doesn't want to accept you.")
endif
$eve.location:announce_all(this:msg_sub(this.msg_teleport_leave))
move($eve, targ)
$eve.location:announce_all(this:msg_sub(this.msg_teleport_arrive))
"Last modified by Janette (#2633) on Thu Aug  9 15:00:49 2001 MDT."
.

0