@verb #51:"done q*uit pause" none none none rxdo #55
@program #51:"done q*uit pause" none none none
if (!(caller in {this, player}))
  return E_PERM
elseif (!(player in this.active))
  player:tell("Something weird happened. Type 'home' to return to your home.")
elseif (!valid(origin = this.original[who = player in this.active]))
  player:tell("I don't know where you came here from.")
elseif (this == $mail_editor && this.sending[who])
  player:tell("Wait until the mail is done sending!")
else
  set_task_perms(player)
  try
    player:moveto(origin)
  except (E_NACC)
  endtry
  if (player.location == this)
    player:tell("Hmmm... the place you came from doesn't want you back.")
  else
    dobj = player
    $msg:mtell((this:isa($verb_editor) ? "verb" | (this:isa($note_editor) ? "note" | (this:isa($mail_editor) ? "mail" | ""))) + "arrive")
    return
  endif
endif
player:tell("You'll have to use 'home' or a teleporter.")
"Last modified by Dax (#789) on Sat Nov 23 02:14:44 2002 MST."
.