[Release] AutoIt v3 Equipchanger Open Source

#RequireAdmin
#include <File.au3>
#Include <Date.au3>
#include <Misc.au3>
_Singleton(@ScriptName)

; Calculate Coordinates of Equip
; we start counting from bottom left to up right; 2nd Value of $ratio defines wether we deal with the x- axis (1) or the y-axis (2);
; Parameter [0] defines if we use it or not

; bekannte Probleme: arbeitet nur mit 16:9 Auflösungen zusammen, könnte über Fallunterscheidungen gelöst werden

$inventorykey=Iniread("equipwechsler.ini","Hotkeys","Inventar","d")
$wechselhotkey=Iniread("equipwechsler.ini","Hotkeys","Wechselhotkey","i")
$beendenhotkey=Iniread("equipwechsler.ini","Hotkeys","Beenden","i")
$cleanupkey=Iniread("equipwechsler.ini","Hotkeys","Screenclear","{SPACE}")
$wintitle=Iniread("equipwechsler.ini","Optionen","Windowname","Diablo III")

HotkeySet($beendenhotkey,"MyExit")
HotkeySet($wechselhotkey,"Wechsel")


Global $ratio[10][6][4]
Global $absolut[10][6][4]
Global $clickfield[11][7]
Global $D3win[4]
Global $hWnd = WinGetHandle($wintitle)




$ratio[0][0][1]=1440/1920 ; Verhältnis der Inventarslotposition ganz unten links zur Gesamtbreite des Fensters
$ratio[0][0][2]=848/1080 ; Verhältnis der Inventarslotposition ganz unten links zur Gesamthöhe des Fensters

$diffxratio=(1873-1440)/1920 ; verhältnismäßige Entfernung zwischen dem ganz linken und ganz rechten bzw. ganz unteren und ganz oberen Inventarslot
$diffyratio=(848-610)/1080

$diffxratiostep=$diffxratio/9 ; Schrittweite zwischen den einzelnen Slots in x- bzw. y-Richtung
$diffyratiostep=$diffyratio/5



$ix=0
$iy=0

for $ix=0 to 9
	
	for $iy=0 to 5
		
		$ratio[$ix][$iy][1] = $ratio[0][0][1] + $ix * $diffxratiostep
		
		$ratio[$ix][$iy][2] = $ratio[0][0][2] - $iy * $diffyratiostep
		
;~ 		_FileWriteLog("xlog.txt","ix =" & $ix & "   xratio=" & $ratio[$ix][$iy][1] & "  iy =" & $iy & "   yratio=" & $ratio[$ix][$iy][2])
		
	Next
	
Next



While ProcessExists("Diablo III.exe")
	sleep(100)
Wend





Func Wechsel()
	

$blockinput=Iniread("equipwechsler.ini","Optionen","Input Blocken","0")
$Maxsleeptime=Iniread("equipwechsler.ini","Optionen","Maxsleeptime","30")
$Minsleeptime=Iniread("equipwechsler.ini","Optionen","Minsleeptime","100")

FileDelete(@Scriptdir & "\xlog.txt")
;~ WinWaitActive($wintitle)
$D3win=WinGetPos($wintitle)
Blockinput($blockinput)
;~ $mouseposi=MouseGetPos()



$ix=0
$iy=0

for $ix=1 to 10
	
	for $iy=1 to 6
		
	$clickfield[$ix][$iy] = Iniread("equipwechsler.ini","Inventar","Slot[" & $ix & "][" & $iy & "]",0)
		
	Next
	
Next



$ix = 0
$iy = 0

for $ix=0 to 9
	for $iy=0 to 5
		
	$absolut[$ix][$iy][1] = $D3win[2] * $ratio[$ix][$iy][1] 
	$absolut[$ix][$iy][2] = $D3win[3] * $ratio[$ix][$iy][2] 
		
	Next
Next


Controlsend($wintitle,"",$hWnd,$cleanupkey)
;~ send($cleanupkey) ; schließt alle eventuell noch offenen Fenster
sleep(Random($Minsleeptime,$Maxsleeptime,1))
Controlsend($wintitle,"",$hWnd,$inventorykey)
;~ send($inventorykey)
sleep(Random($Minsleeptime,$Maxsleeptime,1))
;~ MouseMove($absolut[0][0][1], $absolut[0][0][2], 0)



$ix=0
$iy=0

for $ix = 0 to 9
	for $iy = 0 to 5
		
	Select
		
		
	case $clickfield[$ix+1][$iy+1] = 1 ; Dieser Teil der Schleife klickt alle Equipteile mit Rechtsklick an, die angelegt werden sollen
		Controlclick($wintitle,"",$hWnd,"right",1, $absolut[$ix][$iy][1], $absolut[$ix][$iy][2])
		sleep(Random($Minsleeptime,$Maxsleeptime,1))
		
		
	case $clickfield[$ix+1][$iy+1] = 2 ; Dieser Teil der Schleife klickt den zweiten Ring mit ALT + Rechtsklick an, um ihn auf den rechten Slot zu equippen
;~ 		send("{ALTDOWN}")
		Controlsend($wintitle,"",$hWnd,"{ALTDOWN}")
		Controlclick($wintitle,"",$hWnd,"right",1, $absolut[$ix][$iy][1], $absolut[$ix][$iy][2])
;~ 		Mouseclick("right", $absolut[$ix][$iy][1], $absolut[$ix][$iy][2], 1, 0)
		sleep(Random($Minsleeptime,$Maxsleeptime,1))
		Controlsend($wintitle,"",$hWnd,"{ALTUP}")
;~ 		send("{ALTUP}")


	EndSelect
	
	Next
Next


sleep(Random($Minsleeptime,$Maxsleeptime,1))
Controlsend($wintitle,"",$hWnd,$inventorykey)
;~ send($inventorykey)
;~ Mousemove($mouseposi[0], $mouseposi[1], 0)
Blockinput(0)

Endfunc









Func MyExit()
	Exit
Endfunc

[Hotkeys]
//Der Hotkey, mit dem man das Inventar öffnet, Standard ist c oder i
Inventar=c

//Der Hotkey, mit dem man das Equipment austauschen will. Beispiele: {ENTER}, ^e (für strg+e), !e (für ALT+e), +e (für SHIFT+e)
Wechselhotkey={F1}

//Der Hotkey, mit dem man das Programm beendet
Beenden={F2}

//Der Hotkey, der eventuell noch offene Fenster (Skillfenster, Inventar) schließt (Standard: Space)
Screenclear={SPACE}

[Optionen]
Windowname=Diablo III

// Soll während des Itemwechsels Maus und Tastatur blockiert werden? Dies dient dazu, sicherzustellen, dass das Script sauber abläuft und man es nicht durch Mausbewegungen behindert
Input Blocken=1

// Maximale und Minimale Wartezeit zwischen dem Anlegen der verschiedenen Gegenstände. Die Randomzeiten dienen dazu, es menschlicher wirken zu lassen. Je kleiner die Zeiten (in Millisekunden) sind, desto schneller werden die Items gewechselt. Auf langsameren Systemen können höhere Zeiten erforderlich sein, um alle Items zuverlässig zu wechseln.
Minsleeptime=50
Maxsleeptime=100




[Inventar]
//Das Inventar ist wie folgt aufgebaut: Es besteht aus genau 60 Plätzen, 10 von links nach rechts und 6 von unten nach oben
//Hier die Aufteilung, wie das Inventar nummeriert wurde:
//1.6             ...                	       10.6
//1.5						.
//1.4						.
//1.3						.
//1.2  2.2  3.2 	
//1.1  2.1  3.1  4.1  5.1  6.1  7.1  8.1  9.1  10.1

//Will man nun beispielsweise den Equipwechsler dazu bringen, das Item ganz unten rechts auszuwechseln, so muss man die Option
//Slot[10][1] = 1 hinschreiben (natürlich ohne das Doubleslash ("//") davor
//Der Slot für den 2. Ring muss mit "Slot[x][y] = 2" gekennzeichnet werden, damit er per ALT + Rechtsklick angezogen werden kann

Slot[1][1] = 1
Slot[2][1] = 1
Slot[3][1] = 1
Slot[4][1] = 1
Slot[5][1] = 1
Slot[6][1] = 1
Slot[7][1] = 1
Slot[8][1] = 1
Slot[8][2] = 1
Slot[9][1] = 1
Slot[9][2] = 2
Slot[10][1] = 1

#include <Misc.au3>
_Singleton(@ScriptName)

AutoItSetOption ( "MouseCoordMode", 2)

Global $winTitle = "Diablo III"
Global $hWnd = WinGetHandle($winTitle)

HotKeySet("{ESC}", "_exit")
Func _exit()
	Exit 0
EndFunc

Global $iniFile = getIniFileName()
Func getIniFileName()
	local $clientSize = WinGetClientSize($winTitle)
	local $name = "COORD_" & $clientSize[0] & "x" & $clientSize[1] & ".ini"

	return $name
EndFunc
Global $item_names[13] = ["Helm","Shoulder","Body","Hand","Arm","Leg","Boots","Belt","Amulet","LeftRing","RightRing","LeftWeapon","RightSupport"]

Global $curCoordCount = 0
Global $coordMode = "Inventory"

HotKeySet("{Right}", "_countNext")
Func _countNext()
	if ($coordMode == "Inventory") Then
		$coordMode = "BodyPart"
	Else
		$curCoordCount+=1
		if ($curCoordCount >= UBound($item_names)) Then
			$curCoordCount = 0
		EndIf

		$coordMode = "Inventory"
	EndIf
EndFunc

HotKeySet("{Left}", "_countBack")
Func _countBack()

	if ($coordMode == "Inventory") Then
		$curCoordCount-=1
		if ($curCoordCount < 0) Then
			$curCoordCount = UBound($item_names)-1
		EndIf
		$coordMode = "BodyPart"
	Else
		$coordMode = "Inventory"
	EndIf
EndFunc

HotKeySet("{+}", "_addCoord")
Func _addCoord()
	local $mousePos = MouseGetPos()
	local $x = $mousePos[0]
	local $y = $mousePos[1]

	if ($coordMode == "Inventory") Then
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_x", $x)
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_y", $y)
	Else
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_x", $x)
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_y", $y)
	EndIf

	_countNext()
EndFunc

HotKeySet("{-}", "_removeCoord")
Func _removeCoord()
	_countBack()
	if ($coordMode == "Inventory") Then
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_x")
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_y")
	Else
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_x")
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_y")
	EndIf
EndFunc

ToolTip("RECORDER READY",0,0)
While (WinExists($winTitle))
	local $mousePos = MouseGetPos()
	ToolTip("Item: " & $item_names[$curCoordCount] & " : " & $coordMode & @CRLF & _
		"MousePos[" & $mousePos[0] & ", " & $mousePos[1] & "]",0,0)
	sleep(50)
WEnd

#RequireAdmin

#include <Misc.au3>
_Singleton(@ScriptName)

AutoItSetOption ( "MouseCoordMode", 2)

Global $winTitle = "Diablo III"
Global $hWnd = WinGetHandle($winTitle)

HotKeySet("{ESC}", "_exit")
Func _exit()
	Exit 0
EndFunc

Global $iniFile = getIniFileName()
Func getIniFileName()
	local $clientSize = WinGetClientSize($winTitle)
	local $name = "COORD_" & $clientSize[0] & "x" & $clientSize[1] & ".ini"

	return $name
EndFunc
Global $item_names[13] = ["Helm","Shoulder","Body","Hand","Arm","Leg","Boots","Belt","Amulet","LeftRing","RightRing","LeftWeapon","RightSupport"]

Global $Inventory_coords[13][2]
Global $BodyPart_coords[13][2]

Func _readCoordsFromIniFile()

	if (NOT FileExists($iniFile)) Then
		MsgBox("", "ERROR", $iniFile & " not found. Use Record first")
		_exit()
	EndIf

	local $sectionNames = IniReadSectionNames($iniFile)
	if (UBound($sectionNames) < 1) Then
		local $ret
		$ret = MsgBox(1, $iniFile & " ERROR", $iniFile & " is empty, delete it ?")
		if ($ret == 1) Then
			FileDelete($iniFile)
			_exit()
		Else
			_exit()
		EndIf
	EndIf

	ReDim $Inventory_coords[UBound($sectionNames)][2]
	ReDim $BodyPart_coords[UBound($sectionNames)][2]
	for $i = 1 to UBound($sectionNames)-1
		$Inventory_coords[$i][0] = IniRead($iniFile, $sectionNames[$i],  "Inventory_x", 0)
		$Inventory_coords[$i][1] = IniRead($iniFile, $sectionNames[$i],  "Inventory_y", 0)

		$BodyPart_coords[$i][0] = IniRead($iniFile, $sectionNames[$i],  "BodyPart_x", 0)
		$BodyPart_coords[$i][1] = IniRead($iniFile, $sectionNames[$i],  "BodyPart_y", 0)
	Next

EndFunc


HotKeySet("{F1}", "_equip")
Func _equip()

	BlockInput(1)

	ControlSend($winTitle, "", $hWnd, "s")
	sleep(100)
	ControlSend($winTitle, "", $hWnd, "c")

	for $i = 1 to UBound($Inventory_coords)-1
		ControlClick($winTitle, "", $hWnd, "left", 1, $Inventory_coords[$i][0], $Inventory_coords[$i][1])
		ControlClick($winTitle, "", $hWnd, "left", 1, $BodyPart_coords[$i][0], $BodyPart_coords[$i][1])
	Next

	ControlSend($winTitle, "", $hWnd, "c")

	BlockInput(0)

EndFunc

HotKeySet("{F2}", "_unequip")
Func _unequip()

	BlockInput(1)

	ControlSend($winTitle, "", $hWnd, "s")
	sleep(100)
	ControlSend($winTitle, "", $hWnd, "c")

	for $i = 1 to UBound($Inventory_coords)-1
		ControlClick($winTitle, "", $hWnd, "left", 1, $BodyPart_coords[$i][0], $BodyPart_coords[$i][1])
		ControlClick($winTitle, "", $hWnd, "left", 1, $Inventory_coords[$i][0], $Inventory_coords[$i][1])
	Next

	ControlSend($winTitle, "", $hWnd, "c")

	BlockInput(0)

EndFunc


_readCoordsFromIniFile()
While (WinExists($winTitle))
	sleep(500)
WEnd