HotKeySet("{DELETE}","terminate")

Func terminate()
	MsgBox(0,"Done","Done")
	Exit 0
EndFunc

While 1
	WinActivate("Diablo III")

	$x_offset = 0;Random(-5,5)
	$y_offset = 0;Random(-5,5)

	If PixelGetColor(100,300) = 3540224 Then   ;character selection screen
		MouseClick("left",Random(65,265),Random(285,315),1,10)
	ElseIf PixelGetColor(430,750) = 6822669 Then   ;in game
		MouseClick("left",185 + $x_offset,230 + $y_offset,1,10)
		Sleep(Random(3000,5000))
		MouseClick("left",140 + $x_offset,350 + $y_offset,1,10)
		Sleep(Random(3000,5000))
		MouseClick("left",Random(617,622),Random(350,355),1,10)
		Sleep(Random(1500,2500))
		;MouseClick("left",Random(745,750),Random(350,355),1,10)
		;Sleep(Random(1500,2500))
		;MouseClick("left",Random(617,622),Random(350,355),1,10)
		;Sleep(Random(1500,2500))
		;MouseClick("left",Random(745,750),Random(350,355),1,10)
		;Sleep(Random(1500,2500))
		Send("{ESC}")
		Sleep(Random(750,1250))
		MouseClick("left",Random(570,790),Random(400,425),1,10)
	EndIf

	Sleep(Random(3000,5000))
Wend