Функция сравнения двух цветов с оттенком

#include <Color.au3>

Func Shade($Col1, $Col2, $Shade)
	If $Col1 == $Col2 Then Return True
	If $Shade==0 Then Return ($Col1==$Col2)
   $Color1 = _ColorGetRGB(Execute("0x00"&$Col1))
   $Color2 = _ColorGetRGB(Execute("0x00"&$Col2))
   If Not (IsArray($Color1) AND IsArray($Color2)) Then
	  Return False
   EndIf
   For $i=0 To 2
	  If Not($Color1[$i]-$Shade < $Color2[$i] And $Color1[$i]+$Shade > $Color2[$i]) Then Return False
   Next
   Return True
EndFunc

Func Shade($Col1, $Col2, $Shade)
	If $Col1 == $Col2 Then Return True
	If $Shade==0 Then Return ($Col1==$Col2)
   $Color1 = _ColorGetRGB(Execute("0x00"&$Col1))
   $Color2 = _ColorGetRGB(Execute("0x00"&$Col2))
   If Not (IsArray($Color1) AND IsArray($Color2)) Then
	  Return False
   EndIf
   For $i=0 To 2
	  If Not(Abs($Color1[$i]-$Color2[$i]) < $Shade) Then Return False
   Next
   Return True
EndFunc

Func Shade($Col1, $Col2, $Shade)
	If $Col1 == $Col2 Then Return True
	If $Shade==0 Then Return ($Col1==$Col2)
   $Col1 = Execute("0x"&$Col1)
   $Col2 = Execute("0x"&$Col2)
   If Abs(_ColorGetRed($Col1)-_ColorGetRed($Col2)) < $Shade And Abs(_ColorGetGreen($Col1)-_ColorGetGreen($Col2)) < $Shade And Abs(_ColorGetBlue($Col1)-_ColorGetBlue($Col2)) < $Shade Then Return True
   Return False
EndFunc

Execute