HotKeySet("^{BREAK}", "huhu")
$ff = FileOpen("dan707.txt", 1)
$iis=1
$ii=1
$iii=1
$xx1=383
$yy1=420
$qwqw=1
Dim $mass[146], $mass1[146]
While $ii<=146
$mass1[$ii-1]=0
$ii+=1
WEnd
$ii=1
Sleep(8000)
Beep(500,5)
while $iii<=120
While $qwqw<=2
While $ii<=146
$xy=MouseGetPos()
$col=TrimColor("0x"&Hex(PixelGetColor($xx1,$yy1),6))
;FileWrite($ff,$xx1 & '_'& $yy1 & '_'& $col & ' ')
If $col<=67 and $mass[$ii-1]=0 Then
$mass[$ii-1]=0
Else
$mass[$ii-1]=1
EndIf
$xx1=$xx1+1
$ii=$ii+1
WEnd
$qwqw=$qwqw+1
$xx1=383
$ii=1
WEnd
While $iis<=146
If $mass[$iis-1]=0 Then
FileWrite($ff,' ')
Else
FileWrite($ff,'x')
EndIf
$iis+=1
WEnd
FileWriteLine($ff,'')
$mass=$mass1
$iis=1
$qwqw=1
$yy1=$yy1+1
$iii=$iii+1
WEnd
Beep(500,5)
FileClose($ff)
Func huhu()
Exit 0
EndFunc
Func TrimColor($TargetTrim)
;cs TrimarkColor - Comment Start
;Исползуется для получения из цвета в формате RGB значение яркости пикселя. Возвращает значение от 0 до 255.
;Скорость:
;Функция выполняется за ~0.06-0.10 мс.
;(с) Archy26 :)
;#ce TrimarkColor - Comment End
Dim $a, $a_fin
$a = Hex($TargetTrim, 6)
$a_fin = (Dec(StringTrimRight($a, 4)) + Dec(StringTrimLeft(StringTrimRight($a, 2), 2)) + Dec(StringTrimLeft($a, 4)))/3
$TargetTrim = Round($a_fin, 0)
Return $TargetTrim
EndFunc
