Зачем ты выделяешь красный канал для сравнения. Просто сравнивай полученный цвет.
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