@verb #7854:"ping" any any any rdo #7165
@program #7854:"ping" any any any
player:tell("Attempting connection to: ", argstr)
try
  x = $network:open(argstr, 7)
except (E_INVARG)
  return player:tell(argstr, " is currently unreachable.")
endtry
$network:close(x)
player:tell(argstr, " is currently reachable.")
"Last modified by manta (#7165) on Fri Feb 20 21:21:12 1998 EST."
.