По возможности помогите пожалуйста, надо расставить все по местам )
Можешь начинать читать с центра я там жирным шрифтом пометил
set %image[1] remont set %image[2] start set %image[3] passiv set %image[4] avtosborbox set $path "C:\bot\pet\"
set %imag[1] 111 set %imag[2] bos set $pata "C:\bot\" set #size size(%imag)
set $pat "C:\bot\" set %ima[1] vrag1 set %ima[2] vrag2 set %ima[3] vrag3 set #siz size(%ima)
set findoffsety - 79 set #ownerHandle findwindow (???????? - Mozilla Firefox) set #tmp getwindow (#ownerHandle child) set #childHandle getwindow (#tmp ) set #startX 0 set #startY 0 set #endX desktopwidth set #endY desktopheight
:start
set #size size(%image) //Старт for #x 1 #size 1 set #y findimage (#startX #startY #endX #endY ($path%image[#x].bmp) %arr #ownerHandle) if #y > 0 //если картинка найденa left %arr[1 1] %arr[1 2] wait 1000 end_if end_for // КОНЕЦ set #r findimage (#startX #startY #endX #endY (C:\bot\minikarta2.bmp) %arr #ownerHandle ) if #r > 0 set #x %arr [1 1] - 4 + random (178) set #y %arr [1 2] + 45 + random(102) left #x #y wait 300 // ждем 300мл сек end_if
// До этих сторк все четко Суть такова он кликнул minikarta2.bmp кораблик полетел появляется картинка d надо что бы пока находилась картинка d искались изображения set %imag[1] 111 set %imag[2] bos Если нашлась хоть 1-на он кликал на нее далее если кликнул искались цвета
2696200,3217424,1579156,7039322,2171749,1589743 если нашлись кликал нашлась хоть 1-на клик на нее КОНЕЦ
set %ima[1] vrag1 set %ima[2] vrag2 set %ima[3] vrag3 если нашлись выполняем left 79, 27 пока они не исчезнут
set #t findimage (#startX #startY #endX #endY (C:\bot\d.bmp) %arr #ownerHandle ) while #t > 0 set #t findimage (#startX #startY #endX #endY (C:\bot\d.bmp) %arr #ownerHandle )
set #y findimage (#startX #startY #endX #endY ($pata%imag[1].bmp) %arr #ownerHandle) set #u findimage (#startX #startY #endX #endY ($pata%imag[2].bmp) %arr #ownerHandle) if #y > 0 or #u > 0
left %arr[1 1] %arr[1 2]
goto atack end_if end_while
:atack set #f 1 while #f > 0 set #f 0 // флаг, что пока картинка не найдена
set #y findcolor (309, 189 995, 519 (2696200,3217424,1579156,7039322,2171749,1589743) %arr #ownerHandle) if #y > 0 set #f 1 // флаг, что картинка найдена left %arr[1 1] %arr[1 2] wait 300 send 1 wait 400
break
end_if end_if
end_while
set #z 1 while #z > 0 set #z 0 // флаг, что пока картинка не найдена for #c 1 #size 1 set #u findimage (#startX #startY #endX #endY ($pat%ima[#c].bmp) %arr #ownerHandle) if #u > 0 set #z 1 // флаг, что картинка найдена set #m findimage (#startX #startY #endX #endY (C:\bot\minikarta.bmp) %arr #ownerHandle) if #m > 0 set #x %arr [1 1] + 9 set #y %arr [1 2] + 57 left #x #y wait 7000
break end_if end_if end_for end_while
goto start
|