Register for your free account! | Forgot your password?

You last visited: Today at 05:19

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

 

[AutoIt] DFLoot

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



« Previous Thread | Next Thread »



All times are GMT +1. The time now is 05:19.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.