$SleepTime = 25
HotKeySet("{[}","EX")
WinActivate("Diablo III")
While 1
	
	M(281, 422)
	S(7500)
	Send("{1}") ; Companion.
	S(50)
	M(143, 303)
	S(3500)
	MD(170, 305)
	S(3500)
	M(956, 557)
	S(450)
	Send("{ESC}")
	S(500)
	M(937, 572)
	S(4500)
Wend


Func EX()
	Exit
EndFunc

Func MD($X, $Y)
	MouseMove($X, $Y,0)
	S(200)
	MouseDown("Left")
	S(100)
	MouseUp("Left")
EndFunc

Func M($XCoord, $YCoord)
	MouseClick("Left", $XCoord, $YCoord, 1, 0)
	S($SleepTime)
EndFunc

Func S($Time)
	Sleep($Time)
EndFunc