[Grepolis]Нужен бот для автоматизации сбора ресурсов в фоне

WinActivate('Grepolis')
While 1
;~ Хидрастрихи
SeloCheck(536,584)
Sleep(1000)
;~ Колукистри
SeloCheck(384,519)
Sleep(1000)
;~ Гапси
SeloCheck(461,608)
Sleep(1000)
;~ Гагавта
SeloCheck(602,608)
Sleep(1000)
WEnd
func MenuCheck()
	Dim $i=0
	$coord=PixelSearch(349,351,364,370,0xEEDDBB,2)
	if not @error then 
		While $i=0
		$coord=PixelSearch(390,500,410,510,0xFFFFFF,2)
		if not @error then 
			MouseClick('left',530,665,1,20)
			Sleep(1000)
			ToolTip('тыкнули кнопку',150,150)
			Sleep(1000)
			$i=$i+1
		EndIf
		WEnd
	EndIf
EndFunc
Func SeloCheck($x1,$y1)
;~ 	координаты черной точки на счетчике
$coord=PixelSearch($x1,$y1,$x1+10,$y1+5,0xFFF3D6)
	if not @error then 
		ToolTip('ждем 30 секунд',150,150)
		Sleep(30000)
	Else
		MouseClick('left',$x1+9,$y1-16,1,15)
		Sleep(300)
		MouseClick('left',$x1+9,$y1-16,1,15)
		Sleep(1000)
		MenuCheck()
	EndIf 
EndFunc