#include <Misc.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>

HotKeySet("{F6}","SetupCoords")
HotKeySet("{F10}","Stop")

$dll = DllOpen("user32.dll")
Dim $X_CoordsArray[1]
Dim $Y_CoordsArray[1]
Global $iter = 0

Func PerformClick ($CoordStartX, $CoordStartY, $CoordStopX, $CoordStopY)
	if abs($CoordStartX-$CoordStopX) > 15 AND abs($CoordStartY - $CoordStopY) > 15 Then
		MouseMove($CoordStartX, $CoordStartY)
		Sleep(10)
		MouseDown("left")
		Sleep(10)
		MouseMove($CoordStopX, $CoordStopY, 10)
		Sleep(10)
		MouseUp("left")
	Else
		MouseClick("left", $CoordStopX, $CoordStopY)
		Sleep(10)
	EndIf
EndFunc

Func dummy ()
	Sleep(5)
EndFunc

Func _SetupCoordLoop()
	HotKeySet("{F6}", "GetCoord")
	HotKeySet("{DEL}")
	While True
		Sleep(5)
		If _IsPressed('2E', $dll) Then
			HotKeySet("{F6}", "SetupCoords")
			Sleep(10)
			HotKeySet("{F7}", "RunLoop")
			Sleep(10)
			ExitLoop
		EndIf
	WEnd
EndFunc

Func GetCoord()
	HotKeySet("{F6}", "dummy")
	Local $tmp = MouseGetPos()
	_ArrayAdd($X_CoordsArray, $tmp[0])
	_ArrayAdd($Y_CoordsArray, $tmp[1])
	While _IsPressed(75, $dll)
		Sleep(5)
	WEnd
	Local $tmp2 = MouseGetPos()
	_ArrayAdd($X_CoordsArray, $tmp2[0])
	_ArrayAdd($Y_CoordsArray, $tmp2[1])
	$iter += 2
	HotKeySet("{F6}", "GetCoord")
EndFunc

Func RunLoop()
	While True
		For $i = 1 to $iter
			PerformClick($X_CoordsArray[$i], $Y_CoordsArray[1], $X_CoordsArray[$i+1], $Y_CoordsArray[$i+1])
			$i += 1
			sleep(1)
		Next
	WEnd
EndFunc


Func SetupCoords ()
	_SetupCoordLoop()
EndFunc

while 1
    sleep(60)
WEnd

Func stop()
    Exit
EndFunc