Func cubemouse($x2,$y2,$Range,$speed)
While $Range > 10
MouseMove($x2-$Range , $y2-$Range ,$speed)
$pos = MouseGetPos()
$poscurY = $pos[1]
while $poscurY < $y2 + $Range
$poscurY += 20
_MouseClickPlus("", "right", $x2-$Range, $poscurY, 1)
;~ MouseClick("right",$x2-$Range ,$poscurY,1,$speed)
WEnd
MouseMove($x2-$Range , $y2+$Range ,$speed)
$pos = MouseGetPos()
$poscurX = $pos[0]
while $poscurX < $x2 + $Range
$poscurX += 20
_MouseClickPlus("", "right", $poscurX, $y2+$Range, 1)
;~ MouseClic