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

[INTERFACE]
DIALOG, "Мышь", 446, 201;
STATIC, "Поиск в", 4, 4, 44, 20;
COMBO, "Активный по Экрану""Активный по Указателю""Фоновый по Указателю", 60, 4, 156, 116, int EW;
STATIC, "Указатель на окно", 228, 4, 100, 20;
EDIT, 332, 4, 104, 20, win W;
STATIC, "Пауза до", 4, 28, 52, 20;
EDIT, 60, 28, 156, 20, int P1;
STATIC, "Координты", 4, 52, 60, 20;
EDIT, 68, 52, 156, 20, int X;
EDIT, 228, 52, 156, 20, int Y;
STATIC, "Действие", 4, 76, 56, 20;
COMBO, "Левую клик""Среднюю клик""Правую клик""Левую нажать""Среднюю нажать""Правую нажать""Левую отпустить""Среднюю отпустить""Правую отпустить""Левая двойной клик""Средняя двойной клик""Правая двойной клик""Переместить""Бездействие", 68, 76, 148, 136, string M;
STATIC, "Пауза после", 4, 100, 68, 20;
EDIT, 76, 100, 140, 20, int P2;
STATIC, "Комментарий", 4, 124, 76, 20;
EDIT, 84, 124, 352, 20, unknown Comment;
BUTTON_OK, "Принять", 228, 152, 100, 20;
BUTTON_CANCEL, "Закрыть", 336, 152, 100, 20;
[END]
[INFO]
[ENDL]>>M>>[ENDL]>>Comment
[END]

[ASSOC_VAR]
EW=0;
W=W_Kib;
P1=0;
X =0;
Y = 0;
M="Левую клик";
P2=0;
W_V = #~W~;
V_X=~W~.leftclient;
V_Y=~W~.topclient;
Comment=;
[END]

[GLOBAL_VAR]
win ~W~;
[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 (EW==0)ENABLE(GETID(W), 0);
IF (EW==1)ENABLE(GETID(W), 1);
IF (EW==2)ENABLE(GETID(W), 1);
[END]


[FUNCTION_BODY]function(int ew, win #w, int v_x, int v_y, int p1, int x, int y, string m, int p2)
{
pause(p1);
  if (ew==0 || ew==1)
  {
  if (ew==1){x=v_x+x; y=v_y+y;}
  if (m=="Левую клик"){mouse(LEFT, x, y); goto hy;}
  if (m=="Среднюю клик"){mouse(MIDDLE, x, y); goto hy;}
  if (m=="Правую клик"){mouse(RIGHT, x, y); goto hy;}
  if (m=="Левую нажать"){mousedown(LEFT, x, y); goto hy;}
  if (m=="Среднюю нажать"){mousedown(MIDDLE, x, y); goto hy;}
  if (m=="Правую нажать"){mousedown(RIGHT, x, y); goto hy;}
  if (m=="Левую отпустить"){mouseup(LEFT, x, y); goto hy;}
  if (m=="Среднюю отпустить"){mouseup(MIDDLE, x, y); goto hy;}
  if (m=="Правую отпустить"){mouseup(RIGHT, x, y); goto hy;}
  if (m=="Левая двойной клик"){mousedbl(LEFT, x, y); goto hy;}
  if (m=="Средняя двойной клик"){mousedbl(MIDDLE, x, y); goto hy;}
  if (m=="Правая двойной клик"){mousedbl(RIGHT, x, y); goto hy;}
  if (m=="Переместить"){mousemove(x, y); goto hy;}
  }
  if (ew==2)
  {
  if (m=="Левую клик"){sendmouse(LEFT, x, y, w); goto hy;}
  if (m=="Среднюю клик"){sendmouse(MIDDLE, x, y, w); goto hy;}
  if (m=="Правую клик"){sendmouse(RIGHT, x, y, w); goto hy;}
  if (m=="Левую нажать"){sendmousedown(LEFT, x, y, w); goto hy;}
  if (m=="Среднюю нажать"){sendmousedown(MIDDLE, x, y, w); goto hy;}
  if (m=="Правую нажать"){sendmousedown(RIGHT, x, y, w); goto hy;}
  if (m=="Левую отпустить"){sendmouseup(LEFT, x, y, w); goto hy;}
  if (m=="Среднюю отпустить"){sendmouseup(MIDDLE, x, y, w); goto hy;}
  if (m=="Правую отпустить"){sendmouseup(RIGHT, x, y, w); goto hy;}
  if (m=="Левая двойной клик"){sendmousedbl(LEFT, x, y, w); goto hy;}
  if (m=="Средняя двойной клик"){sendmousedbl(MIDDLE, x, y, w); goto hy;}
  if (m=="Правая двойной клик"){sendmousedbl(RIGHT, x, y, w); goto hy;}
  if (m=="Переместить")sendmousemove(x, y, w);
  }
hy: if (m!="Бездействие")pause (p2);
}[END][CALL](EW, W_V, V_X, V_Y, P1, X, Y, M, P2)[END]