#define WS_EX_LAYERED 524288
#define PS_SOLID 0
#define LWA_ALPHA 2
#define GWL_EXSTYLE -20
#define GWL_STYLE -16

external(INT, "SetLayeredWindowAttributes", "SetLayeredWindowAttributes", "User32.dll" );
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "Rectangle", "Rectangle", "Gdi32.dll");
external(INT, "CreatePen", "CreatePen", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");


int color1=65280; // цвет1
int color2=255; // цвет2
int trasp=127; // прозрачность от 0 до 255
int coord[4]={100, 100, 400, 300} // координаты прямоугольника


int HDC, startX, startY, endX, endY, pen1, pen2, brush1, brush2;
int h_window;
int flag=0;

createdialog(2);

// скрипт
loop()
{
textbkcolor(rgb(0, 255, 0), 0);
textout (0, 0, 0, "Escape - скрыть прямоугольник", 0);
textout (1, 0, 20, "Z - изменить цвет", 0);

if (getkeystate(90)) // если нажата клавиша Z
{
while (getkeystate(90))sleep(10); // ждать когда будет отжата клавиша Z

showdialog(2, "Диалог", coord[0], coord[1], coord[2] - coord[0], coord[3] - coord[1], 1, 1);
if (flag==0)flag=1;
else flag=0;
update(formatiw(h_window));
}

if (getkeystate(27)) // если нажата Esc
{
while (getkeystate(27))sleep(10);
hidedialog(2); // скрыть диалог
}
sleep(10);
}



function getmessage(2, WM_CREATE)
{
h_window = gethwnd(2);
SetWindowLong(h_window, GWL_EXSTYLE, WS_EX_LAYERED);
SetWindowLong(h_window, GWL_STYLE, 0);
SetLayeredWindowAttributes(h_window, 0, 127, LWA_ALPHA);
HDC=GetDC(h_window);
pen1 = CreatePen(PS_SOLID, 1, color1);
pen2 = CreatePen(PS_SOLID, 1, color2);
brush1 = CreateSolidBrush(color1);
brush2 = CreateSolidBrush(color2);
showdialog(2, "Диалог", coord[0], coord[1], coord[2] - coord[0], coord[3] - coord[1], 1, 1);
}


function getmessage(2, WM_PAINT)
{
if (flag==0) // если флаг равен 0
{
SelectObject(HDC, pen1); // выбрать ручку
SelectObject(HDC, brush1); // выбрать кисть
Rectangle(HDC, 0, 0, coord[2] - coord[0], coord[3] - coord[1]); // нарисовать прямоугольник
}
if (flag==1) // если флаг равен 1
{
SelectObject(HDC, pen2); // выбрать ручку
SelectObject(HDC, brush2); // выбрать кисть
Rectangle(HDC, 0, 0, coord[2] - coord[0], coord[3] - coord[1]); // нарисовать прямоугольник
}
}