MangleClaw farming bot

[richardptt]

blue from boss and no it doesnt the chest

are u ranged? or melee, where blues drop near the blue entrance or under ur feets ? its because it has a not so big area that SCAN for the blue, if u have 2 items 1 rare and 1 blue and both near each othe rand picked rare and not blue, its because of graphics maybe, and tell me how many items did boss drop more than 5+ ?

[mrxkenny]

Hey Richardptt, first and foremost ; Good job!
Second ; Could you add a guide on how to make this work? The Manglebot 2.0.4 i just open Diablo, and run the script from the folder.

But yours, you have to move files around and stuff, why is that? What goes where?
A quick guide, and a download file for the new one, would be greatly appreciated. I am really getting confused right now

yes I agree. you should upload a zip folder with bot.exe into a bundle and a readme file telling what file goes where

[richardptt]

Hey Richardptt, first and foremost ; Good job!
Second ; Could you add a guide on how to make this work? The Manglebot 2.0.4 i just open Diablo, and run the script from the folder.

But yours, you have to move files around and stuff, why is that? What goes where?
A quick guide, and a download file for the new one, would be greatly appreciated. I am really getting confused right now

u dont need to move files any more, but why is the bot not working the maglebot, what ur resolution is your grapich configuration like this http://www.ownedcore.com/forums/atta...aaaaaaaaaa.jpg

[amustrami]

Anybody have a good crusader build. Currently lvl 61.

Sent from my SCH-I545 using Tapatalk

[richardptt]

yes I agree. you should upload a zip folder with bot.exe into a bundle and a readme file telling what file goes where

i NEVER done bots b4 not even post any thing ON internet, i STARTED doing that Yesterday :S i havent done the bot, i need some tester to it , and then may do that

[mrxkenny]

are u ranged? or melee, where blues drop near the blue entrance or under ur feets ? its because it has a not so big area that SCAN for the blue, if u have 2 items 1 rare and 1 blue and both near each othe rand picked rare and not blue, its because of graphics maybe, and tell me how many items did boss drop more than 5+ ?

ranged, wizard with 1920x resolution. blue drops near entrance and boss drops about 1-3 each time.

[Crapling]

u dont need to move files any more, but why is the bot not working the maglebot, what ur resolution is your grapich configuration like this http://www.ownedcore.com/forums/atta...aaaaaaaaaa.jpg

Is there any chance that you can make it work for 1680 by 1050? If not, how would I go about doing it myself?

[mrxkenny]

ohh I need to use autoIT program instead of the bot.exe thats provided in the first post?

[richardptt]

Is there any chance that you can make it work for 1680 by 1050? If not, how would I go about doing it myself?

u would need to CHANGE all x and y COORDS :S wich is going to take alot of time

[richardptt]

ohh I need to use autoIT program instead of the bot.exe thats provided in the first post?

yh, i didnt make it .EXE

[Crapling]

Thanks for the quick answer, any idea on how to calculate down so I can get the coords or should I just look that up on The Google? :3 Thanks again for the quick replies.

[Kelz]

Works great so far, had to change the wait timer from60sec to abit lower than half since my dmg is so high it dies fast and that 60 second down time is just dreadful. Would be great with adding an option to open chests. Few issues i guess is that it sometimes misses picking up gems?

This timer is only a security in cased it doesn't find loots. It doesn't actually wait 60 seconds unless it's stucked

Edit: Also, 20 pages, too much to read

[richardptt]

Thanks for the quick answer, any idea on how to calculate down so I can get the coords or should I just look that up on The Google? :3 Thanks again for the quick replies.

first u need to learn how to use auto it, second, u need to know WHAT i done in this bot, and change evry coord on it wich is aroud 100

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

; We need to require admin to interact with D3
#RequireAdmin
#Include <File.au3>
#Include <Date.au3>

;#include <ImageSearch.au3>
; Colors of loot types
$blue = 0x6969FF;
$yellow = 0xFFFF00
$green = 0x00FF00
$legend = 0xFF8000
$gem = 0x99bbff


$selltime = 1
$x1=0
$y1=0

; Config variables
;---------------------------------------------------------------------------------------------------------------------------------------------------
; L O O T T Y P E
$pickupGem = IniRead("config.ini", "LootType", "Gems", True)
$pickupYellow = IniRead("config.ini", "LootType", "Yellow", True)
$pickupLegend = IniRead("config.ini", "LootType", "Legendary", True)
$pickupBlue = IniRead("config.ini", "LootType", "Blue", True)

; S E T T I N G S
$StatusTip = IniRead("config.ini", "Settings", "Statustip", True)
$bossTimer = IniRead("config.ini", "Settings", "bossTimer", 8000) ;Time to wait before checking loots. May help if your character leaves before the end
$instantLeave = IniRead("config.ini", "Settings", "instantLeave", True) ; Uses town portal to leave or not
$blueSleep = IniRead("config.ini", "Settings", "blueSleep", 5000)

; S E L L OR S A L V A G E

$Sell = IniRead("config.ini", "SELL OR SALVAGE", "Sell", True)
$Salvage = IniRead("config.ini", "SELL OR SALVAGE", "Salvage", True)

; Enable Chest and pool loot
$Chestandpoolloot = IniRead("config.ini", "Enable Chest and pool loot", "Chestandpoolloot", True)
;---------------------------------------------------------------------------------------------------------------------------------------------------
$FLog = True
; Window to scan for loots
$lootX = 500
$lootY = 150
$endLootX = 1540
$endLootY = 808
;$result1 = _ImageSearch("resumobutton.png",1,$x1,$y1,0)
Global $Run = 0
global $successrares = 0
global $successmagic = 0
global $successlegs = 0
global $successrepairandsell = 0
global $successgems = 0


Global $work = 0
Global $Inventory[6][10] = [[1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
[1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
[1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
[1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0], _
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]

WinActivate("Diablo III")

Global $Paused
HotKeySet("{F10}", "TogglePause")
HotKeySet('{END}', 'Quit')

StartGame()
TogglePause()

While 1
StartGame()
WEnd

; From the menu, creates a game
Func StartGame ()
$Run += 1
PRINT("Joining Game [" & $Run & "]")
LogToFile("Joining Game [" & $Run & "]")
sleep(2000)
local $q = 0
While $q < 100
;result1()
$coord = PixelSearch(340, 513, 341, 514, 0x290400, 20)
If Not @error Then
;if $result1 = 1 Then ; Looks for the "play" button
$q = 101
Print("Play Button Found, Game: [" & $Run & "]")
Sleep(1000)
MouseClick("left", 340, 513, 1)
Else
mousemove(440, 533)
$q = $q + 1
if $q = 40 Then
MsgBox("", "ERROR", "Please makes sure u are running at 1900x1000, on game and also on desktop, and download png and other all files in order to func right")
exit
EndIf
Sleep(250);
Print("Play Button |N O T| Found, Game: [" & $Run & "] Try number: " & $q & " Press » END »» button to stop the bot")

EndIf;
WEnd
usePortal()
EndFunc

; Use the portal to go to the boss
Func usePortal()
$found = false;
while not $found
; Looks for the blue portal in town
$coord = PixelSearch(439, 1013, 440, 1014, 0x35373B, 20)
If Not @error Then
$found = True
CheckInv()
Print("Bags are NOT Full, Lets Keep On")
Sleep(300)
MouseClick("left", 159, 117, 1, 10)
sleep(2800)
Else
Sleep(10)
EndIf
WEnd
GoToBoss()
EndFunc

; Goes to the boss room
Func GoToBoss()
Print("Taking Portal")
Sleep(300)
$found = False
while not $found
; Looks for the blue door
$coord = PixelSearch(679, 215, 679, 215, 0x245cb4, 30)
If Not @error Then
$found = True
Sleep(500)
Else
Sleep(10)
EndIf
WEnd
Chestandpoolloot()
EndFunc

func Chestandpoolloot()
if $Chestandpoolloot Then
LookForReflection()
Else
Bluedoor()
EndIf
EndFunc

; Checks if there is a yellow xp bonus thing
Func LookForReflection()
MouseClick("left", 1397, 656)
Print("Mouse Click Chest if Have")
sleep(1800)

; Looks for the yellow liquid
Print("Looking for Exp Pool ")
$coords = PixelSearch(1222, 428, 1806, 810, 0xE0AD1D, 20)
If Not @error Then
; Go to it
Sleep(100)
MouseClick("left", $coords[0], $coords[1], 1, 10)
Sleep(2500) ; Wait a bit
Loot()
sleep(340)
Print("Exp Pool Picked, Going To Blue Portal")
Bluedoor()

Else
Print("Exp Pool Not Found, Checking Any Drop")
sleep(150)
Loot()
sleep(150)
Bluedoor()
EndIf

EndFunc

func Bluedoor()
;Searches for blue door
$found1 = False
while NOT $found1
$coordDoor = PixelSearch(282, 17, 1015, 315, 0x4070D9, 50)
If Not @error Then
$found1 = true;
sleep(150)
MouseClick("left", $coordDoor[0], $coordDoor[1], 1, 10)
StartBoss()
EndIf
WEnd
EndFunc

; Go into position for the boss
Func StartBoss()
Sleep(2800)
$found = False
while not $found
; Looks for candles in the top left corner
$coord = PixelSearch(135, 572, 135, 572, 0x6D6236, 30)
If Not @error Then
$found = True
Sleep(200)
; Go at the bottom of the room

; Use some spells
Else
bluedoor()
EndIf
WEnd
BeatBoss()
EndFunc

; Fights the boss
Func BeatBoss()
Send("2")
Sleep(100)
Send("3")
Sleep(100)
Send("4")
sleep(100)
MouseClick("left", 282, 964)
sleep(10)
Print("Getting in Position to Fight")
Sleep(2300) ; Waits for the player to arrive at the battle spot. Dont put this too low
$dead = False
MouseMove(1184, 273)
sleep(50)
send("{SHIFTDOWN}")
sleep(50)
MouseDown("left")
sleep(50)
Mouseup("left")
sleep(50)
send("{SHIFTup}")
sleep(800)
MouseDown("right")
sleep(150)
Print("Shooting")
Sleep(20)
Send("1")
sleep(5000)
MouseMove(1197, 320)
Send("1")
sleep(2200)
Send("1")
sleep(2200)
Send("1")
MouseMove(1330, 35
sleep(2200)
Send("1")
sleep(2200)
Send("1")
sleep(2200)
Send("1")
sleep(1600)
Send("Q")
;sleep($bossTimer)
Print("Checking if Boss is Dead")
while not $dead
; Looks for loots
$coords = PixelSearch($lootX, $lootY, $endLootX, $endLootY, $legend, 1)
If Not @error Then
$dead = True
MouseUp("right")
Sleep(300)
MouseClick("left", $coords[0], $coords[1], 1, 10)
$Successlegs += 1
LogToFile("Picked 1/" & $Successlegs & "Legendaries at Run nº" & $run)
Sleep(100)
Else
$coords = PixelSearch($lootX, $lootY, $endLootX, $endLootY, $blue, 0)
If Not @error Then
$dead = True
MouseUp("right")
Sleep(300)

EndIf
EndIf

WEnd
checkloot()
EndFunc
Func checkloot()
Loot()
LootGold()
EndFunc

; Get every loot
Func Loot()
Print("Looting Items")
Sleep(2000)
local $work = 0
While $work <= 2
$work = $work + 1
Print("Looting Items, Try nº " & $work)
if $pickupYellow Then
LootItem()
EndIf;
;#ce
Sleep(200)
If $pickupGem Then
LootItem3()

EndIf

Sleep(200)
If $pickupBlue Then
LootItem1()
EndIf
Sleep(200)
if $pickupLegend Then
LootItem2()
EndIf
Sleep(200)
LootItem2()
Print("Looting Items, Try nº " & $work )
WEnd
Sleep(500)

EndFunc

Func LootGold ()
Print("Looting Gold")
Sleep(100)
MouseClick("left", 1292, 444)
Sleep(450)
if $instantLeave Then
tpTown()
Else
menuLeave()
EndIf
EndFunc
; Loot function
Func LootItem()
$coords = PixelSearch(500, 150, 1540, 808, $yellow, 0)
If Not @error Then
Print("Looting Rare: " & $work )
MouseClick("left", $coords[0], $coords[1], 1, 10)
Sleep(1000)
$Successrares += 1
$work = $work + 1
LogToFile("Picked: 1/" & $Successrares & " Rares at Run nº" & $run)
return True;
Else
return False;
EndIf
EndFunc

Func LootItem1()
$coords = PixelSearch(500, 150, 1540, 808, $blue, 0)
If Not @error Then
Print("Looting a Magic: " & $work )
MouseClick("left", $coords[0], $coords[1], 1, 10)
Sleep(1000)
$Successmagic += 1
LogToFile("Picked: 1/" & $Successmagic & " Magics at Run nº" & $run)
return True;
Else
return False;
EndIf
EndFunc

Func LootItem2()
$coords = PixelSearch(500, 150, 1540, 808, $legend, 0)
If Not @error Then
Print("Looting legendarie: " & $work )
MouseClick("left", $coords[0], $coords[1], 1, 10)
Sleep(1000)
$Successlegs += 1
LogToFile("Picked 1/" & $Successlegs & "Legendaries at Run nº" & $run)
return True;
Else
return False;
EndIf
EndFunc

Func LootItem3()
$coords = PixelSearch(500, 150, 1540, 808, $gem, 0)
If Not @error Then
Print("Looting Gems: " & $work )
MouseClick("left", $coords[0], $coords[1], 1, 10)
Sleep(1000)
$Successgems += 1
LogToFile("Picked 1/" & $Successgems & "Gems at Run nº" & $run)
return True;
Else
return False;
EndIf
EndFunc



; Teleport back to town
Func tpTown ()
Send("T")
Sleep(3000)
LeaveGame()
EndFunc

; Leaves the game with escape
Func menuLeave()
Print("Leaving Game")
MouseClick("left", 1264, 1030, 1, 10)
sleep(100)
MouseClick("left", 340, 473, 1, 10)
Sleep(12000)
StartGame()
EndFunc
; Leaves the game with town portal
Func LeaveGame ()
$inTown = False
while not $inTown
; Deects Lea's room in town
$coords = PixelSearch(664, 289, 664, 289, 0xFCF05E, 30)
If Not @error Then
$inTown = True
Else
Sleep(10)
EndIf
WEnd
send ("{ESCAPE}")
sleep(100)
MouseClick("left", 340, 473, 1, 10)
Sleep(3000)
StartGame()
EndFunc

Func PRINT($message)
if $StatusTip Then
ToolTip($message, 1, 1)
EndIf
EndFunc

Func CheckInv()
;If Random(1,2,1) == 1 Then
sleep (250)
Print("Checking Bags")
Send("{i}") ;opens inv
Sleep(220)
$full = PixelSearch(1861, 720, 1862, 721, 0x0E0E0
If @error Then
Print("Bags Full 1")
Send("{i}") ;close inv
BankSellandRepair()
Else

EndIf
#cs
$full = PixelSearch(1863, 669, 1864, 670, 0x10130f)
If @error Then
Print("Bags Full 2")
Send("{i}") ;close inv
BankSellandRepair()

EndIf
#ce

Send("{i}") ;close inv
; EndIf

EndFunc

Func BankSellandRepair()
$successrepairandsell += 1
PRINT("Going to Bank legs")
MouseClick("left", 417, 33) ; Move to Bank
Sleep(3200)
MouseClick("left", 923, 521) ; Move to Bank
Sleep(80)
MouseClick("left", 516, 607)
sleep(150)
Bank()
sellorsalvage()
EndFunc

func sellorsalvage()
if $Sell Then
Sell()
Else
salvage()
EndIf
EndFunc



Func Sell()
MouseClick("left", 1503, 53) ; Click merchant
Sleep(3000)
PRINT("Selling!")
click()
Sleep(300)
Repair()
Sleep(200)
Send("{Space}") ; Exit merchant screen
sleep(200)
MouseClick("left", 647, 972) ; Going to portal
PRINT("Sell Done Going to Portal To kill Boss!")
sleep(1200)
MouseClick("left", 1, 94 ; Going to bank
sleep(1800)
GoToBoss()
EndFunc

func salvage()
PRINT("Salvaging items!")
MouseClick("left", 1796, 611) ; going to BLACK SMITH
sleep(2000)
MouseClick("left", 515, 485)
sleep(200)
MouseClick("left", 261, 293)
sleep(200)
clickleft()
Sleep(200)
Repair1()
Sleep(200)
Send("{Space}") ; Exit blacksmith screen
MouseClick("left", 1, 556) ; going to BLACK SMITH
PRINT("Salvage Done Going to Portal To kill Boss!")
sleep(2000)
GoToBoss()
EndFunc

Func Bank()
PRINT("Banking Legs!")
Local $i = 0
While $i <= 5
$i = $i + 1
sleep(180)
$SearchResult = PixelSearch(1405, 561, 1899, 748, 0x583611) ;searches for rares
If Not @error Then
MouseClick("right", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
EndIf
sleep(180)
$SearchResult1 = PixelSearch(1405, 561, 1899, 748, 0x9e1a0a) ;searches for rares
If Not @error Then
MouseClick("right", $SearchResult1[0], $SearchResult1[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
EndIf
sleep(180)
$SearchResult2 = PixelSearch(1405, 561, 1899, 748, 0x2a180 ;searches for rares
If Not @error Then
MouseClick("right", $SearchResult2[0], $SearchResult2[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
EndIf
sleep(180)
$SearchResult3= PixelSearch(1405, 561, 1899, 748, 0x4d2f0f) ;searches for rares
If Not @error Then
MouseClick("right", $SearchResult3[0], $SearchResult3[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
EndIf

WEnd
Send("{Space}") ; Exit bank screen
EndFunc
Func click()
sleep(200)
Local $SlotX = 1425
Local $SlotY = 588
Local $i, $j
For $i = 0 to UBound($Inventory, 1) - 1
For $j = 0 to UBound($Inventory, 2) - 1
If $Inventory[$i][$j] <> 0 Then
MouseClick("right", $SlotX, $SlotY)
Sleep($selltime)
EndIf
$SlotX += 50
Next
$SlotY += 47
$SlotX = 1425
Next
EndFunc

Func clickleft()
sleep(200)
Local $SlotX = 1425
Local $SlotY = 588
Local $i, $j
For $i = 0 to UBound($Inventory, 1) - 1
For $j = 0 to UBound($Inventory, 2) - 1
If $Inventory[$i][$j] <> 0 Then
MouseClick("left", $SlotX, $SlotY)
Sleep($selltime)
EndIf
$SlotX += 50
Next
$SlotY += 47
$SlotX = 1425
Next
EndFunc
#cs
Func result1()
$result1 = _ImageSearch("resumobutton.png",1,$x1,$y1,0)
EndFunc
#CE
Func Repair()
PRINT("Repairing.")
MouseClick("left", 509, 482) ; Open up repair menu
Sleep(400)
MouseClick("left", 273, 592) ; Pay for repairs
EndFunc

Func Repair1()
PRINT("Repairing.")
MouseClick("left", 523, 609) ; Open up repair menu
Sleep(250)
MouseClick("left", 261, 593) ; Pay for repairs
EndFunc

Func TogglePause()
$paused = NOT $paused
while $paused
Print("Bot Paused!")
sleep(10)
WEnd
EndFunc

Func LogToFile($message)
if $FLog Then
$file = FileOpen("OldRuinsBotLog.txt", 1)
if $file <> -1 Then
FileWriteLine($file, "[" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $message)
FileClose($file)
EndIf
EndIf
EndFunc


Func Quit()
if $FLog Then
$file = FileOpen("OldRuinsBotLog.txt", 1)
if $file <> -1 Then
FileWriteLine($file, "............................................................................... ")
FileWriteLine($file, "[" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "] Exiting...")
FileWriteLine($file, "---------- SUMARY -------------------")
FileWriteLine($file, "")
FileWriteLine($file, "---------- || -------------------")
FileWriteLine($file, "---------- || -------------------")
FileWriteLine($file, "---------- \ / -------------------")
FileWriteLine($file, "---------- \/ -------------------")
FileWriteLine($file, "Total Runs - " & $Run)
FileWriteLine($file, "Total Success Repair and sell - " & $successrepairandsell)
FileWriteLine($file, "Total Success »»»» Legendaries »»»» - " & $successlegs)
FileWriteLine($file, "Total Success Rares - " & $successrares)
FileWriteLine($file, "Total Success Magics - " & $successmagic)
FileWriteLine($file, "Total Success Gems - " & $successgems)
FileWriteLine($file, "-----------------------------------------------------------------------------")
FileWriteLine($file, "-----------------------------------------------------------------------------")
FileWriteLine($file, "-----------------------------------------------------------------------------")
FileWriteLine($file, "-----------------------------------------------------------------------------")
FileClose($file)
EndIf
EndIf
Exit
EndFunc

[billxt]

very cool script richardptt , thanks

i was wondering if its possible to make another program running next to the bot, which does like this:
1 imagesearch DC popup
2 close bot process
3. make diablo goes back to main screen
4. start process bot

[Kelz]

Well actually to scale resolution you just need a multiplier, and then add that multiplier to every click. But that's still boring anyway.

richardptt your update seems cool, I'll try that. Can I put in on the front page of the thread ?

Maybe we could directly create a github repo or whatever to update the bot