help about mouseclickdrag

[langthang084]

I want to auto change camera in my games by drag right mouse.

while 1
    $p = MouseGetPos()
    MouseClickDrag("right",$p[0],$p[1],$p[0]+30,$p[1],100)
WEnd

But when it runs, the games screen dont change regularly. It change, stop and continue change screen.

So anybody could help me to make the games screen change regularly??

thanks!

[martin]

I want to auto change camera in my games by drag right mouse.

while 1
     $p = MouseGetPos()
     MouseClickDrag("right",$p[0],$p[1],$p[0]+30,$p[1],100)
 WEnd

But when it runs, the games screen dont change regularly. It change, stop and continue change screen.

So anybody could help me to make the games screen change regularly??

thanks!

Maybe something like this would work.

HotKeySet("{ESC}","quit")
opt("MouseClickDragDelay",0)

$mostx = 700;set this to the farthest right position the mouse can be while dragging
$xincr = 0
$step = 2
$p = MouseGetPos()
while 1
  ;drag in small steps for constant speed
    MouseClickDrag("right",$p[0]+$xincr,$p[1],$p[0]+$xincr + $step,$p[1],40)
    $xincr += $step
    If $xincr + $p[0] > $mostx then $xincr = 0
    mousemove($p[0]+$xincr,$p[1],0)

WEnd


Func quit()

    Exit
EndFunc

    Exit
EndFunc

You can experiment with different values of the $step (2 in my example) and the speed which is 40 in my example.

[langthang084]

Oh! Yeah! It run very well. Many thanks for U