Зачем ты выделяешь красный канал для сравнения. Просто сравнивай полученный цвет.
WHILE(1)
GETSCREEN($_xmouse, $_ymouse, $_xmouse, $_ymouse)
$p1 = pxl($_xmouse, $_ymouse)
WAITMS(200)
GETSCREEN($_xmouse, $_ymouse, $_xmouse, $_ymouse)
$p2 = pxl($_xmouse, $_ymouse)
IF($p1 != $p2)
LCLICK($_xmouse, $_ymouse)
LOGWRITE($_xmouse, " / ", $_ymouse)
WAITMS(100)
END_IF
END_CYC