Бот на AutoIt, обработка изображения.

Бот AutoIt на примере флэш игры «Present Stacker».

В этой игре необходимо нажимать на подарки перевязанные красными лентами, так чтобы он упал на уже сложившуюся башню.

К сожалению данный макрос имеет придел, он не успевает захватить пиксель проанализировать и тыкнуть на подарок. В результате коробка падает мимо… максимальный счёт, который у меня удалось набрать 21400 …

Dim $X=960
Dim $Y=260
Dim $temp
MouseMove(960,265)
While 1
$checksum = PixelGetColor ( $X , $Y )
$Temp=Floor($checksum/0x10000)

if $temp>2*Mod($checksum,0x100) And
$temp>2*Floor(Mod($checksum,0x10000)/0x100) Then
MouseClick("left")
EndIf
WEnd

Dim $X=960

Dim $Y=260

Dim $temp

MouseMove(960,265)

While 1

$checksum = PixelGetColor ( $X , $Y )

$Temp=Floor($checksum/0x10000)

if $temp>2*Mod($checksum,0x100) And

$temp>2*Floor(Mod($checksum,0x10000)/0x100) Then

MouseClick("left")

EndIf

WEnd

Бот на AutoIt, обработка изображения.

Комментарии:

Добавить комментарий Отменить ответ