Post subject: [AutoIt]Dank Cellar Gold farm (Wizard)
Posted: Sat Jun 09, 2012 5:04 pm
User
Joined: Thu Jun 07, 2012 5:03 pm
Dank cellar Gold Farming Bot 22/06/2012
Donation only version:
- option menu - garbage lvl 60 item - double sellers - tome of secret fixed - gems fixex - restart game if proble or on timer - global timer to shutdown the bot after x min - custom bind for spell - mod selection : allitem - onyblue commoditis - onlygold
coming soon : improved door detection log file save profile change bot config while running Other classes 17/06 add space press to prevent game creation bug and limit. Implemented : - Repair - Collect blue , gems - Unfill inv - 2 Merchents Random - Random 10 min rest ( 1/25 chance) - Random Click, Move - Random Sleep - No more possible lock ( i think :p) - No rare, ( rare act 1 = crap)
the bot will not sell the items in these slot :
Required
- you need radius of course to make this work well. i'm running with 2 +8 items. 238 gf
- 800x600 (code for document/diablo3/diablo3pref.ini replace these line) :
- I put every graphic config low - Bind MOVE (not move/interact) to MIDDLE mouse button (sorry, I forgot to mention that) - A well stuff follower ( i use enchantress with max cc dont take the bump !! ) - this spells and runes :
- Teleport on Z key - SHIELD ON A - ARMOR ON E - TELEPORT TO TOWN ON T
After you get the checkpoint, leave the game and run bot. ( checkpoint from legacy of cain : explore the cellar quest.)
While $work == 1 And $checkCount <10 DEBUG("Search Item") $work = 0 ;~ $SearchResult = PixelSearch(382, 131, $Right, $Bottom, $Color) ;searches for rares ;~ If Not @error Then ;~ MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. ;~ Sleep(2500) ;~ $work = 1 ;~ $checkCount = $checkCount +1 ;~ EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 ) ;searches for magics If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;clicks magic Sleep(Random(2400,2600)) $work = 1 $checkCount = $checkCount +1 EndIf
;~ $SearchResult = PixelSearch(382, 131, $Right, $Bottom, $Color3 ) ;searches for legendarys ;~ If Not @error Then ;~ MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;clicks legendary ;~ Sleep(2500) ;~ $work = 1 ;~ $checkCount = $checkCount +1 ;~ EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4) ;searches for SETS If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(2500) $work = 1 $checkCount = $checkCount +1 EndIf
; search for gems
$SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Amethyst,9) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(Random(2400,2600)) $work = 1 $checkCount = $checkCount +1 EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Ruby,6) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(Random(2400,2600)) $work = 1 $checkCount = $checkCount +1 EndIf $SearchResult = PixelSearch(382, 131, $Right, $Bottom, $Topaz,4) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(Random(2400,2600)) $work = 1 $checkCount = $checkCount +1 EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Emerald,9) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(2500) $work = 1 $checkCount = $checkCount +1 EndIf WEnd DEBUG("Finish Item Searching") EndFunc
Func CheckInv()
If Random(1,5,1)==1 Then Send("{i}") ;opens inv Sleep(Random(200,220)) $full = PixelSearch(780, 474, 782, 476, 0x130C08,5) If @error Then DEBUG("FULL") Send("{i}") ;close inv Return 1 EndIf $full = PixelSearch(754, 474, 756, 476, 0x130C08,5) If @error Then DEBUG("FULL") Send("{i}") ;close inv Return 1 EndIf $full = PixelSearch(761, 466, 762, 468, 0x130C08,5) If @error Then DEBUG("FULL") Send("{i}") ;close inv Return 1 EndIf Send("{i}") ;close inv Return 0 Else Return 0 EndIf EndFunc
Func InvRepair() DEBUG("Going to repair") $slot1x = 538 $slot1y = 367 $offset = 27 Send("t") Sleep(Random(8000,8200)) If Random(1,2,1) == 1 Then ;2 merchants MouseClick("left", 700, 147) ;begin movement towards merchant Sleep(Random(2400,2600)) MouseClick("left", 531, 51) ;moves to get merchant in screen Sleep(Random(3000,3200)) For $i = 0 To 9 For $j = 0 To 3 MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3) Sleep(40) Next Next For $i = 5 To 9 For $j = 4 To 5 MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3) Sleep(40) Next Next Click(294, 296) ;button to open up repair menu Else MouseClick("left", 39, 389) ;begin movement towards merchant Sleep(Random(2400,2600)) MouseClick("left", 31, 108) ;moves to get merchant in screen Sleep(Random(3000,3200)) For $i = 0 To 9 For $j = 0 To 3 MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3) Sleep(40) Next Next For $i = 5 To 9 For $j = 4 To 5 MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3) Sleep(40) Next Next Click(293, 370) ;button to open up repair menu EndIf
Sleep(Random(1500,1600)) MouseClick("left", 186, 326) ;button to pay for repairs Sleep(Random(1500,1600)) $inBag = PixelSearch(780, 474, 782, 476, 0x130C08,5) If @error Then DEBUG("Not at shop") Sleep(500) Send("{ESCAPE}") ;opens menu Sleep(Random(1000,1200)) Click(407, 345) ;leave Sleep(Random(12000,13000)) Else Send("{ESCAPE}") ;opens menu Sleep(Random(1000,1200)) Send("{ESCAPE}") ;opens menu Sleep(Random(1000,1200)) Click(407, 345) ;leave Sleep(Random(2000,2200)) EndIf EndFunc
Func Pause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('Paused...', 0, 0) WEnd ToolTip("") EndFunc ;==>Pause
Func openSpell() ; RANDOM STUFF If Random(1,12,1) == 1 Then send('s') Sleep(Random(2000,3000)) send('s') EndIf EndFunc
Func _Send($text, $milliseconds) $time = TimerInit() Do Send($text) Until TimerDiff($time) > $milliseconds EndFunc
Func Quit() Exit EndFunc ;==>Quit
Func DEBUG($MESSAGE) If $DebugOn Then ToolTip($MESSAGE, 0, 0) EndIf EndFunc ;==>Debug Info
Post subject: Re: [AutoIt]Dank Cellar Gold farm (Wizard)
Posted: Sat Jun 09, 2012 9:07 pm
User
Joined: Fri Jul 09, 2010 7:14 pm
hmm, bot run great...but don't no y, it doesn't pick up items for me...(just move around, loot golds, town, exist) oo may the color is wrong for me >.<...how do i get the color? drop items on ground, print screen, use autoit window information...drag the thing onto the item on ground? or drag it to the item color in inventory?...i'm hella nub.
Post subject: Re: [AutoIt]Dank Cellar Gold farm (Wizard)
Posted: Sat Jun 09, 2012 9:27 pm
User
Joined: Thu Jun 07, 2012 5:03 pm
item name on ground but the color must be good normaly blue color from name ect , gem its the color of the item on the floor you take the color from the screen
item name on ground but the color must be good normaly blue color from name ect , gem its the color of the item on the floor you take the color from the screen
xd, can i zoom in from the game to get the color? (default key=z) or i can screen shot, zoom in from paint to get the color...or am i suppose to get the color exactly as the screen show?.
Post subject: Re: [AutoIt]Dank Cellar Gold farm (Wizard)
Posted: Sun Jun 10, 2012 12:33 am
User
Joined: Thu Jun 07, 2012 5:03 pm
i know archon is a bit long i will reduce the time and put a drag click to click the small one faster. and for the cellar the problem is when the 4 teleport bug :s maybe i should try to increase the pixel scan square. will see
Post subject: Re: [AutoIt]Dank Cellar Gold farm (Wizard)
Posted: Sun Jun 10, 2012 1:07 am
User
Joined: Sun Jun 10, 2012 1:05 am
1. Great bot! 2. Could you TP to town first then exit? It shaves a few seconds. 3. I see you mentioned a sell function, yet the bot is leaving blue items so it has nothing to sell. Intended?
Users browsing this forum: No registered users and 3 guests
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum
Login 
Register
FAQ
Search
blue color from name ect , gem its the color of the item on the floor 
