[Автоматизация] Бот для BlueStacks, считывание с экрана

Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна

HotKeySet("{Pause}", "Kill")
HotKeySet("{F1}", "Zam")

$u2=PixelGetColor(255, 802)
$u3=PixelGetColor(207, 420)
if $u2=2369580 And $u3=2369580 Then
	MouseClick("left", 106, 77, 1, 5)
EndIf

$k1=PixelChecksum(613, 309, 645, 341)
if $k1=2157676909 Then
	MouseClick("left", 700, 484, 1, 5)
	sleep(500)
	MouseClick("left", 912, 159, 1, 5)
	sleep(5000)
EndIf

Func Zam()
	$aPos = MouseGetPos()
$mPos=PixelChecksum(779, 148, 1052, 179)
$Hcs=PixelChecksum(511,117, 876, 149)
$nPos=PixelChecksum(516, 317, 911, 360)
$xPos=PixelChecksum(210, 144, 269, 199)
$epos=PixelChecksum(40,734,243,775)
$kpos=PixelChecksum(312, 229, 325, 379)
	$j1=PixelChecksum(592,154, 833, 187)
	$j2=PixelChecksum(627, 276, 780, 313)
$j3=PixelChecksum(530, 186, 889, 222)
$k1=PixelChecksum(613, 309, 645, 341)
$k2=PixelChecksum(602, 81, 654, 90)
	$d1=PixelChecksum(808, 753, 1024, 785)
$d2=PixelChecksum(519,71,890,105)
$d3=PixelChecksum(517,210,891,242)
$d4=PixelChecksum(176,154,235,211)
	$j4= PixelChecksum(74, 57, 146, 113)
$j5= PixelChecksum(911, 281, 927,309)
$j6=PixelChecksum(91,241,126,261)
$s1=PixelChecksum(260,62 ,311,84)
MsgBox(4096, "Координаты курсора мыши:", 'X= ' & $aPos[0] & ", Y= " & $aPos[1])
MsgBox(4096, "чексуммы", '$m=' & $mPos & @LF & _
	'$Hcs=' & $Hcs & @LF & _
	'$nPos=' & $nPos & @LF & _
	'$xpos=' & $xPos & @LF & _
	'$kpos=' & $kpos & @LF & _
	'$epos=' & $epos & @LF & _
	'$j1=' & $j1 & @LF & _
	'$j2=' & $j2 & @LF & _
	'$j3=' & $j3 & @LF & _
	'$k1=' & $k1 & @LF & _
	'$k2=' & $k2 & @LF & _
	'$j4=' & $j4 & @LF & _
	'$c7=' & $c7 & @LF & _
	'$j5=' & $j5 & @LF & _
	'$d1=' & $d1 & @LF & _
	'$d2=' & $d2 & @LF & _
	'$d3=' & $d3 & @LF & _
	'$d4=' & $d4 & @LF & _
	'$j6=' & $j6 & @LF & _
	'$s1=' & $s1)
WinActivate($WinName)
EndFunc

$pxlcolor1=PixelSearch(587, 101, 827, 326, 0x5EF0A0, 50);поиск пикселя1 с цветом1 и глубиной оттенков в 50.
							If Not @error Then
                                                        $pxlcolor2=PixelSearch(587, 101, 827, 326, 0x9EE022, 50);поиск пикселя2 с цветом2 и глубиной оттенков в 50.
							              If Not @error Then

								       sleep(100)
								       MouseClick ("left", $pxlcolor2[0],$pxlcolor2[1], 1, 10)
								       sleep(700)
							              EndIf
					                EndIf

Func Fight()
	$ii=0
	While 1
		M($z1,$t1,$z2,$t2,$z3,$t3,$z4,$t4,$z5,$t5,$z6,$t6,$z7,$t7,$z8,$t8,$z9,$t9,$z10,$t10)
		$dArray[8]=PixelGetColor(937, 93)
		If $dArray[8]<>478726 Then ExitLoop
		$ii=$ii+1
		if $ii=7 then
			Send("{UP}")
			$ii=0
		EndIf
	WEnd
EndFunc

Func M($i1,$j1,$i2,$j2,$i3,$j3,$i4,$j4,$i5,$j5,$i6,$j6,$i7,$j7,$i8,$j8,$i9,$j9,$i10,$j10)
 	Select
		Case $i1=1
			Send("{UP}")
		Case $i1=2
			Send("{DOWN}")
		Case $i1=3
			Send("{RIGHT}")
		Case $i1=4
			Send("{LEFT}")
		Case $i1=5
			Send("{SPACE}")
		Case $i1=6
			Send("{RIGHT down}")
			sleep(250)
			Send("{RIGHT up}")
	EndSelect
	Select
		Case $j1=1
			Sleep(150)
		Case $j1=2
			Sleep(250)
		Case $j1=3
			Sleep(350)
		Case $j1=4
			Sleep(450)
		Case $j1=5
			Sleep(0)
		Case $j1=6
			Sleep(550)
		Case $j1=7
			Sleep(650)
		Case $j1=8
			Sleep(750)
	EndSelect