[Массивы] Логическое определение ближайшей точки

func _check()
	sleep(200)
		$x = _MemoryRead("0x"&$x, $dll,"dword")
		$y = _MemoryRead("0x"&$y, $dll,"dword")
	;---------chk radius--------------
		if $sx > $x Then
		$minusx = $sx - $x
	else
		$minusx = $x - $sx
	EndIf
	if $sy > $y Then
		$minusy = $sy - $y
	else
		$minusy = $y - $sy
	EndIf
	sleep(100)
	;-----------math over-------------
	If $minusx = 0 or $minusy = 0 Then
	_check()
endif
	If $minusx < 3 or $minusy < 3 Then
	_sdvig()
Else
	If $minusx > 3 or $minusy > 3 Then
	_goto()
EndIf
endif
EndFunc

func _sdvig()
endfunc
func _goto()
endfunc

; поиск ближайшего вейпоинта

#include <Array.au3>

Dim $waypoints[5][2] = [[1,1],[2,2],[3,3],[4,4],[5,5]]   ; координаты вейпоинтов [x,y]
Dim $radius[5]

        $x = _MemoryRead("0x"&$x, $dll,"dword")
        $y = _MemoryRead("0x"&$y, $dll,"dword")

For $i=0 to 4							; считаем расстояния до всех вейпоинтов
	$delta_x = $x - $waypoints[$i][0]
	$delta_y = $y - $waypoints[$i][1]
	$radius[$i] = Sqrt ( $delta_x * $delta_x + $delta_y * $delta_y )
Next

$i = _ArrayMinIndex($radius)     ; получаем индекс ближайшего вейпоинта

MsgBox(0, "вейпоинт", "ближайшая точка № " & $i)

#include ...
#form...
$edit2 = "список с вейпоинтами"
Gui описания.. (GUI_ONEVENT_1)
(func ()  чтение памяти (аля _reglibregister 1500))
func()
if $x <> $curx or $y <> $cury then
for
... определение ближайшей точки вейпоинта ...
do
If $curx > $ix then
mouseclick (координаты)
If $curx < $ix then
mouseclick (координаты)
If $cury > $iy then
mouseclick (координаты)
If $cury < $iy then
mouseclick (координаты)
...
зациклить пока не достигнем нужной точки, и врубим проверку заново.

собственно както так -)

Func _File4Array($lFileDir,$lSection)
Local $iUb2 = 2
Dim $aSection = IniReadSection($lFileDir, $lSection)
If @error Then
	Return @error
EndIf
				;Author: "madmasles"
Dim $aResult[$aSection[0][0]][$iUb2]
For $i = 0 To $aSection[0][0] - 1
    Local $aTemp = StringSplit($aSection[$i + 1][1], '|')
    If $iUb2 < $aTemp[0] Then
        $iUb2 = $aTemp[0]
        ReDim $aResult[$aSection[0][0]][$iUb2]
    EndIf
    For $j = 0 To $aTemp[0] - 1
        $aResult[$i][$j] = $aTemp[$j + 1]
    Next
Next
Return $aResult
EndFunc

Func _Array4File($lFileDir,$Array4File,$lSection='Base')
	For $i=0 To 100
		If $Array4File[$i][0]='' Then Return 0
		IniWrite($lFileDir,$lSection,$i,$Array4File[$i][0]&'|'&$Array4File[$i][1]&'|'&$Array4File[$i][2]&'|'&$Array4File[$i][3])
	Next
EndFunc