[Maza Faka]

MaxxQ
Пробуй:

Код:

#include <Array.au3>

HotKeySet("{Esc}", "OnExit")

Global $CardArray[133]
Dim $new_checksum = PixelChecksum(0,0, 50,50)

$CardArray[0] = 132
$CardArray[1] = 1111111111
$CardArray[2] = 2222222222
$CardArray[3] = 3333333333
; И так далее, либо выложи формулу по которой происходит увеличение суммы, тогда можно будет сделать в цикле ;-)

While 1
    $checksum = PixelChecksum(0, 0, 50, 50)
    If $checksum <> $new_checksum Then
        _ArraySearch($CardArray, $checksum, 1)
        If @error Then
            Send("{z}")
        Else
            Send("{x}")
        EndIf
        $new_checksum = PixelChecksum(0,0, 50,50)
    EndIf
    Sleep(100)
WEnd

Func OnExit()
    Exit
EndFunc