Autohotkey Click and Drag

Sunday, 26 June 2011 09:54
// save 3 positions to click and drag to


;

;Press pause, shift + pause, and alt + pause to set drop points after script has first started up, after every start up.

;

;Point A = set with pause button

;Point B = set with Shift + pause button

;Point C = set with Alt + pause button

;

;Hold Ctrl and press right click mouse to drop something at point A

;Hold Shift and press right click mouse to drop something at point B

;Hold ALt and press right click mouse to drop something at point C

;

;Pressing the Appskey also acts to drop something at point A

;



#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.

SendMode Event  ; Recommended for new scripts due to its superior speed and reliability.

SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

CoordMode, Mouse, Screen



xl1=1842 ; default ctrl location

yl1=235



xm1:=xl1 ; default shift location

ym1:=yl1



xg1=871 ; default alt location

yg1=564







Pause::MouseGetPos, xm1, ym1 ; set ctrl right click drop position



+Pause::MouseGetPos, xl1, yl1 ; set shift right click drop position



!Pause::MouseGetPos, xg1, yg1 ; set alt drop position











$AppsKey::	;	button between right windows key and right ctrl key - press this to drag the mouse to the saved position

$^RButton::	;	ctrl + right mouse button

MouseGetPos, xpos1, ypos1	;get mouse position

x1:=xpos1

y1:=ypos1

x:=abs(x1-xm1)

y:=abs(y1-ym1)

If(y<25 and x<25){	;check to see if mouse is close to drop point already

	return		;cancel if too close to drop point

}

else {

	Send {Ctrl down}	; sends ctrl down and drags to saved mouse position

	MouseClickDrag, L, x1, y1, xm1, ym1 ; drag from current position to money drop position

	MouseMove, x1, y1, 0 ; return mouse to original position

	Send {Ctrl up}

	return

}

return



$+Rbutton::	;	shift + right mouse button

MouseGetPos, xpos1, ypos1 ; get mouse position

x1:=xpos1

y1:=ypos1

Send {Ctrl down}	; sends ctrl down and drags to saved mouse position

MouseClickDrag, L, x1, y1, xl1, yl1 ; drag from current position to loot drop position

MouseMove, x1, y1, 0 ; return mouse to original position

	Send {Ctrl up}

return



$!RButton::	;	alt + right mouse button

MouseGetPos, xpos1, ypos1 ; get mouse position

x1:=xpos1

y1:=ypos1

Send {Ctrl down}	; sends ctrl down and drags to saved mouse position

MouseClickDrag, L, x1, y1, xg1, yg1 ; drag from current position to ground drop position

MouseMove, x1, y1, 0 ; return mouse to original position

	Send {Ctrl up}

return