#SingleInstance Force 
SetBatchLines -1 
q::
ImageSearch, xStart, yStart, 499, 426, 542, 450, % A_ScriptDir "\newscan\newdollar2.png"

; форум

xEnd := 900, yEnd := 450
CountDigit := 4 ; Длинна искомого числа. -1 любая длинна.
START := A_TickCount, CountFound := 0, NumFound := Res := ""

Loop 10 {
    NumSearch := A_Index-1, xStartPos := xStart
    Loop {
        ImageSearch, xFound, , xStartPos, yStart, xEnd, yEnd, % A_ScriptDir "\newscan\" NumSearch ".png"
        If ErrorLevel 
            Break
        NumFound .= xFound ">" NumSearch "|", xStartPos := xFound+3, CountFound++
        }  Until CountFound = CountDigit 
    } Until CountFound = CountDigit
   

Sort, NumFound, N D|


Loop, parse, NumFound, |
    Res .= SubStr( A_LoopField, 0) 

MsgBox,, % A_TickCount - START, % Res 

Return

esc::ExitApp

#SingleInstance Force 
    ; Определяет, разрешено ли скрипту запускаться снова, если он уже выполняется.
SetBatchLines -1 

1::

ImageSearch, xStart, yStart, 499, 426, 542, 450, % A_ScriptDir "\newscan\newdollar2.png"

; форум

xEnd := 900, yEnd := 450

START := A_TickCount, CountFound := 0, NumFound := Res := ""
; 
Loop {
    NumSearch := A_Index-1, xFound := ErrorLevel := 0
    Loop {
        ImageSearch, xFound, , xStart, yStart, xEnd, yEnd, % A_ScriptDir "\newscan\" NumSearch ".png"
        If ErrorLevel
            Break
        NumFound .= xFound NumSearch "|", xStart := xFound+1, CountFound++
    }
    If (CountFound = 4 || NumSearch = 9)
        Break
    }
    
Sort, NumFound, N D|

Loop, parse, NumFound, |
    Res .= SubStr( A_LoopField, 0) 

MsgBox,, % A_TickCount - START, % Res 
return

esc::ExitApp

NumFound .= xFound NumSearch "|"

 
#SingleInstance Force 
SetBatchLines -1 
SetWorkingDir %A_ScriptDir% 

Gui, Font, s99, Verdana
Gui, Add, Text, cGreen Border x0 y0, 3469
Gui, Show, x1 y1
Return

1:: 
 ; Эти координаты задают всю область поиска 
 ; т.е. после нахождения dollar2.png 
xStart := 0, yStart := 0, xEnd := 450, yEnd := 250
CountDigit := 4 ; Максимальная длинна искомого числа. -1 любая длинна.
START := A_TickCount, CountFound := 0, NumFound := Res := ""

Loop 10 
{
    NumSearch := A_Index-1, xStartPos := xStart
    Loop 
    {
        ImageSearch, xFound, , xStartPos, yStart, xEnd, yEnd, % NumSearch ".png" 
        If ErrorLevel 
            Break
        NumFound .= xFound ">" NumSearch "|", xStartPos := xFound+1, CountFound++
    }  Until CountFound = CountDigit 
} Until CountFound = CountDigit

NumFound := SubStr( NumFound, 1, -1)
Sort, NumFound, N D| 
Loop, parse, NumFound, |
    Res .= SubStr( A_LoopField, 0)
MsgBox,, % A_TickCount - START "ms", % Res 
Return

GuiClose:
    ExitApp  

#SingleInstance Force 
SetBatchLines -1 
SetWorkingDir %A_ScriptDir%

Gui, Font, s99, Verdana
Gui, Add, Text, cGreen Border x0 y0, 9876
Gui, Show, x1 y1
Return
     
2::
 ; Эти координаты задаются после нахождения dollar2.png 
xStart1 := 0, yStart1 := 0, xEnd1 := 150, yEnd1 := 250
xStart2 := 100, yStart2 := 0, xEnd2 := 250, yEnd2 := 250
xStart3 := 200, yStart3 := 0, xEnd3 := 350, yEnd3 := 250
xStart4 := 300, yStart4 := 0, xEnd4 := 450, yEnd4 := 250
START := A_TickCount, Res := ""
CountDigit := 4 ; Количество областей поиска.

Loop %CountDigit% 
{
    I := A_Index
    Loop 10 
    { 
        ImageSearch, , , xStart%I%, yStart%I%, xEnd%I%, yEnd%I%, % A_Index-1 ".png" 
        If ErrorLevel 
            Continue
        Res .= A_Index-1
        Break 
    }  
} 
    
MsgBox,, % A_TickCount - START "ms", % Res 
Return    

loop {
    ...
    if !ErrorLevel
        {
break
        }
    if ErrorLevel
    break
}
...

setbachline, -1

loop {
    WinGetPos,,, W, H, A
    ImageSearch, xD, yD, 499, 430, 551, 456, C:\image\NZT_Start\scan_X\dollar2.png
    if !ErrorLevel
        {
break
        }
    if ErrorLevel
    break
}

; !!! находка кординатов 1 цифры
S1_x1:=xd+5, S1_x2:=S1_x1+15
; !!! находка кординатов 2 цифры
S2_x1:=S1_x2-5, S2_x2:=S1_x2+10
; !!! находка кординатов 3 цифры
s3_x1:=S2_x2-4, s3_x2:=S2_x2+12
; !!! находка кординатов 4 цифры
s4_x1:=S3_x2-5, s4_x2:=S3_x2+8
; !!! находка кординатов по вертикале
S1_y1:=yd-4, 
S1_y2:=S1_y1+20

s_num1:= ;
s_num2:= ;
s_num3:= ;
s_num4:= ;

num:=1 ; 1 включить/ 0 - выключить
Generation:
WinActivate, Ahk_class #########
if num = 1
scan_x1 := S1_x1, scan_x2 := S1_x2
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~n2
if num = 2
scan_x1 := S2_x1, scan_x2 := S2_x2
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~n3
if num = 3
scan_x1 := s3_x1, scan_x2 := s3_x2
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~n4
if num = 4
scan_x1 := s4_x1, scan_x2 := s4_x2

scan_y1 := S1_y1
    scan_y2 := S1_y2
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 0
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\0.png
    if !ErrorLevel
        {
stack_n = 0
goto, boomnumber
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\00.png
    if !ErrorLevel
        {
stack_n = 0
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\1.png
    if !ErrorLevel
        {
stack_n = 1
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\11.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 1
goto, boomnumber
        }
    if ErrorLevel
    break
}

;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 2
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\2.png
    if !ErrorLevel
        {
stack_n = 2
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\22.png
    if !ErrorLevel
        {
stack_n = 2
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\22.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 2
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 3
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\3.png
    if !ErrorLevel
        {
stack_n = 3
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\33.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 3
goto, boomnumber
        }
    if ErrorLevel
    break
}

;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 4
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\4.png
    if !ErrorLevel
        {
stack_n = 4
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\44.png
    if !ErrorLevel
        {
stack_n = 4
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\44.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 4
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 5
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\5.png
    if !ErrorLevel
        {
stack_n = 5
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\55.png
    if !ErrorLevel
        {
stack_n = 5
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\55.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 5
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 6
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\6.png
    if !ErrorLevel
        {
stack_n = 6
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\66.png
    if !ErrorLevel
        {
stack_n = 6
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\66.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 6
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 7
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\7.png
    if !ErrorLevel
        {
stack_n = 7
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\77.png
    if !ErrorLevel
        {
stack_n = 7
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\77.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 7
goto, boomnumber
        }
    if ErrorLevel
    break
}

;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 8
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\8.png
    if !ErrorLevel
        {
stack_n = 8
goto, boomnumber
        }
    if ErrorLevel
    break
}
;~!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 9
loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\9.png
    if !ErrorLevel
        {
stack_n = 9
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\99.png
    if !ErrorLevel
        {
stack_n = 9
break
        }
    if ErrorLevel
    break
}

loop {
    WinGetPos,,, W, H, A
    ImageSearch, X, Y, scan_x1, scan_y1, scan_x2, scan_y2, C:\image\NZT_Start\scan_X\point\99.png
    if !ErrorLevel
        {
            s_num4 := 0
stack_n = 9
goto, boomnumber
        }
    if ErrorLevel
    break
}

boomnumber:
if num = 1
{
s_num1 := stack_n, num := 2
goto, generation
}
if num = 2
{
s_num2 := stack_n, num :=3
goto, generation
}
if num = 3
{
s_num3 := stack_n, num :=4
goto, generation
}

number = %s_num1%%s_num2%%s_num3%%s_num4%

#persistent ; Делает скрипт постоянно выполняющимся
#NoEnv ; Отменяет проверку для пустых переменных
menu, tray, NoStandard
menu, tray, add,Add Scale,MenuHandler
menu, tray, add,Dec Scale,MenuHandler
menu, tray, add,Exit,MenuHandler 

SetBatchLines -1
CoordMode, Mouse, Screen
CoordMode, Tooltip, Screen
CoordMode, Pixel, Screen

Data:="#803+;|,.."
;~ Data:="#"

Length:=StrLen(Data)
nScale:=1

 
Gui,+Resize
Gui, font,s5,Terminal
;~ Gui, font,s5, Consolas 
Gui, Add, Edit, x0 y0 w600 h400 -wrap +HScroll +VScroll vResultText



MsgBox,Ctrl+LButton to start

^LButton::

MouseGetPos, scan_x_start, scan_y_start
currentXpos=%scan_x_start%
currentYpos=%scan_y_start%
ToolTip,``, scan_x_start, scan_y_start
WinGet,TipId,ID,ahk_class tooltips_class32
WinSet, Transparent, 100, ahk_id %TipId%

loop
{
    MouseGetPos, scan_x, scan_y
    scan_x-=currentXpos
    scan_y-=currentYpos
    
    WinMove,ahk_id %TipId%, , , , %scan_x%, %scan_y%
    GetKeyState, state, LButton,P
;~     ToolTip,%scan_x% * %scan_y%,,2
    TrayTip,Size,%scan_x% * %scan_y%
    if state=u
    {
        ToolTip
        TrayTip
        break
    }
}


CoordMode, Pixel, Screen
CoordMode, Mouse, Screen
MouseGetPos, scan_x_end, scan_y_end

scan_current_y=%scan_y_start%
scan_current_x=%scan_x_start%
scan_current_line:=""
Loop
{
    scan_current_x++
    if scan_current_x > %scan_x_end%
    {
        scan_current_line =%scan_current_line%`r`n
        scan_current_y:=scan_current_y+nScale
        if scan_current_y > %scan_y_end%
        {            
            break
        }
        Else           
        {
            scan_current_x = %scan_x_start%
            Proce:=Ceil(scan_current_y/scan_y_end*100)
            TrayTip, ,???? %Proce% `%, , 1
            continue
        }
        
    }
    PixelGetColor, ColorV, %scan_current_x%, %scan_current_y%
    
    b := ColorV >> 16 
    g := (ColorV >> 8) & 0xFF 
    r := ColorV & 0xFF
    

    YB:=Ceil((0.3*r)+(0.6*g)+(0.1*b))
    dot:=Ceil(YB/255*Length)
    StringMid,dot,Data,dot,1
    
    ColorV:="#" . r . g . b
;~     scan_current_line =%scan_current_line%`[color=%ColorV%`]%dot%`[`/color`]
    scan_current_line =%scan_current_line%%dot%

}

TrayTip, ,????, , 1
sleep, 1000
TrayTip

GuiControl,,ResultText,%scan_current_line% 
Gui, Show,,Reg2Text 
return

GuiClose:
GuiControl,,ResultText,,
Gui,Hide

GuiSize:
If (ErrorLevel<>1) And (A_GuiWidth<>0)
{
    GuiControl,Move,ResultText,x0 y0 w%A_GuiWidth% h%A_GuiHeight%
}
Return

MenuHandler:
If (A_ThisMenuItemPos=1)
{
    nScale+=0.2
    TrayTip,,YScale:%nScale%
    Sleep 3000
    TrayTip,,
}
Else If (A_ThisMenuItemPos=2)
{
    nScale-=0.2
    TrayTip,,YScale:%nScale%
    Sleep 3000
    TrayTip,,
}
Else
{
    ExitApp
}    
Return