Развлечения. Скрипт называется Дежа вю (Deja Vu)
Практического применения пока не нашёл.
LOGSHOW (1)
WNDSIZE(WNDFIND("Лог"),250,110)
THREAD(log_glue, 1)
LOGSHOW (1, $_xmouse+10,$_ymouse+18)
WAITMS(10)
END_THREAD
THREAD(SCREEN, 1)
GETSCREEN
LOGCLEAR
LOGWRITE ("X,Y: ", $_xmouse, ",", $_ymouse)
LOGWRITE ("Цвет: ",PXL($_xmouse,$_ymouse))
LOGWRITE ("hWND: ", HGET($_xmouse,$_ymouse))
WAITMS(200)
END_THREAD
WHILE(1)
WAIT(3600)
END_CYC
Вот ещё такой вариант, можно использовать при закрытом редакторе или для вывода значения переменных в реальном времени.
LOGSHOW (1, $_xmax-250, $_ymax-70-110)
WNDSIZE(WNDFIND("Лог"),250,110)
$pos = 0
THREAD(log_glue, 1)
IF(($pos = 0) & ($_xmouse > $_xmax-250) & ($_ymouse > $_ymax-180) & ($_ymouse < $_ymax-70))
LOGSHOW (1, 0, $_ymax-70-110)
$pos = $pos^1
END_IF
IF(($pos = 1) & ($_xmouse < 250) & ($_ymouse > $_ymax-180) & ($_ymouse < $_ymax-70))
LOGSHOW (1, $_xmax-250, $_ymax-180)
$pos = $pos^1
END_IF
WAITMS(30)
END_THREAD
THREAD(SCREEN, 1)
GETSCREEN
LOGCLEAR
LOGWRITE ("X,Y: ", $_xmouse, ",", $_ymouse)
LOGWRITE ("Цвет: ",PXL($_xmouse,$_ymouse))
LOGWRITE ("hWND: ", HGET($_xmouse,$_ymouse))
WAITMS(200)
END_THREAD
WHILE(1)
WAIT(3600)
END_CYC