Register for your free account! | Forgot your password?

You last visited: Today at 02:43

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[AutoIt] DFLoot

Discussion on [AutoIt] DFLoot within the General Gaming Discussion forum part of the General Gaming category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[AutoIt] DFLoot

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Program Files\AutoIt3\Icons\Misc\bundle.ico
#AutoIt3Wrapper_outfile=.\DFLoot.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Darkfall Loot Macro
#AutoIt3Wrapper_Res_Description=Darkfall Loot 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
Date: 03/12/2009
Script Function: Darkfall Loot 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", "Bag", "X", "0")
IniWrite(@ScriptDir&"\_Macros.ini", "Bag", "Y", "0")
Sleep(500)
EndIf

Global $BagTargetX = IniRead(@ScriptDir&"\_Macros.ini", "Bag", "X", "0")
Global $BagTargetY = IniRead(@ScriptDir&"\_Macros.ini", "Bag", "Y", "0")

HotKeySet("{Esc}", "_MouseDragDrop") ; Press 'Esc' key once mouse if over loot you want to grab.
HotKeySet("!{Esc}", "_SetBagCoords") ; Press 'Alt' 'Esc' to set the location of your bag, where you want to drag your loot too.

While 1
Sleep(50)
WEnd

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

Func _SetBagCoords()
$MousePos = MouseGetPos()
IniWrite(@ScriptDir&"\_Macros.ini", "Bag", "X", $MousePos[0])
IniWrite(@ScriptDir&"\_Macros.ini", "Bag", "Y", $MousePos[1])
$BagTargetX = $MousePos[0]
$BagTargetY = $MousePos[1]
EndFunc
This script uses relative mouse coords of the actual Darkfall window, as compared to the whole screen if in windowed mode.

Use Alt-ESC to set the location where you want the loot dragged too.
Use ESC when the mouse is over loot you want to drag.

If you want changes made to the script, you can ask really nicely or learn Autoit yourself. Otherwise, enjoy.
Penakle is offline  
Reply




All times are GMT +2. The time now is 02:43.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.