[INTERFACE]
DIALOG, "Проверка цвета пикселя", 673, 224;
STATIC, "Поиск в", 4, 4, 44, 20;
COMBO, "Активный по Экрану""Активный по Указателю""Фоновый по Указателю""Активный по Скриншоту""Фоновый по Скриншоту", 52, 4, 160, 100, int EW;
STATIC, "Указатель на окно", 220, 4, 100, 20;
EDIT, 324, 4, 140, 20, win W;
STATIC, "Указатель на скрин", 480, 4, 104, 20;
EDIT, 588, 4, 76, 20, int Screen;
STATIC, "Пауза до:", 4, 28, 52, 20;
EDIT, 60, 28, 100, 20, int P1;
STATIC, "Время ожидания", 4, 52, 92, 20;
EDIT, 100, 52, 100, 20, int T;
STATIC, "Координата X", 4, 76, 76, 20;
EDIT, 84, 76, 72, 20, int pX;
STATIC, "Координата Y", 168, 76, 76, 20;
EDIT, 248, 76, 72, 20, int pY;
STATIC, "Цвет", 332, 76, 32, 20;
EDIT, 368, 76, 100, 20, int Color;
STATIC, "Разбежность оттенков", 4, 100, 120, 20;
EDIT, 128, 100, 100, 20, int R;
STATIC, "Пауза после (если пиксель совпал)", 4, 124, 184, 20;
EDIT, 192, 124, 100, 20, int P2;
STATIC, "Комментарий", 4, 148, 76, 20;
EDIT, 84, 148, 580, 20, unknown Comment;
BUTTON_OK, "Принять", 456, 176, 100, 20;
BUTTON_CANCEL, "Закрыть", 564, 176, 100, 20;
[END]

[APPEARANCE]
COLOR = 0, 65, 120;
SIZE_X = 10;
SIZE_Y =6;
[END]

[INFO]
[ENDL]>>Color>>[ENDL]>>pX>>"  ">>pY>>[ENDL]>>Comment
[END]

[ASSOC_VAR]
EW=0;
W=W_Kib;
Screen=Screen;
P1=0;
T=0;
R=0;
pX=0;
pY=0;
Color=16777215;
P2=0;
W_V = #~W~;
V_X=~W~.leftclient;
V_Y=~W~.topclient;
V_Screen=#~Screen~;
Comment=;
[END]

[GLOBAL_VAR]
win ~W~;
int ~Screen~[3000][3000];  
[END]

[EVENT]
IF (I_MODE_BIND_WINDOW!=0)SENDBUTTON(GETID(EW), S_MODE_BIND_WINDOW);
IF (I_MODE_BIND_WINDOW!=0)SENDEDIT(GETID(W), W_Kib);
IF (I_MODE_BIND_WINDOW!=0)ENABLE(GETID(EW), 0);
IF (I_MODE_BIND_WINDOW!=0)ENABLE(GETID(W), 0);
IF (I_MODE_BIND_WINDOW!=0)ENABLE(GETID(Screen), 0);
IF (EW==0)ENABLE(GETID(W), 0);
IF (EW==0)ENABLE(GETID(Screen), 0);
IF (EW==1)ENABLE(GETID(W), 1);
IF (EW==1)ENABLE(GETID(Screen), 0);
IF (EW==2)ENABLE(GETID(W), 1);
IF (EW==2)ENABLE(GETID(Screen), 0);
IF (EW==3)ENABLE(GETID(W), 0);
IF (EW==3)ENABLE(GETID(Screen), 1);
IF (EW==4)ENABLE(GETID(W), 0);
IF (EW==4)ENABLE(GETID(Screen), 1);
[END]

[FUNCTION_BODY]
function(int ew, int #Scr, win #w, int v_x, int v_y, int p1, int t, int px, int py, int col, int r, int p2)
{
pause (p1);
if (t==0)goto d1r;
  looptime(t)
  {
  d1r:;
  if (ew==0) {if (scanpixel(px, py, col, r, r, r, r, r, r, -1)) {pause (p2); return 1;}}
  if (ew==1) {if (scanpixel(v_x+px, v_y+py, col, r, r, r, r, r, r, -1)) {pause (p2); return 1;}}
  if (ew==2) {if (scanpixel(px, py, col, r, r, r, r, r, r, w)) {pause (p2); return 1;}}
  if (ew==3 || ew==4) {if (scanpixel(px, py, col, r, r, r, r, r, r, #Scr[0][0])) {pause (p2); return 1;}}
  if (t==0) break;
  sleep(5);
  }
return 0;
}
[END]

[CALL]
(EW, V_Screen[0][0], W_V, V_X, V_Y, P1, T, pX, pY, Color, R, P2)
[END]

[FUNCTION_LOGIC]  
==1
[END]