@verb #7148:":warp" this none this rxdo #7951
@program #7148:":warp" this none this
{to} = args
n = to:num()
if (n in this.location.warps)
  this.location = to
  p = this:contents()[1]
  this:look_self(p)
  p.explored = setadd(p.explored, this.location)
else
  raise(E_NACC)
endif
"Last modified by manta (#7165) on Thu Dec  6 00:14:08 2001 MST."
.