moveMouseSmooth function:
Public Sub moveMouseSmooth(ByVal x As Integer, ByVal Y As Integer, ByVal steps As Integer)
Dim diffX As Integer
Dim diffY As Integer
Dim I As Integer
If mousePos.X > x Then
diffX = mousePos.X - x
Else : diffX = x - mousePos.X
End If
If mousePos.Y > Y Then
diffY = mousePos.Y - Y
Else : diffY = Y - mousePos.Y
End If
diffX = diffX / steps
diffY = diffY / steps
For I = 1 To steps
If mousePos.X > x Then
moveMouse(mousePos.X - diffX, mousePos.Y)
Else : moveMouse(mousePos.X + diffX, mousePos.Y)
End If
If mousePos.Y > Y Then
moveMouse(mousePos.X, mousePos.Y - diffY)
Else : moveMouse(mousePos.X, mousePos.Y + diffY)
End If
wait(1)
Next
End Sub
^^Credits to AB.
I'm not going to spoon-feed it to you either, if you want to know how to use it actually TRY to learn how.
__________________
Spark a match and light the flame, come sit down and play a game. Before you sit, you should know, you've lost the game, you dirty ho.