[AutoIt] DFEquip

[Penakle]

An adaptation of Jazkal's DFLoot script for equipping items quickly.

Open the Paperdoll and use Alt+F1 to set its location.
With the paperdoll open, hit F1 over an item and it will equip it for you.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Program Files\AutoIt3\Icons\Misc\equip.ico
#AutoIt3Wrapper_outfile=.\DFEquip.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Darkfall Equip Macro
#AutoIt3Wrapper_Res_Description=Darkfall Equip Macro
#AutoIt3Wrapper_Res_Fileversion=1.0.2.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=© 2009
#AutoIt3Wrapper_Res_Language=1033
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: Jazkal (Original DFLoot) Magister (Adaptation to DFEquip)
Date: 03/15/2009
Script Function: Darkfall Equip Macro
#ce ----------------------------------------------------------------------------

Opt("MouseClickDragDelay", 0) ; Alters the length of the brief pause at the start and end of a mouse drag operation.
Opt("MouseCoordMode", 0) ; Sets the way coords are used in the mouse functions, 0 = relative coords to the active window

If Not FileExists(@ScriptDir&"\_Macros.ini") Then
IniWrite(@ScriptDir&"\_Macros.ini", "Paperdoll", "X", "0")
IniWrite(@ScriptDir&"\_Macros.ini", "Paperdoll", "Y", "0")
Sleep(500)
EndIf

Global $PaperdollTargetX = IniRead(@ScriptDir&"\_Macros.ini", "Paperdoll", "X", "0")
Global $PaperdollTargetY = IniRead(@ScriptDir&"\_Macros.ini", "Paperdoll", "Y", "0")

HotKeySet("{F1}", "_MouseDragDrop") ; Press 'F1' key once mouse if over the item you want to grab.
HotKeySet("!{F1}", "_SetPaperdollCoords") ; Press 'Alt' 'F1' to set the location of your paperdoll, where you want to drag your items to.

While 1
Sleep(50)
WEnd

Func _MouseDragDrop()
$MousePos = MouseGetPos()
MouseClickDrag("left", $MousePos[0], $MousePos[1], $PaperdollTargetX, $PaperdollTargetY, 0)
MouseMove($MousePos[0], $MousePos[1], 0)
EndFunc

Func _SetPaperdollCoords()
$MousePos = MouseGetPos()
IniWrite(@ScriptDir&"\_Macros.ini", "Paperdoll", "X", $MousePos[0])
IniWrite(@ScriptDir&"\_Macros.ini", "Paperdoll", "Y", $MousePos[1])
$PaperdollTargetX = $MousePos[0]
$PaperdollTargetY = $MousePos[1]
EndFunc