|
You last visited: Today at 16:35
Advertisement
Auto Loot
Discussion on Auto Loot within the General Gaming Discussion forum part of the General Gaming category.
04/01/2009, 03:51
|
#1
|
elite*gold: 0
Join Date: Dec 2008
Posts: 4
Received Thanks: 1
|
Auto Loot
Hey has anybody figured out a way to auto loot corpses or some macros that will let you take off weapons, and open a mobs inventory way simpler? Thanks
|
|
|
04/02/2009, 20:13
|
#2
|
elite*gold: 0
Join Date: Jul 2005
Posts: 55
Received Thanks: 35
|
Found an autoit script, not sure how well it works but give it a try I suppose.
Autoit loot script by cyberheter0 :
Code:
;Author cyberheter0
Opt("MouseCoordMode", 0) ; relative coord to the active windows
Opt("MouseClickDragDelay", 250) ; drag speed
If Not FileExists(@ScriptDir&"\Bcoord.ini") Then
IniWrite(@ScriptDir&"\Bcoord.ini","Bcoord","X","0")
IniWrite(@ScriptDir&"\Bcoord.ini","Bcoord","Y","0")
Sleep(500)
EndIf
Global $bpCoordSetX = IniRead(@ScriptDir&"\Bcoord.ini","Bcoord","X","0")
Global $bpCoordSetY = IniRead(@ScriptDir&"\Bcoord.ini","Bcoord","Y","0")
Global $pKP = 0
Global $aPKP = 0
Global $xyRB
Global $xyLT
Global $pSX
Global $pSY
Global $count
Global $zcount
Global $error
HotKeySet("{F1}","setBCoord") ;set the coordinate bag
HotKeySet("{PRINTSCREEN}","lTGetCoord") ;left top x, y
HotKeySet("{PAUSE}","rBGetCoord") ; right bottom x, y
HotKeySet("{END}","Terminate")
WinWaitActive("Darkfall Online")
while 1
if ($aPKP == 1) AND ($pKP == 1) then
$getRB= StringSplit($xyRB, '_', 2)
$getLT= StringSplit($xyLT, '_', 2)
$pColor = "0x757878_0xB6BCBC_0xB9C986_0x8B8F8F" ;separate each value by an underscore color value of item
$color= StringSplit($pColor, '_', 2)
;MsgBox(0, "X and Y are LT :", $color[0] & "," & $color[1])
;MsgBox(0, "X and Y are RB :", $getRB[0] & "," & $getRB[1])
$count = 0
Do
;MsgBox(0, "count ", $count & "," & $color[$count])
$zcount = 0
Do
$coord = PixelSearch( $getLT[0], $getLT[1], $getRB[0], $getRB[1], $color[$count], 30, 1) ;0x757878 ;0xB6BCBC 0xb9c986 $getLT[0]+303, $getLT[1]+225
If Not @error Then
;if (($coord[0] <> $pSX) And ($coord[1] <> $pSY)) Then
MouseClickDrag("left", $coord[0], $coord[1], $bpCoordSetX+Random(10,20,1), $bpCoordSetY+Random(10,20,1), 0)
MouseMove($getLT[0], $getLT[1], 0)
$pSX = $coord[0]
$pSY = $coord[1]
$zcount += 1
;MsgBox(0, "count ", $zcount)
$error = @error
if ($coord[0] == $pSX) And ($coord[1] == $pSY) And ($zcount ==1) Then
$error = 1
;MsgBox(0, "count ", "in the loop")
EndIf
;MsgBox(0, "Coord check", $coord[0] & "," & $coord[1])
EndIf
;if @error Then
;MsgBox(0, "Attention", "ERROR")
;EndIf
Until $error = 1
$count += 1
;MsgBox(0, "Attention", "passe le controle d'Erreur")
Until $count = UBound($color)
MsgBox(0, "Attention", "STOP")
$pKP = 0
$aPKP = 0
EndIf
WEnd
Func setBCoord()
$getPos = MouseGetPos()
IniWrite(@ScriptDir&"\Bcoord.ini","Bcoord","X", $getPos[0])
IniWrite(@ScriptDir&"\Bcoord.ini","Bcoord","Y", $getPos[1])
$bpCoordSetX = $getPos[0]
$bpCoordSetY = $getPos[1]
EndFunc
Func rBGetCoord()
Sleep(100)
ToolTip("the right bottom coord", 0, 0)
Sleep(200)
ToolTip("")
$posRB = MouseGetPos()
$xyRB = $posRB[0] & "_" & $posRB[1]
$pKP = 1
return $xyRB
EndFunc
Func lTGetCoord()
Sleep(100)
ToolTip("the left top coord", 0, 0)
Sleep(200)
$posLT = MouseGetPos()
$xyLT = $posLT[0] & "_" & $posLT[1]
$aPKP = 1
return $xyLT
EndFunc
Func Terminate()
Sleep(100)
ToolTip("script terminated", 0, 0)
Sleep(200)
Exit 0
EndFunc
|
|
|
04/06/2009, 09:10
|
#3
|
elite*gold: 360
Join Date: Jan 2008
Posts: 1,127
Received Thanks: 522
|
Wish i could paly that game...
|
|
|
04/12/2009, 09:26
|
#4
|
elite*gold: 0
Join Date: Mar 2008
Posts: 30
Received Thanks: 2
|
I have figured out that u need to press PrtScr and Pause after pressing F1 to set coordinates for backbag, but after that I have no idea how it should auto-loot.
If some1 has made it fully work, it would be nice to share some info..
|
|
|
09/12/2009, 11:17
|
#5
|
elite*gold: 0
Join Date: Sep 2009
Posts: 129
Received Thanks: 4
|
I cant play it why? it come an error
|
|
|
12/14/2009, 20:02
|
#6
|
elite*gold: 0
Join Date: Dec 2004
Posts: 118
Received Thanks: 42
|
Quote:
Originally Posted by BuddyT4nk
I have figured out that u need to press PrtScr and Pause after pressing F1 to set coordinates for backbag, but after that I have no idea how it should auto-loot.
If some1 has made it fully work, it would be nice to share some info..
|
It's no true autoloot ^^
You have to configure it first (you guesst right: Set coordinates if your bag). After you did that, you'd need to do something i guess. Either mouse over the items or hit a key (unsure, just quickly watched at the script and my AutoScript abilities are kinda rusty) and it will move the drag & drop the items quickly in your inventory.
As it seems to work with pixel color/check's I'd say (just a guess) That you need to mouse over the items and the script will automatically drag and drop it in your inventory. Just a guess, but worth a shot ^^
|
|
|
|
Similar Threads
|
Talisman Online Bot, auto heal, auto pick loot
09/07/2016 - General Gaming Discussion - 22 Replies
OK first of all, if u opened this topic, and read PRESS THE THANKS BUTTON!!!!
now i was now going to release this cuz u ppl dont know how to thank for that stuff that is given to u for free but anyways.
This is For AC Tools and its intended for fairies
now pay attention,
leech needle skill must be on button 3
the max hp buff on button 8
and mana pots must be on button 0
|
auto spacebar (loot) and auto pot for elite cabal
09/13/2009 - Cabal Hacks, Bots, Cheats, Exploits & Macros - 1 Replies
anybody know how or got any program for it, thanks =)
|
does 5bot work?/i need working auto leveler and auto loot
09/01/2009 - Conquer Online 2 - 5 Replies
hey i need a good auto loot bot and auto level bot for conquer i understand 5bot you need to pay, but does it still work? is it worth it? anyone have a good working bot that they can share?
please post here! :{
|
GG Updated... Auto Hp, Auto loot, Auto summon not working anymore
11/29/2007 - Dekaron - 21 Replies
GG Updated again! all of my pinacle are not working...
|
All times are GMT +2. The time now is 16:35.
|
|