Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;notAres' DH Gold Script 1.9.3 - 6/18/2012 - New INI option: Identify. Added VendItems() and StashItems() to simplify code and added 2 colors of legendaries to stash (highlighted/not highlighted). Trimmed down all "Area" CheckFor() calls. Fixed CheckFor("ExitGame"). Moves mouse out of the way while looting. Added deaths/cellars to PAUSED tooltip.
- ;YOU MUST START THE BOT AT THE RESUME GAME SCREEN!
- ;Thread: http://ownedcore.com/forums/diablo-3/diablo-3-bots-programs/354464-goldfarming-notares-sarkoth-dh-gold-script-autoit-script-1920x1080.html
- ;;;;;
- ;WONT WORK UNLESS MOVE IS BOUND TO MIDDLE MOUSE (Mouse 3) -- NOT MOVE/INTERACT
- ;Suggested build: http://us.battle.net/d3/en/calculator/demon-hunter#aRYXVT!aYW!YaaabY
- ;Required display mode for cellar detection: "FULLSCREEN WINDOWED"
- ;Official supported resolution: 1920x1080
- ;;;;;
- ;Original by mackus101 @ ownedcore
- ;ImageSearch contributions by rvbfreak, goofinator, and asuRob
- ;Refactoring and additional functions by Shimizoki
- ;=========== DO NOT TOUCH ===========;
- #RequireAdmin
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- Opt('MouseCoordMode', 2)
- Opt('PixelCoordMode', 2)
- Global $size = WinGetClientSize("[CLASS:D3 Main Window Class]"), $ver = "1.9.3", $ini = "DH.ini", $hFont = 0, $title, $Paused, $Go = False, $i = 0, $gX = 0, $gY = 0, $LegendaryCount = 0, $SetCount = 0, $RareCount = 0, $MagicCount = 0, $GemCount = 0, $TomeCount = 0, $deathCount = 0, $cellarCount = 0, $t = TimerInit(), $rt = 0, $run = 0, $yellow = 0xFFF000, $red = 0xD90000, $lblRun, $lblLocation, $lblStatus, $lblLast, $lblRuntime, $lblGear, $lblItems
- For $i = 0 To Random(0, 7, 1)
- $title &= Chr(Random(97, 122, 1))
- Next
- For $i = 0 To Random(5, 10, 1)
- $title &= Chr(Random(65, 90, 1))
- Next
- $title &= " "
- Global $gems[8] = ["Ru1.png", "Ru2.png", "Em1.png", "Em2.png", "To1.png", "To2.png", "Am1.png", "Am2.png"]
- If @OSArch = "X64" Then DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
- If @OSArch = "X64" And Not @AutoItX64 Then MsgBox(16, "ERROR", "Why aren't you running the 64-bit AutoIt??? Expect bugs!")
- If $size = 0 Then
- MsgBox(16, "Error", "Diablo III is not running, cannot grab resolution!" & @CRLF & "Exiting...")
- Exit
- EndIf
- ;====================================;
- ;============= SETTINGS: DONT CHANGE HERE, CHANGE DH.INI =============;
- HotKeySet("=", "Begin") ;script toggled on/off by pressing =
- HotKeySet("{PAUSE}", "TogglePause") ;script toggle pause by pressing Pause/Break key
- HotKeySet("x", "Stop") ;script stopped by pressing x
- ;Change to match your abilities (1-4 by default)z
- $skillCaltrops = "1"
- $skillSmokeScreen = "2"
- $skillPreparation = "3"
- $skillCompanion = "4"
- $movementSpeed = 25 ;This is the % increase movement speed you have. 25 = 25%, 0 = 0% (25% is the movement cap but SS + Displacement avg = 32%)
- ;Custom Loot
- $pngLoc = "@ScriptDir" ;Location of the .PNGs (NO SUBFOLDERS - ALL PNGS GO HERE)
- $totalItems = 1 ;Number of items in the pick array
- Global $pick[$totalItems] ;DONT CHANGE THIS
- ;Array of items to loot (GEMS AND TOMES ALREADY INCLUDED)
- $pick[0] = "mythic.png|40" ;png|Tolerance
- ;$pick[1] = "item2.png|0"
- ;$pick[2] = "item3.png|0"
- ;Looting
- $LootSets = "True" ;True if you want to pick up Sets
- $LootLegendaries = "True";True if you want to pick up Legendaries
- $LootRares = "True" ;True if you want to pick up Rares
- $LootMagic = "True" ;True if you want to pick up Magic
- $LootGems = "True" ;True if you want to pick up Gems
- $LootTomes = "True" ;True if you want to pick up Tome of Secrets
- $LootCustom = "False" ;True if you want to pick up Custom Items (The items in the $pick array above)
- ;Manage Loot
- $Identify = "True" ;True to enable identifying items before stashing/vendoring
- $mLoot = 5 ;Nuber of successful runs until Stash and Vendor
- $mLootOff = 2 ;Stash and Vendor after mLoot +- X number of runs (Variability)
- ;Stashing
- $StashLoot = "True" ;True if you want to store Items in the stash
- ;---
- $StashLegendary = "True";True if you want to store Legendary items in the stash
- $StashRare = "True" ;True if you want to store Rare items in the stash
- $StashMagic = "False" ;True if you want to store Magic items in the stash
- $StashTomes = "True" ;True if you want to store Tomes items in the stash
- $StashGems = "True" ;True if you want to store Gems items in the stash
- ;Vendoring ==NEW SETTINGS==
- $VendorLoot = "True" ;True if you want to vendor anything
- ;---
- $VendorRare = "True" ;True if you want to vendor Rares
- $VendorMagic = "True" ;True if you want to vendor Magic
- $vendorAll = "False" ;True if you want to right click all items when talking to vendor
- $vendorRows = 5 ;# of rows to vendor, starting from the top (default = 5: bottom row is safe)
- $vendorCols = 10 ;# of columns to vendor, starting from left
- ;Variability ==NEW SETTINGS==
- $Timer = "True" ;True and the bot will add random sleep intervals
- ;---
- $attackTime = 3900 ;Time (in ms) the script will shoot sarkoth with the right button
- $attackMulti = "True" ;True if you want to shoot both left and right in addition to the middle (False for Lightning Ball)
- $walktime = 2800 ;Time (in ms) the script waits for you to enter and load the cellar. Slow this down for slower move speeds and loading times
- $loadtime = 3400 ;Time (in ms) the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
- $tptime = 6900 ;Time (in ms) the script waits for teleport before exiting the game
- ;====================================;
- $x_ratio = $size[0] / 1920
- $y_ratio = $size[1] / 1080
- If FileExists($ini) Then
- Call("ReadINI")
- Call("CreateINI")
- Else
- Call("CreateINI")
- EndIf
- If $pngLoc == "@ScriptDir" Then $pngLoc = @ScriptDir & "\pics\"
- If $totalItems < 1 Then $LootCustom = "False"
- $mLootIn = $mLoot
- $movementSpeed = 1 + ($movementSpeed / 100)
- $VersionsInfo = "http://dl.dropbox.com/u/9955791/version.ini"
- $oldVersion = IniRead("updater.ini", "Version", "Version", $ver)
- $newVersion = "0.0"
- If Not FileExists($pngLoc & "MainMenu.png") Then
- MsgBox(16, "Fatal Error", "FATAL ERROR: Cannot find: " & $pngLoc & "MainMenu.png" & @CRLF & "Make sure your directory is set properly in the script")
- Exit
- EndIf
- Call("SetupGUI")
- Call("DoUpdate")
- While 1
- Call("RestartRun")
- WEnd
- Func RestartRun()
- If ($Go) Then
- $i = 0
- WinSetTitle($title, "", $title & $ver & " - Running")
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- ;Checks if the player is Dead/Logout/Window, then if in Main Menu, etc.
- If CheckDead() Then
- Return
- ElseIf CheckFor("ExitGame", "", Round(860 * $x_ratio), Round(400 * $y_ratio), Round(1040 * $x_ratio), Round(450 * $y_ratio), 0.5, 140) Then
- GUICtrlSetData($lblStatus, "Status: Exit window up")
- MouseClick("left", Round(1064 * $x_ratio), Round(632 * $y_ratio))
- Sleep(100)
- Send("{SPACE}")
- Return
- ElseIf CheckFor("MainMenu", "", Round(40 * $x_ratio), Round(300 * $y_ratio), Round(400 * $x_ratio), Round(450 * $y_ratio)) Then
- GUICtrlSetData($lblRun, "Run Number: " & $run & " - Runs till vendor: " & $mLootIn)
- GUICtrlSetData($lblLocation, "Location: Main Menu")
- GUICtrlSetData($lblStatus, "Status: Starting Game")
- RandClick("left", Round(230 * $x_ratio), Round(416 * $y_ratio), 120, 20, 1, 6) ;Random Click on the resume button
- Sleep($loadtime)
- $rt = TimerInit()
- $run += 1
- ElseIf CheckFor("OldRuins", "Area") Or CheckFor("NewTristram", "Area") Or CheckFor("DankCellar", "Area") Then
- Call("TownPortal")
- Call("LeaveGame")
- Return
- ElseIf CheckFor("LimitError", "", Round(700 * $x_ratio), Round(340 * $y_ratio), Round(1200 * $x_ratio), Round(600 * $y_ratio), 1, 140) Then
- MouseClick("left", Round(960 * $y_ratio), Round(635 * $x_ratio))
- $rand = Random(40000, 80000)
- GUICtrlSetData($lblStatus, "Status: Input Limit - Waiting " & Round($rand / 1000) & " seconds.")
- Sleep($rand)
- Send("{SPACE}")
- Return
- ElseIf CheckFor("Disconnect", "", Round(700 * $x_ratio), Round(340 * $y_ratio), Round(1200 * $x_ratio), Round(600 * $y_ratio), 1, 140) Then
- GUICtrlSetData($lblStatus, "Status: Network Disconnect window up")
- MouseClick("left", Round(960 * $x_ratio), Round(632 * $y_ratio))
- Sleep(100)
- Send("{SPACE}")
- Return
- Else
- GUICtrlSetData($lblStatus, "ERROR: Cannot find Resume button")
- Return
- EndIf
- ;Make sure we are in the right area before beginning run
- If CheckFor("OldRuins", "Area") Then
- Sleep(200)
- GUICtrlSetData($lblLocation, "Location: Old Ruins")
- Call("CheckRepair")
- ;Start Run
- RandClick("middle", Round(500 * $x_ratio), Round(250 * $y_ratio), 2, 2) ;starts the run [waypoint 1]
- Moving(900)
- Send($skillSmokeScreen)
- Moving(600)
- RandClick("middle", Round(3 * $y_ratio), Round(370 * $y_ratio), 2, 2) ;waits ~1 second then [waypoint 2]
- Moving(1850)
- RandClick("middle", Round(400 * $x_ratio), Round(600 * $y_ratio), 2, 2) ;middle of courtyard [waypoint 3]
- Moving(100)
- Send($skillSmokeScreen)
- Moving(100)
- Send($skillPreparation)
- Moving(750)
- Send($skillCaltrops)
- Moving(100)
- RandMove(Round(300 * $x_ratio), Round(70 * $y_ratio), 1, 1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
- Sleep(350)
- If CheckDead() Then
- Return
- EndIf
- ;Checks if Dank Cellar is Open
- $Pixel2 = PixelSearch(0, 0, Round(600 * $x_ratio), Round(600 * $y_ratio), 0x334FB7, 3)
- If Not @error Then
- GUICtrlSetData($lblStatus, "Status: Cellar - Found")
- $cellarCount += 1
- MouseClick("left", Round(300 * $x_ratio), Round(70 * $y_ratio), 1) ;Entrance to cellar
- Sleep(800 * $movementSpeed)
- Send($skillSmokeScreen)
- Moving($walktime)
- Else ;ABORT RUN
- GUICtrlSetData($lblStatus, "Status: Cellar - Not Found" & @CRLF)
- Sleep(10)
- RandClick("middle", Round(1100 * $x_ratio), Round(600 * $y_ratio)) ;moves between caltrops for safety before teleporting back to town
- Moving(250)
- Send($skillCaltrops)
- Sleep(620)
- Send($skillSmokeScreen)
- Sleep(40)
- Call("TownPortal")
- If Not CheckDead() Then
- Call("LeaveGame")
- EndIf
- Return
- EndIf
- Else
- Call("TownPortal")
- If Not CheckDead() Then
- Call("LeaveGame")
- EndIf
- Return
- EndIf
- ;Checks that the player is in the Dank Cellar
- If CheckFor("DankCellar", "Area") Then
- GUICtrlSetData($lblLocation, "Location: Dank Cellar")
- RandClick("middle", Round(110 * $x_ratio), Round(1000 * $y_ratio), 1, 1) ;moves to doorway leading to rare inside cellar
- Sleep(Random(2200, 2800))
- RandMove(Round(460 * $x_ratio), Round(80 * $y_ratio), 1, 1) ;hovers over the rare Sarkoth
- Sleep(10)
- Send("{SHIFTDOWN}")
- GUICtrlSetData($lblStatus, "Status: Attacking Sarkoth")
- MouseDown("right") ;ATTACK
- Sleep(1100)
- Send($skillCompanion)
- Sleep($attackTime)
- MouseUp("right")
- RandClick("left", Round(460 * $x_ratio), Round(80 * $y_ratio), 1, 1)
- RandMove(Round(240 * $x_ratio), Round(75 * $y_ratio), 1, 1) ;attack left
- Sleep(40)
- MouseDown("right")
- If $attackMulti == True Then Sleep($attackTime / 2)
- MouseUp("right")
- MouseMove(Round(590 * $x_ratio), Round(50 * $y_ratio), 1) ;attack right
- MouseDown("right")
- If $attackMulti == True Then Sleep($attackTime / 2)
- MouseUp("right")
- MouseDown("left")
- MouseMove(Round(Random(240, 260) * $x_ratio), Round(75 * $y_ratio), 1) ;attack left
- If $attackMulti == True Then Sleep($attackTime / 2.5)
- MouseMove(Round(Random(560, 600) * $x_ratio), Round(50 * $y_ratio), 1) ;attack right
- If $attackMulti == True Then Sleep($attackTime / 2.5)
- MouseUp("left")
- Sleep(400)
- MouseClick("right", Round(630 * $x_ratio), Round(18 * $y_ratio), 1, 8) ;break the table & chair
- Sleep(200)
- Send("{SHIFTUP}")
- Moving(200)
- RandClick("middle", Round(530 * $x_ratio), Round(190 * $y_ratio)) ;location of sarkoth after death
- Moving(2700)
- GUICtrlSetData($lblStatus, "Status: Looting")
- Send($skillCompanion)
- Call("Loot")
- RandSleep(0, 6, 30)
- Send($skillCompanion)
- Call("TownPortal")
- Else
- Send($skillCaltrops)
- Sleep(400)
- Send($skillSmokeScreen)
- Sleep(40)
- Call("TownPortal")
- If Not CheckDead() Then
- Call("LeaveGame")
- EndIf
- Return
- EndIf
- ;After successful run
- If Not CheckDead() Then
- Sleep(600)
- If $mLootIn = 1 And CheckFor("NewTristram", "Area") Then ;If its time to manage loot and we are in town
- If $Identify == True Then Call("Identify")
- If $StashLoot == True Then
- Call("StashLoot")
- EndIf
- If $VendorLoot == True Then
- Call("VendorLoot")
- EndIf
- $mLootIn = Round(Random($mLoot - $mLootOff, $mLoot + $mLootOff)) ;Reset Counter
- ElseIf Not CheckFor("NewTristram", "Area") Then
- GUICtrlSetData($lblStatus, "Status: Skipping vendor, not in New Tristram")
- Sleep(3000)
- ElseIf $mLootIn <= 0 Then
- $mLootIn = 1
- Else
- $mLootIn -= 1
- EndIf
- If Not CheckDead() Then
- Call("LeaveGame")
- EndIf
- Return
- Else
- Return
- EndIf
- EndIf
- EndFunc ;==>RestartRun
- ;Helper Functions
- Func SetupGUI()
- $frmBot = GUICreate($title & $ver & " - Updating", 280, 121, Round(1540 * $x_ratio), Round(920 * $y_ratio), -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), 0)
- GUISetBkColor(0xC0C0C0)
- $lblRun = GUICtrlCreateLabel("Run Number: 0 - Runs till vendor: 0", 4, 0, 280, 24)
- GUICtrlSetFont(-1, 10, 600, 0, "Segoe UI")
- GUICtrlSetColor(-1, 0xFF0000)
- $lblLocation = GUICtrlCreateLabel("Location: Main Menu", 12, 20, 240, 17)
- $lblStatus = GUICtrlCreateLabel("Status: ", 12, 35, 240, 17)
- $lblLast = GUICtrlCreateLabel("Last Runtime: 0 seconds", 12, 50, 240, 17)
- $lblRuntime = GUICtrlCreateLabel("Total Runtime: 0 hours, 0 minutes", 12, 65, 240, 17)
- $lblGear = GUICtrlCreateLabel("Legendary: 0 - Set: 0 - Rare: 0", 12, 80, 240, 17)
- $lblItems = GUICtrlCreateLabel("Magic: 0 - Gems: 0 - Tomes: 0", 12, 95, 240, 17)
- GUISetState(@SW_SHOW)
- EndFunc ;==>SetupGUI
- Func CheckDead()
- $LogoutTimerCancel = PixelSearch(Round(900 * $x_ratio), Round(240 * $y_ratio), Round(1010 * $x_ratio), Round(290 * $y_ratio), 0x993827) ; checks for cancel button on logout timer
- If Not @error Then
- GUICtrlSetData($lblStatus, "Status: Logging out")
- Sleep(11000)
- Sleep($loadtime)
- Return 1
- EndIf
- $CloseButton = PixelSearch(Round(1570 * $x_ratio), Round(110 * $y_ratio), Round(1590 * $x_ratio), Round(120 * $y_ratio), 0x8C2300) ; checks for the red color of the "X" on an open window
- If Not @error Then
- GUICtrlSetData($lblStatus, "Status: Open Window")
- Sleep(200)
- Send("{SPACE}") ;close any open windows
- Return 1
- EndIf
- $YouHaveDied = PixelSearch(Round(620 * $x_ratio), Round(325 * $y_ratio), Round(625 * $x_ratio), Round(330 * $y_ratio), 0xFFFFFF) ; checks for white text "YOU HAVE DIED"
- If Not @error Then
- GUICtrlSetData($lblStatus, "Status: Dead")
- $deathCount += 1
- Call("LeaveGame")
- Sleep(11000)
- Sleep($loadtime)
- Return 1
- Else
- Return 0
- EndIf
- EndFunc ;==>CheckDead
- Func CheckRepair()
- $RepairArea = PixelSearch(Round(1480 * $x_ratio), 0, Round(1570 * $x_ratio), Round(100 * $y_ratio), $yellow)
- If Not @error Then
- Call("DoRepair")
- EndIf
- $RepairAreaRed = PixelSearch(Round(1480 * $x_ratio), 0, Round(1570 * $x_ratio), Round(100 * $y_ratio), $red)
- If Not @error Then
- Call("DoRepair")
- EndIf
- EndFunc ;==>CheckRepair
- Func DoRepair()
- Sleep(Random(75, 150))
- Call("TownPortal")
- If CheckDead() Then
- Return
- EndIf
- If CheckFor("NewTristram", "Area") Then
- RandClick("left", Round(1480 * $x_ratio), Round(281 * $y_ratio), 1, 1) ;begin movement towards merchant
- Moving(1875)
- RandClick("left", Round(1316 * $x_ratio), Round(206 * $y_ratio), 1, 1) ;moves to get merchant in screen
- Moving(1875)
- RandClick("left", Round(845 * $x_ratio), Round(225 * $y_ratio), 1, 1) ;NPC Merchant to the right of cain's home
- Sleep(1200)
- RandClick("left", Round(521 * $x_ratio), Round(506 * $y_ratio), 1, 1) ;button to open up repair menu
- Sleep(400)
- RandClick("left", Round(260 * $x_ratio), Round(595 * $y_ratio), 1, 1) ;button to pay for repairs
- Sleep(200)
- Send("{Escape}")
- If Not CheckDead() Then
- Call("LeaveGame")
- EndIf
- EndIf
- EndFunc ;==>DoRepair
- Func CalcTime()
- $srt = TimerDiff($rt)
- GUICtrlSetData($lblLast, "Last Runtime: " & Round($srt / 1000, 2) & " seconds.")
- $trt = TimerDiff($t)
- $total = Round((($trt / 1000) / 60) / 60, 4)
- ;Total runtime calculation.
- $hours = Floor((($trt / 1000) / 60) / 60)
- $minutes = (($trt / 1000) / 60)
- ;trim minutes if runtime is more then 1 hour.
- If $minutes > 60 Then
- While $minutes > 60
- $minutes -= 60
- WEnd
- EndIf
- GUICtrlSetData($lblRuntime, "Total Runtime: " & $hours & " hours, " & Ceiling($minutes) & " minutes")
- EndFunc ;==>CalcTime
- Func CheckFor($img, $type = "", $startX = 0, $startY = 0, $endX = @DesktopWidth, $endY = @DesktopHeight, $seconds = 6, $tolerance = 140)
- If $type = "Area" Then
- $startX = 1500 * $x_ratio
- $startY = 0 * $y_ratio
- $endX = 1920 * $x_ratio
- $endY = 90 * $y_ratio
- $seconds = 2.5
- EndIf
- $c = 0
- $string = $pngLoc & $img & ".png"
- Do
- $c += 1
- Sleep(100)
- If $c > ($seconds * 10) Then ;Make sure we never get stuck here for infinity.
- If $type = "Area" Then
- GUICtrlSetData($lblStatus, "Status: Area not found - " & $img)
- EndIf
- Return False
- EndIf
- Until _ImageSearchArea($string, 1, $startX, $startY, $endX, $endY, $gX, $gY, $tolerance)
- Return True
- EndFunc ;==>CheckFor
- Func Loot()
- Sleep(Random(500, 1200))
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- If $LootSets == True Then
- $SetCount += LootGear(0x02CE01)
- EndIf
- If $LootLegendaries == True Then
- $LegendaryCount += LootGear(0xBF642F, 0)
- EndIf
- If $LootRares == True Then
- $RareCount += LootGear(0xBBBB00)
- EndIf
- If $LootGems == True Then
- Call("LootGems")
- EndIf
- If $LootTomes == True Then
- Call("LootTomes")
- EndIf
- If $LootCustom == True Then
- Call("LootCustom")
- EndIf
- If $LootMagic == True Then
- $MagicCount += LootGear(0x6969FF)
- EndIf
- Call("ShowLoot")
- EndFunc ;==>Loot
- Func LootGear($color, $tolerance = 2)
- $count = 0
- $Loot = PixelSearch(Round(400 * $x_ratio), 0, Round(1690 * $x_ratio), Round(900 * $y_ratio), $color, $tolerance)
- If Not @error Then
- While Not @error
- $count += 1
- MouseClick('left', $Loot[0], $Loot[1], 1, 3)
- Sleep(50)
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- Sleep(1000)
- ;Run at max 10 times per quality
- If $count >= 10 Then
- ExitLoop
- EndIf
- $Loot = PixelSearch(Round(400 * $x_ratio), 0, Round(1690 * $x_ratio), Round(900 * $y_ratio), $color, $tolerance)
- WEnd
- EndIf
- Return $count
- EndFunc ;==>LootGear
- Func LootCustom()
- $count = 0
- $gX = 0
- $gY = 0
- For $i = 0 To ($totalItems - 1)
- $array = StringSplit($pick[$i], "|")
- $file = $array[1]
- $accuracy = $array[2]
- $urlString = $pngLoc & $file
- While _ImageSearchArea($pngLoc & $file, 1, 0, 0, @DesktopWidth, @DesktopHeight, $gX, $gY, $accuracy)
- $count += 1
- MouseClick("left", $gX, $gY, 1, 3)
- Sleep(50)
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- Sleep(1000)
- If $count >= 10 Then
- ExitLoop
- EndIf
- WEnd
- Next
- EndFunc ;==>LootCustom
- Func LootGems()
- $count = 0
- $gX = 0
- $gY = 0
- While _ImageSearchArea($pngLoc & "square.png", 1, 0, 0, @DesktopWidth, @DesktopHeight, $gX, $gY, 90)
- $count += 1
- MouseClick("left", $gX, $gY - 3, 1, 3)
- Sleep(50)
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- $GemCount += 1
- Sleep(1000)
- If $count >= 10 Then
- ExitLoop
- EndIf
- WEnd
- EndFunc ;==>LootGems
- Func LootTomes()
- $count = 0
- $gX = 0
- $gY = 0
- While _ImageSearchArea($pngLoc & "tome.png", 1, 0, 0, @DesktopWidth, @DesktopHeight, $gX, $gY, 90)
- $count += 1
- MouseClick("left", $gX, $gY - 3, 1, 3)
- Sleep(50)
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- $TomeCount += 1
- Sleep(1000)
- If $count >= 10 Then
- ExitLoop
- EndIf
- WEnd
- EndFunc ;==>LootTomes
- Func Identify()
- Send("c")
- Sleep(1300)
- While _ImageSearchArea($pngLoc & "unidentified.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 120)
- GUICtrlSetData($lblStatus, "Status: Identifying")
- MouseClick("right", $gX, $gY, 1, 4)
- MouseMove(Round(Random(0, 400) * $x_ratio), Round(Random(700, 1080) * $y_ratio), 3) ;Moves mouse out of the way
- Sleep(Random(3000, 3500))
- WEnd
- Send("c")
- Sleep(200)
- EndFunc ;==>Identify
- Func StashLoot()
- GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
- MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
- Moving(1600)
- ;Tomes
- While $StashTomes == True
- Sleep(Random(100, 300))
- If _ImageSearchArea($pngLoc & "TomeIcon.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
- GUICtrlSetData($lblStatus, "Status: Stashing Tomes")
- MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
- MouseClick("right", $gX, $gY, 1, 4)
- Sleep(80)
- MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
- Else
- ExitLoop
- EndIf
- WEnd
- If $StashLegendary == True Then
- StashItems(0xFF7F00, 0)
- StashItems(0x8F5C25, 1)
- EndIf
- If $StashRare == True Then
- StashItems(0x4A3C0B, 1)
- EndIf
- If $StashMagic == True Then
- StashItems(0x182037, 1)
- EndIf
- ;Gems (DOESN'T STASH BOTTOM ROW!)
- If $StashGems == True Then
- GUICtrlSetData($lblStatus, "Status: Stashing Gems")
- MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
- Sleep(Random(20, 100))
- For $i = 0 To 7
- If _ImageSearchArea($pngLoc & $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 820 * $y_ratio, $gX, $gY, 140) Then
- MouseClick("right", $gX, $gY, 1, 3)
- EndIf
- Next
- EndIf
- Sleep(Random(1000, 1500))
- Send("{SPACE}")
- EndFunc ;==>StashLoot
- Func VendorLoot()
- GUICtrlSetData($lblStatus, "Status: Vendoring Items")
- If Not $StashLoot == True Then ;Move from TP towards vendor
- Sleep(Random(300, 500))
- MouseClick("middle", 1565 * $x_ratio, 50 * $y_ratio)
- Else ;Move from Stash towards vendor
- Sleep(Random(300, 500))
- MouseClick("middle", 1560 * $x_ratio, 120 * $y_ratio)
- EndIf
- Moving(2600)
- MouseClick("left", 1030 * $x_ratio, 210 * $y_ratio) ;Talk to vendor
- Moving(2600)
- ;All
- If $vendorAll == True Then
- For $c = 1 To $vendorCols
- For $r = 1 To $vendorRows
- RandClick("right", (((($c - 1) * 50) + 32 + 1400) * $x_ratio), (((($r - 1) * 51) + 32 + 580) * $y_ratio), 2, 2, 1, 2.5)
- Next
- Next
- EndIf
- ;Rares
- If $VendorRare == True Then
- VendItems(0x4A3C0B, 1)
- EndIf
- ;Magic
- If $VendorMagic == True Then
- VendItems(0x182037, 1)
- EndIf
- Sleep(200)
- RandClick("left", Round(521 * $x_ratio), Round(506 * $y_ratio), 1, 1) ;button to open up repair menu
- Sleep(300)
- RandClick("left", Round(260 * $x_ratio), Round(595 * $y_ratio), 1, 1) ;button to pay for repairs
- Sleep(200)
- GUICtrlSetData($lblStatus, "Status: Done With Vendor")
- Send("{ESCAPE}")
- EndFunc ;==>VendorLoot
- Func StashItems($color, $tolerance)
- $c = 0
- While $c <= 20
- Sleep(Random(20, 100))
- $StashPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
- If Not @error Then
- MouseClick("right", $StashPixel[0] + 4, $StashPixel[1], 1, 4)
- $c += 1
- Else
- ExitLoop
- EndIf
- WEnd
- EndFunc ;==>StashItems
- Func VendItems($color, $tolerance)
- $c = 0
- While $c <= 20
- Sleep(Random(20, 100))
- $VendPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
- If Not @error Then
- MouseClick("right", $VendPixel[0], $VendPixel[1], 1, 4)
- $c += 1
- Else
- ExitLoop
- EndIf
- WEnd
- EndFunc ;==>VendItems
- Func DoUpdate()
- $ini = InetGet($VersionsInfo, @ScriptDir & "\version.ini") ;download version.ini
- If $ini = 0 Then ;was the download of version.ini successful?
- MsgBox(16, "Fatal Error", "The server seems to be offline. No update will be done.")
- Else
- $newVersion = IniRead(@ScriptDir & "\version.ini", "Version", "Version", "") ;reads the new version out of version.ini
- If $newVersion = $oldVersion Then ;compare old and new
- ;MsgBox (0,"No update","There is no update available!")
- FileDelete(@ScriptDir & "\version.ini")
- Else
- $msg = MsgBox(68, "Update", "A new version is available: " & $newVersion & "! Current version: " & $oldVersion & @CRLF & "Do you want to download the new version?")
- If $msg = 7 Then ;No was pressed
- FileDelete(@ScriptDir & "\version.ini")
- ElseIf $msg = 6 Then ;OK was pressed
- $downloadLink = IniRead(@ScriptDir & "\version.ini", "Version", "download", "NotFound")
- $dlhandle = InetGet($downloadLink, @ScriptDir & "\Update_" & $newVersion & ".zip", 1, 1)
- ProgressOn("Update", "Downloading Updates", "", -1, -1, 16) ;creates a progressbar
- $size = InetGetSize($downloadLink, 1) ;get the size of the update
- While Not InetGetInfo($dlhandle, 2)
- $Percent = Round((InetGetInfo($dlhandle, 0) / $size) * 100)
- ProgressSet($Percent, $Percent & "%") ;update progressbar
- Sleep(1)
- WEnd
- ProgressSet(100, "Done", "Complete") ;show complete progressbar
- Sleep(500)
- ProgressOff() ;close progress window
- IniWrite("updater.ini", "version", "version", $newVersion)
- InetClose($dlhandle)
- $iniMsg = IniRead(@ScriptDir & "\version.ini", "Version", "message", "Exiting...")
- MsgBox(64, "Success", "Download Complete!" & @CRLF & "Please restart the bot by extracting the Au3 from Update_" & $newVersion & ".zip" & @CRLF & $iniMsg)
- FileDelete(@ScriptDir & "\version.ini")
- Exit
- EndIf
- EndIf
- EndIf
- WinSetTitle($title, "", $title & $ver & " - Waiting")
- EndFunc ;==>DoUpdate
- Func ReadINI()
- $pngLoc = IniRead($ini, "Custom Loot", "PNG Location", $pngLoc)
- $totalItems = IniRead($ini, "Custom Loot", "Total Items", $totalItems)
- $skillCaltrops = IniRead($ini, "Skills", "Caltrops", $skillCaltrops)
- $skillSmokeScreen = IniRead($ini, "Skills", "SmokeScreen", $skillSmokeScreen)
- $skillPreparation = IniRead($ini, "Skills", "Preparation", $skillPreparation)
- $skillCompanion = IniRead($ini, "Skills", "Companion", $skillCompanion)
- $movementSpeed = IniRead($ini, "Additional", "Movement Speed", $movementSpeed)
- $walktime = IniRead($ini, "Additional", "Walk Time", $walktime)
- $loadtime = IniRead($ini, "Additional", "Load Time", $loadtime)
- $tptime = IniRead($ini, "Additional", "Teleport Time", $tptime)
- $LootSets = IniRead($ini, "Looting", "Sets", $LootSets)
- $LootLegendaries = IniRead($ini, "Looting", "Legendaries", $LootLegendaries)
- $LootRares = IniRead($ini, "Looting", "Rares", $LootRares)
- $LootMagic = IniRead($ini, "Looting", "Magic", $LootMagic)
- $LootGems = IniRead($ini, "Looting", "Gems", $LootGems)
- $LootTomes = IniRead($ini, "Looting", "Tomes", $LootTomes)
- $LootCustom = IniRead($ini, "Looting", "Custom", $LootCustom)
- $mLoot = IniRead($ini, "ManageLoot", "Every", $mLoot)
- $Identify = IniRead($ini, "ManageLoot", "Identify", $Identify)
- $StashLoot = IniRead($ini, "Stashing", "Loot", $StashLoot)
- $StashLegendary = IniRead($ini, "Stashing", "Legendaries", $StashLegendary)
- $StashRare = IniRead($ini, "Stashing", "Rares", $StashRare)
- $StashMagic = IniRead($ini, "Stashing", "Magic", $StashMagic)
- $StashTomes = IniRead($ini, "Stashing", "Tomes", $StashTomes)
- $StashGems = IniRead($ini, "Stashing", "Gems", $StashGems)
- $VendorLoot = IniRead($ini, "Vendoring", "Loot", $VendorLoot)
- $VendorRare = IniRead($ini, "Vendoring", "Rares", $VendorRare)
- $VendorMagic = IniRead($ini, "Vendoring", "Magic", $VendorMagic)
- $vendorAll = IniRead($ini, "Vendoring", "All", $vendorAll)
- $vendorRows = IniRead($ini, "Vendoring", "All-Rows", $vendorRows)
- $vendorCols = IniRead($ini, "Vendoring", "All-Cols", $vendorCols)
- $Timer = IniRead($ini, "Variability", "Timer", $Timer)
- $mLootOff = IniRead($ini, "Variability", "Manage Off By", $mLootOff)
- $attackTime = IniRead($ini, "Variability", "Attack Time", $attackTime)
- $attackMulti = IniRead($ini, "Variability", "Attack Multiple", $attackMulti)
- EndFunc ;==>ReadINI
- Func CreateINI()
- IniWrite($ini, "Custom Loot", "PNG Location", $pngLoc)
- IniWrite($ini, "Custom Loot", "Total Items", $totalItems)
- IniWrite($ini, "Skills", "Caltrops", $skillCaltrops)
- IniWrite($ini, "Skills", "SmokeScreen", $skillSmokeScreen)
- IniWrite($ini, "Skills", "Preparation", $skillPreparation)
- IniWrite($ini, "Skills", "Companion", $skillCompanion)
- IniWrite($ini, "Additional", "Movement Speed", $movementSpeed)
- IniWrite($ini, "Additional", "Walk Time", $walktime)
- IniWrite($ini, "Additional", "Load Time", $loadtime)
- IniWrite($ini, "Additional", "Teleport Time", $tptime)
- IniWrite($ini, "Looting", "Sets", $LootSets)
- IniWrite($ini, "Looting", "Legendaries", $LootLegendaries)
- IniWrite($ini, "Looting", "Rares", $LootRares)
- IniWrite($ini, "Looting", "Magic", $LootMagic)
- IniWrite($ini, "Looting", "Gems", $LootGems)
- IniWrite($ini, "Looting", "Tomes", $LootTomes)
- IniWrite($ini, "Looting", "Custom", $LootCustom)
- IniWrite($ini, "ManageLoot", "Every", $mLoot)
- IniWrite($ini, "ManageLoot", "Identify", $Identify)
- IniWrite($ini, "Stashing", "Loot", $StashLoot)
- IniWrite($ini, "Stashing", "Legendaries", $StashLegendary)
- IniWrite($ini, "Stashing", "Rares", $StashRare)
- IniWrite($ini, "Stashing", "Magic", $StashMagic)
- IniWrite($ini, "Stashing", "Tomes", $StashTomes)
- IniWrite($ini, "Stashing", "Gems", $StashGems)
- IniWrite($ini, "Vendoring", "Loot", $VendorLoot)
- IniWrite($ini, "Vendoring", "Rares", $VendorRare)
- IniWrite($ini, "Vendoring", "Magic", $VendorMagic)
- IniWrite($ini, "Vendoring", "All", $vendorAll)
- IniWrite($ini, "Vendoring", "All-Rows", $vendorRows)
- IniWrite($ini, "Vendoring", "All-Cols", $vendorCols)
- IniWrite($ini, "Variability", "Timer", $Timer)
- IniWrite($ini, "Variability", "Manage Off By", $mLootOff)
- IniWrite($ini, "Variability", "Attack Time", $attackTime)
- IniWrite($ini, "Variability", "Attack Multiple", $attackMulti)
- EndFunc ;==>CreateINI
- Func _ImageSearchArea($findImage, $resultPosition, $x1, $y1, $right, $bottom, ByRef $x, ByRef $y, $tolerance)
- If $tolerance > 0 Then $findImage = "*" & $tolerance & " " & $findImage
- $findImage = "*TRANSBLACK " & $findImage
- If @AutoItX64 Then
- $result = DllCall("ImageSearchDLL_x64.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findImage)
- Else
- $result = DllCall("ImageSearchDLL.dll", "str", "ImageSearch", "int", $x1, "int", $y1, "int", $right, "int", $bottom, "str", $findImage)
- EndIf
- If $result = "0" Then
- Return 0
- EndIf
- ; Otherwise get the x,y location of the match and the size of the image to
- ; compute the centre of search
- $array = StringSplit($result[0], "|")
- If (UBound($array) >= 4) Then
- $x = Int(Number($array[2]))
- $y = Int(Number($array[3]))
- If $resultPosition = 1 Then
- $x = $x + Int(Number($array[4]) / 2)
- $y = $y + Int(Number($array[5]) / 2)
- EndIf
- Return 1
- EndIf
- EndFunc ;==>_ImageSearchArea
- Func LeaveGame()
- Call("RandSleep")
- GUICtrlSetData($lblStatus, "Status: Leaving Game")
- Send("{Escape}")
- Sleep(200)
- RandClick("left", Round(956 * $x_ratio), Round(579 * $y_ratio), 120, 20) ;Random Click on the leave button
- Call("CalcTime")
- Sleep($loadtime)
- EndFunc ;==>LeaveGame
- Func TownPortal()
- GUICtrlSetData($lblStatus, "Status: Returning to Town")
- Send("t")
- Sleep(Random($tptime, $tptime + 500))
- EndFunc ;==>TownPortal
- Func Moving($time)
- Sleep($time / $movementSpeed)
- EndFunc ;==>Moving
- Func RandClick($clickType, $xPos, $yPos, $xOff = 10, $yOff = 10, $clicks = 1, $speed = 4)
- If $xOff < 1 Then $xOff = 1
- If $yOff < 1 Then $yOff = 1
- $randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
- $randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
- MouseClick($clickType, $randX, $randY, $clicks, $speed)
- EndFunc ;==>RandClick
- Func RandMove($xPos, $yPos, $xOff = 10, $yOff = 10, $speed = 1)
- $randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
- $randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
- MouseMove($randX, $randY, $speed)
- EndFunc ;==>RandMove
- Func RandSleep($min = 5, $max = 45, $chance = 3)
- $randNum = Round(Random(1, 100))
- If $Timer == True And $randNum <= $chance Then
- $sleepTime = Random($min * 1000, $max * 1000)
- GUICtrlSetData($lblStatus, "Status: Random Sleep - " & Round($sleepTime / 1000) & " secs")
- For $c = 0 To 10
- Sleep($sleepTime / 10)
- Next
- EndIf
- EndFunc ;==>RandSleep
- ;Hotkey Functions
- Func Begin()
- $Go = Not $Go
- If Not $Go Then WinSetTitle($title, "", $title & $ver & " - Halted")
- EndFunc ;==>Begin
- Func TogglePause()
- $Paused = Not $Paused
- While $Paused
- Sleep(100)
- WinSetTitle($title, "", $title & $ver & " - Paused")
- ToolTip('[PAUSED] - Deaths: ' & $deathCount & ' | Cellars: ' & $cellarCount, 0, 0)
- WEnd
- WinSetTitle($title, "", $title & $ver & " - Running")
- ToolTip("")
- EndFunc ;==>TogglePause
- Func ShowLoot()
- GUICtrlSetData($lblGear, "Legendary: " & $LegendaryCount & " - Set: " & $SetCount & " - Rare: " & $RareCount)
- GUICtrlSetData($lblItems, "Magic: " & $MagicCount & " - Gems: " & $GemCount & " - Tomes: " & $TomeCount)
- EndFunc ;==>ShowLoot
- Func Stop() ;to allow the script to stop
- Exit
- EndFunc ;==>Stop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement