Colors.au3 (CheckPixel, TrimColor, GetSimpleColor)

Func CheckPixel($x1, $y1, $x2, $y2, $light, $light2=0xFF)
Local $i, $j, $pixelfound=0, $PTcolor, $l1t, $l2t
$i=$y1
if $light>0xFF then
 $l1t=TrimColor($light)
else
 $l1t=$light
endif
if $light2>0xFF then
  $l2t=TrimColor($light2)
else
 $l2t=$light2
endif
While $i<=$y2 and $pixelfound==0
$j=$x1
While  $j<=$x2 and $pixelfound==0
$PTcolor=TrimColor("0x"&Hex(PixelGetColor($j, $i), 6))
if $PTcolor>=$l1t and $PTcolor<=$l2t then
$pixelfound=1
endif
$j+=1
WEnd
$i+=1
WEnd

return $pixelfound
EndFunc ; =>CheckPixel


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

Func GetSimpleColor($x1, $y1, $mnoj=1)
Dim $a, $cred, $cgreen, $cblue, $c1, $c2, $c3
$a = Hex(PixelGetColor($x1, $y1), 6)
$cred = Dec(StringTrimRight($a, 4))
;$as = Dec($as)
$cgreen = Dec(StringTrimLeft(StringTrimRight($a, 2), 2))
;$as1 = Dec($as1)
$cblue = Dec(StringTrimLeft($a, 4))
if $cred>=$cgreen*$mnoj then
 if $cred>=$cblue*$mnoj then
  $c1="red"
   if $cblue>=$cgreen then
    $c2="blue"
    $c3="green"
   else
    $c2="green"
    $c3="blue"
   endif
 else 
  $c1="blue"
  $c2="red"
 endif
else
 if $cgreen>=$cblue*$mnoj then
  $c1="green"
   if $cblue>=$cred then
    $c2="blue"
    $c3="red"
   else
    $c2="red"
    $c3="blue"
   endif
 else
  if $cblue>=$cgreen*$mnoj then
   $c1="blue"
   $c2="green"
  else
   $c1="grey"
  endif
 endif
endif


return $c1

EndFunc ; => GetSimpleColor

Func CheckPixel($x1, $y1, $x2, $y2, $light, $light2=0xFFFFFF)
Local $i, $j, $pixelfound=0, $PTcolor, $l1t, $l2t
$i=$y1
if $light>0xFF then
 $l1t=TrimColor($light)
else 
 $l1t=Dec($light)  
endif
if $light2>0xFF then
 if $light2<0xFFFFFF then
  $l2t=TrimColor($light2)
 else
  $l2t=255
 endif
else
 $l2t=Dec($light2)  
endif
While $i<=$y2 and $pixelfound==0
$j=$x1
While  $j<=$x2 and $pixelfound==0
$PTcolor=TrimColor("0x"&Hex(PixelGetColor($j, $i), 6))
if $PTcolor>=$l1t and $PTcolor<=$l2t then 
$pixelfound=1
endif
$j+=1
WEnd
$i+=1
WEnd
return $pixelfound
EndFunc ; =>CheckPixel

Func CheckPixel($x1, $y1, $x2, $y2, $light, $light2=0xFF)
Local $i, $j, $pixelfound=0, $PTcolor, $l1t, $l2t
$i=$y1
if $light>0xFF then
 $l1t=TrimColor($light)
else
 $l1t=$light
endif
if $light2>0xFF then
  $l2t=TrimColor($light2)
else
 $l2t=$light2
endif
While $i<=$y2 and $pixelfound==0
$j=$x1
While  $j<=$x2 and $pixelfound==0
$PTcolor=TrimColor("0x"&Hex(PixelGetColor($j, $i), 6))
if $PTcolor>=$l1t and $PTcolor<=$l2t then 
$pixelfound=1
endif
$j+=1
WEnd
$i+=1
WEnd

return $pixelfound
EndFunc ; =>CheckPixel

if CheckPixel(...) then ...
if not CheckPixel(...) then ...

Func my_CheckPixel ($x1, $y1, $x2, $y2, $_color)
	Local $_found = False
	Local $_pixel
	Local $_trim_color
	
	$_trim_color = TrimColor ($_color)
	
	For $x = $x1 To $x2
		For $y = $y1 To $y2
			
			$_pixel = TrimColor ("0x"& Hex (PixelGetColor ($x, $y), 6))
			
			If $_pixel > $_trim_color And (Abs($_pixel - $_trim_color) > 50) Then
				;ConsoleWrite (@CR& Abs($_pixel - $_trim_color)&@CR)
				; 1. Если Trim пикселя больше чем начального цвета (того что мы воодили).
				; 2. Если разница (по модулю текущий трим минус вводнимый) больше чем 50.
				$_found = True
				Return $_found
			EndIf
			
		Next
	Next
	
	#cs
	While $i <= $y2 And $pixelfound == 0
		$j = $x1
			While $j <= $x2 and $pixelfound == 0
				$_pixel = TrimColor ("0x"&Hex (PixelGetColor ($j, $i), 6))
				
				If $_pixel >= $_color_trim And $_pixel <= $_ctop_trim And ($l1t +50) > 100 then 
					$pixelfound = 1
					ConsoleWrite (@CR& "PTCOLOR: " &Hex (PixelGetColor ($j, $i), 6) &" is trimer then "& $light&@CR)
					ConsoleWrite ($PTcolor&@CR)
				endif
				
				$j += 1
			WEnd
		$i += 1
	WEnd
#ce
	return $_found
EndFunc