# SurroundSectors
# Won't work right if any of the adj sectors are voided
setarray $skipped 6
gettext CURRENTLINE $currsector "]:[" "] (?=Help"
getsector $currsector $sector
setvar $count 1
while ($count <= $sector.warps)
	if ($sector.warp[$count] <11) OR ($sector.warp[$count] = STARDOCK)
		add $skipped 1
		setvar $skipped[$count] $sector.warp[$count]
		add $count 1
		
	else
		getdistance $dist $sector.warp[$count] $currsector
		if $dist = 1
			send "m" $sector.warp[$count] "* z a9999* * fz 1* z cd <  "
			add $count 1
		else
			add $skipped 1
			setvar $skipped[$count] $secctor.warp[$count]
			add $count 1
		end
	end
end
send "@d"
waitfor "Average Interval Lag:"
setvar $count 1
echo ANSI_12 "*** SKIPPED THE FOLLOWING: " 
while ($count <= 6)
	if $skipped[$count] = 0
		add $count 1
	else
		echo $skipped[$count] & " "
		add $count 1
	end
end