;#NoTrayIcon

HotKeySet("+!a", "_end")
HotKeySet("+!s", "_speedUp")
HotKeySet("+!x", "_speedDown")

Global $infN, $infO, $mvchk = True, $speed = 1

$infN = MouseGetPos()
$infO = MouseGetPos()

AdlibEnable("_do", 25)


While 1
	Sleep(1000)
	ToolTip("")
WEnd


Func _do()
	$infN = MouseGetPos()
	If $infN[0] <> $infO[0] Or $infN[1] <> $infO[1] Then
		MouseMove($infN[0]+$speed*($infN[0]-$infO[0]), $infN[1]+$speed*($infN[1]-$infO[1]), 0)
		$infN = MouseGetPos()
		$infO = MouseGetPos()
	EndIf
	$infO = $infN
EndFunc

Func _speedUp()
	$speed += 0.5
	If $speed > 5 Then $speed = 5
	ToolTip("Speed: " & $speed)
EndFunc

Func _speedDown()
	$speed -= 0.5
	If $speed < -5 Then $speed = -5
	ToolTip("Speed: " & $speed)
EndFunc

Func _end()
	Exit
EndFunc