480
@verb #1492:"jump goto" any on top of/on/onto/upon this rxd #60
@program #1492:"jump goto" any on top of/on/onto/upon this
"goto <host> [socket] on slate"
"  given an explicit host name and optional socket, attempt to open a"
"  gopher connection to that socket"
words = $string_utils:words(dobjstr)
if (!words)
  player:tell("Usage:  ", verb, " &lt;host&gt; [socket]", prepstr ? tostr(" on ", iobjstr) | "")
  return
endif
host = words[1]
socket = 70
if (length(words) > 1)
  socket = toint(words[2])
  if (socket < 3)
    player:tell("The value '", words[2], "' is not a valid socket.")
    return
  endif
endif
path = ""
if (length(words) > 2)
  path = dobjstr[index(dobjstr, words[2]) + length(words[2]) + 1..length(dobjstr)]
endif
if (this:busy(tostr("jumping to ", host, " socket ", socket)))
  return
endif
this:announce_op(tostr("%N %<jumps> to ", host, " socket ", socket, path ? " " | "", path, " on the %t."))
parse = {host, socket, path, "1<jump>"}
this:set_pointer(parse, @this:_textp() ? listdelete(this.stack, 1) | this.stack)
this:busy(0)
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.

0