[Iris Online] iWalker. Потрошим память игры. Пытаемся написать бота.

#include <GUIConstants.au3>
#include <nomadmemory.au3>
Global $ProcessName = "IRIS ONLINE v1.18.22996"
Global $ProcessID = WinGetProcess($ProcessName,"")
SetPrivilege("SeDebugPrivilege", 1)
Global $HP = 0x00955e8c ; Указатель (см.картинку выше)
Global $DllInformation = _MemoryOpen($ProcessID)
Global $hWnd = WinGetHandle("IRIS ONLINE v1.18.22996", "")
$CurrentHP = (_MemoryRead($HP, $DllInformation, 'ptr'))
        ;MsgBox (1,"проверь",$CurrentHP ,"")
		$Cur = $CurrentHP + 32
       ; MsgBox (1,"проверь",$Cur,"")
		$CurrentHP = (_MemoryRead($Cur, $DllInformation, 'ptr'))
        ; MsgBox (1,"проверь",$CurrentHP,"")
		$Cur = $CurrentHP + 256
		;MsgBox (1,"проверь",$Cur,"")
		$CurrentHP = (_MemoryRead($Cur, $DllInformation, 'ptr'))
        ; MsgBox (1,"проверь",$CurrentHP,"")
		$Cur = $CurrentHP + 168
		;MsgBox (1,"проверь",$Cur,"")
	     $Curr =  (_MemoryRead($Cur, $DllInformation, 'float'))
MsgBox (1,"проверь",$Curr,"")

Func GetData($Param1, $Param2="no param", $Param3="no param")
	Local $Base, $MemTemp, $DataType, $Offset[5] = ["nop", "nop", "nop", "nop", "nop"] ;Определяем массив в который можно записать до 4 массивов. Сразу же присваиваем всем ячейкам какое-нибудь значение отличное от офсета.
	;$Base - сюда скрипт записывает необходимый базовый адрес для текущего запроса
	;$MemTemp - тут скрипт обрабатывает данные получаемые из памяти необходимые для текущего запроса
	;$DataType - сюда скрипт записывает тип данных необходимый для текущего запроса
	;При обращении в эту функцию, она сперва переопределяет все значения на необходимые скрипту в данный момент и далее отправляет эти данные на обработку
	Select
		Case $Param1 = "Char" ;наша структура работы с персонажем
			Select
				Case $Param2 = "Cur HP" ;жизни персонажа. Обращение: GetData("Char", "Cur HP")
					$Base = 0x00955890 ;база ХП
					$Offset[1] = "C5" ;Оффсет на ХП
					$DataType = "dword" ;тип данных
				Case $Param2 = "Cur MP" ;мана персонажа. Обращение: GetData("Char", "Cur HP")
					$Base = 0x00955890 ;база МП
					$Offset[1] = "C9" ;Оффсет на МП
					$DataType = "dword" ;тип данных
				Case $Param2 = "SXP" ;SXP персонажа. Обращение: GetData("Char", "SXP")
					$Base = 0x00955e8c ;база SXP
					$Offset[1] = "28" ;1-й Оффсет на SXP
					$Offset[2] = "140" ;2-й Оффсет на SXP
					$Offset[3] = "A8" ;3-й Оффсет на SXP
					$DataType = "float" ;тип данных
				Case Else
					SetError(1)
					;Сообщение об ошибке может быть закомменчено или наоборот, в зависимости от того чего мы хотим от скрипта.
					ErrorMsg('GetData("'&$Param1&'", WTF?...', 'Ошибка вызова: команды GetData("'&$Param1&'", "'&$Param2&'") не существует.')
			EndSelect
		Case $Param1 = "Target"
			Select
				Case $Param2 = "Cur HP" ;жизни цели. Обращение: GetData("Target", "Cur HP")
					$Base = 0x00955e8c ;база tHP
					$Offset[1] = "20" ;1-й Оффсет на tHP
					$Offset[2] = "100" ;2-й Оффсет на tHP
					$Offset[3] = "A8" ;3-й Оффсет на tHP
					$DataType = "float" ;тип данных
				Case Else
					;Сообщение об ошибке может быть закомменчено или наоборот, в зависимости от того чего мы хотим от скрипта.
					ErrorMsg('GetData("'&$Param1&'", WTF?...', 'Ошибка вызова: команды GetData("'&$Param1&'", "'&$Param2&'") не существует.')
			EndSelect
		Case Else
			;Сообщение об ошибке может быть закомменчено или наоборот, в зависимости от того чего мы хотим от скрипта.
			ErrorMsg('GetData(WTF?...', 'Ошибка вызова: команды GetData("'&$Param1&'") не существует.')
	EndSelect
	;Тут происходит обработка данных пришедших сверхку
	$MemTemp = (_MemoryRead($Base, $DllInformation)) ;первый запрос в память, полученный результат уже будет обрабатываться в цикле
	For $i = 2 To UBound($Offset, 1)-1 Step 1 ;i начинается с двух потому что было решено оставить [0] ячейку пустой, мб в будущем пригодится. В обращениях же к памяти обращения идут в ячейку [$i-1]
		If String($Offset[$i]) = "nop" Then ;Смотрим значение текущей ячейки. Если оно не содержит в себе оффсет
			$MemTemp =  (_MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation, $DataType)) ;Значит нам пора формировать последний запрос используя данные хранящиеся в пред идущей ячейке [$i-1], в котором необходимо указать тип данных которые мы желаем получить.
			ExitLoop ;Отправив последний запрос, выходим из цикла. Нам больше нечего искать.
		Else ;Если значение в текущей ячейке содержит в себе оффсет, значит и пред идущая ячейка содержит в себе оффсет. 
			$MemTemp =  (_MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation)) ;Формируем запрос используя оффсет хранящийся в пред идущей от текущей ячейке [$i-1]
		EndIf
	Next
	Return $MemTemp ;Возвращаем полученные данные.
EndFunc

Case $Param2 = "Pos" ;Обращение: GetData("Char", "Pos", ...
					$Base = 0x0094a154 ;Выносим сюда потому что $Base у всех адресов ниже идущей структуры одинаковый.
					$DataType = "float"
					$Offset[1] = "C"
					Select
						Case $Param3 = "X" ;Обращение: GetData("Char", "Pos", "X")
							$Offset[2] = "24"
						Case $Param3 = "Y" ;Обращение: GetData("Char", "Pos", "Y")
							$Offset[2] = "28"
						Case $Param3 = "Z" ;Обращение: GetData("Char", "Pos", "Z")
							$Offset[2] = "38"
						Case $Param3 = "R Base" ;Обращение: GetData("Char", "Pos", "R Base") Работаем с ячейкой отвечающей за ротацию чара
							$Offset[2] = "48"
						Case $Param3 = "R" ;Обращение: GetData("Char", "Pos", "R") ;Вычисляем ротацию.
							$Temp = GetData("Char", "Pos", "R Base")
							$Temp = $Temp - (360*Floor($Temp/360))
							Return $Temp
						Case $Param3 = "All" ;Обращение: GetData("Char", "Pos", "All")
							Local $rScan[4] = ["X", "Y", "Z", "R"] ;Создаем временный массив в который заносим то что будет сканироваться и в каком порядке оно будет сканироваться
							Local $rTemp[4] ;Создаем временный массив в который будем записывать результаты сканов
							For $i = 0 To UBound($rTemp, 1)-1 Step 1
								$rTemp[$i] = GetData("Char", "Pos", $rScan[$i]) ;Сканируем
							Next
							Return $rTemp ;Возвращаем массив
						Case Else
							SetError(3)
							;Сообщение об ошибке может быть закомменчено или наоборот, в зависимости от того чего мы хотим от скрипта.
							ErrorMsg('GetData("'&$Param1&'", "'&$Param2&'", WTF?...', 'Ошибка вызова: команды GetData("'&$Param1&'", "'&$Param2&'", "'&$Param3&'") не существует.')
					EndSelect

GetData("Target", "Cur HP")

DataOp("Target", "Cur HP")

GetData($Param1, $Param2="no param", $Param3="no param")

DataOp($Param1, $Param2="no param", $Param3="no param", $ToDo="Read", $Data="no data")

$MemTemp = (_MemoryRead($Base, $DllInformation))
For $i = 2 To UBound($Offset, 1)-1 Step 1
	If String($Offset[$i]) = "nop" Then
		$MemTemp =  _MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation, $DataType)
		ExitLoop
	Else
		$MemTemp =  (_MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation))
	EndIf
Next
Return $MemTemp

$MemTemp = (_MemoryRead($Base, $DllInformation))
For $i = 2 To UBound($Offset, 1)-1 Step 1
	If String($Offset[$i]) = "nop" Then
		If $ToDo = "Read" Then $MemTemp =  _MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation, $DataType)
		If $ToDo = "Write" Then $MemTemp =  _MemoryWrite($MemTemp+Dec($Offset[$i-1]), $DllInformation, $Data, $DataType)
		ExitLoop
	Else
		$MemTemp =  (_MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation))
	EndIf
Next
Return $MemTemp

If $ToDo = "Read" Then $MemTemp =  _MemoryRead($MemTemp+Dec($Offset[$i-1]), $DllInformation, $DataType)
If $ToDo = "Write" Then $MemTemp =  _MemoryWrite($MemTemp+Dec($Offset[$i-1]), $DllInformation, $Data, $DataType)

Dim $avArray [10][3]=[["195","391"],["181","391"],["164","384"],["141","381"],["126","390"], _;заполняем массив переменными (координатами)
                     ["103","400"],["82","411"],["25","369"],["100","78"],["15","89"]]
_ArrayDisplay($avArray);смотрим


For $i=0 to UBound($avArray)-1 ;преводим все переменные массива в числовой вид ..оО кто его знает зачем но без этого почему то незаработало
$avArray[$i][$ii] = Number($avArray[$i][$ii])
Next

select
case  $x1 < $Lx2  ; если координата x начала меньше х конечной
  For $i=0 to UBound($avArray)-1
  if UBound($avArray)-1< $I Then
	 ExitLoop
   elseif $avArray[$i][$ii] < $Lx2 and $avArray[$i][$ii] > $x1 then ; сортируем в диапазан значения из массива
  Else
	_ArrayDelete ( $avArray, $i ) ;удаляем лишнее
$i=$i-1
EndIf
Next
case $x1 > $Lx2 ; если координата x начала больше х конечной
For $i=0 to UBound($avArray)-1
  if UBound($avArray)-1< $I Then
	 ExitLoop
   elseif $avArray[$i][$ii] > $Lx2 and $avArray[$i][$ii] < $x1 then
  Else
	_ArrayDelete ( $avArray, $i )
$i=$i-1
EndIf
Next

EndSelect


_ArraySort( $avArray,1) ; сортируем по убыванию
_ArrayDisplay( $avArray, "Sort Decending" )


 For $i=0 to UBound($avArray)-1
 $Ax1 = $avArray[$i][$ii]
 $Ay1 = $avArray[$i][1]
 ;MsgBox (1,"проверь",$Ax1&$Ay1,"")
 $avArray[$i][2] = Number(Sqrt(($Ax1 - $x1) ^ 2 + ($Ay1 - $y1) ^ 2)) ;вычисляем расстояния между кооринатами текущего положения и чекпоинтов
_ArraySwap( $avArray[$i][0], $avArray[$i][2] ); переносим расстояния в первый столбец (ненашел просто как сортировать по другимстолбцам)
;_ArrayDisplay($avArray)

Next
_ArraySort( $avArray) ;сортируем по возрастанию для определения ближайшего чекпоинта
_ArrayDisplay( $avArray, "Sort Decending" )
 $chkX = $avArray[0][2] ;отправляем координаты ближайшей точки
 $chkY = $avArray[0][1]
Local $Return[2] = [$chkX, $chkY]
Return $Return