This isn't an auto looter, but it does help you loot quicker and I have not heard of anyone getting banned for it.
;
; Darkfall QuickLooter script for AutoIT
;
; The script below is released into the public domain
; by me, the author
;
; http://lostontheintarweb.blogspot.com/
;
; AutoIT can be found at http://www.autoitscript.com/autoit3/
;
; Position of the bag
; Change to reflect the position of YOUR bag
Global $x = 175
Global $y = 625
; Bind to CTRL+G
HotKeySet("^{g}", "Loot")
; CTRL+F5-F8 changes bag position
HotKeySet("^{F5}", "DecreaseX")
HotKeySet("^{F7}", "DecreaseY")
HotKeySet("^{F6}", "IncreaseX")
HotKeySet("^{F8}", "IncreaseY")
; --- User configurable variables end here ---
; --- Do not edit below unless you know what you are doing ---
Global $fade = False
Global $fadetime
; Displays tray bubble
Func Bubble($text)
TrayTip("Darkfall AutoClicker", $text, 5)
$fade = True
$fadetime = TimerInit()
EndFunc
Func IncreaseX()
If $x < 5000 Then
$x = $x + 50;
EndIf
Bubble(StringFormat("Bag position: x = %d, y = %d", $x, $y))
EndFunc
Func IncreaseY()
If $y < 5000 Then
$y = $y + 50;
EndIf
Bubble(StringFormat("Bag position: x = %d, y = %d", $x, $y))
EndFunc
Func DecreaseX()
$x = $x - 50;
If $x < 0 Then
$x = 0
EndIf
Bubble(StringFormat("Bag position: x = %d, y = %d", $x, $y))
EndFunc
Func DecreaseY()
$y = $y - 50;
If $y < 0 Then
$y = 0
EndIf
Bubble(StringFormat("Bag position: x = %d, y = %d", $x, $y))
EndFunc
; Does the quick-loot
Func Loot()
$x1 = MouseGetPos(0)
$y1 = MouseGetPos(1)
$x2 = $x + Random(0, 75)
$y2 = $y + Random(0, 75)
MouseClickDrag("left", $x1, $y1, $x2, $y2, 1)
MouseMove($x1, $y1, 1)
EndFunc
; --- Start of main routine ---
TraySetIcon("explorer.exe",110)
Bubble("Darkfall QuickLoot Started")
WinActivate ( "Darkfall Online" )
While 1
; Fade out bubble now?
If $fade Then
If TimerDiff($fadetime) > 1000 Then
$fade = False
Bubble("")
EndIf
EndIf
Sleep(25)
WEnd