// шаг перемещения
DEFINE($step, 5)
$right = 1
WHILE($right)
GETSCREEN($_xmouse, $_ymouse, $_xmouse, $_ymouse)
IF(PXL($_xmouse, $_ymouse) = 255)
$right = 0
ELSE
MOVER($step, 0)
WAITMS(20)
END_IF
END_CYC
$left = 1
WHILE($left)
GETSCREEN($_xmouse, $_ymouse, $_xmouse, $_ymouse)
IF(PXL($_xmouse, $_ymouse) = 13525760)
$left = 0
ELSE
MOVER(0 - $step, 0)
WAITMS(20)
END_IF
END_CYC