setVar $targets " 1 2 3 4 5 6 7 8 9 10 1 " & STARDOCK & " " & ALPHACENTAURI & " " & STARDOCK & " " & RYLOS & " " & STARDOCK & " " & RYLOS & " " & ALPHACENTAURI & " " & RYLOS & " " & STARDOCK & " "
:step
    add $step 1
    getWord $targets $next_step $step "%%%%"
    if ($next_step <> "%%%%")
        getCourse $path CURRENTSECTOR $next_step
        setVar $i 2
        while ($i <= ($path + 1))
            send "mz" &  $path[$i] & "*nn* z a 99999 * j x n f q z 1 * z c d z * "
            setVar $c 1
            while (($c <= SECTOR.WARPCOUNT[$path[$i]]) AND ($step <= 20))
                setVar $targets $targets & " " & SECTOR.WARPS[$path[$i]][$c]
                add $c 1
            end
            add $i 1
        end
        goto :step
    end

delete "amTraktest.txt"
write "amtraktest.txt" STARDOCK & "*1*2*3*4*5*6*7*8*9*10*1*" & STARDOCK & "*" & RYLOS & "*" & ALPHACENTAURI & "*" & STARDOCK & "*" & ALPHACENTAURI & "*" & RYLOS & "*" & STARDOCK & "*DONE"
readToArray "amTraktest.txt" $myArray
setVar $incrArray 1
setVar $i 1
setVar $myArray2[1] STARDOCK
while ($myArray[($i + 1)] <> "DONE")
     getCourse $course $myArray[$i] $myArray[($i + 1)]
     setVar $pointer 2
     while ($pointer <= ($course + 1))
           send "mz" &  $course[$pointer] & "*nn* z a 99999 * j x n f q z 1 * z c d z * "
           setVar $adjs 1
           while ($adjs <= sector.warpcount[$course[$pointer]])
                 getDistance $dist sector.warps[$course[$pointer]][$adjs] $course[$pointer]
                 if ($dist = 1) and (sector.warps[$course[$pointer]][$adjs] > 10) and (sector.warps[$course[$pointer]][$adjs] <> STARDOCK)
                    send "mz" &  sector.warps[$course[$pointer]][$adjs] & "*nn* z a 99999 * j x n f q z 1 * z c d z * <"
                 elseif (sector.warps[$course[$pointer]][$adjs] > 10) and (sector.warps[$course[$pointer]][$adjs] <> STARDOCK)
                    add $incrArray 1
                    setVar $myArray2[$incrArray] sector.warps[$course[$pointer]][$adjs]
                 end
                 add $adjs 1
           end
           add $pointer 1
     end
     add $i 1
end
if ($incrArray > 1)
    setVar $i 1
    add $incrArray 1
    setVar $myArray2[$incrArray] STARDOCK
    while ($i < $incrArray)
    getCourse $course $myArray2[$i] $myArray2[($i+1)]
      setVar $pointer 2
    while ($pointer <= ($course + 1))
      send "mz" &  $course[$pointer] & "*nn* z a 99999 * j x n f q z 1 * z c d z * "
      add $pointer 1
    end
    add $i 1
    end
end