API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 12th, 2012
1,722
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 13.80 KB | None | 0 0
raw download clone embed print report diff
  1. ;IF YOU PLAN TO USE IMAGESEARCH FUNCTIONS:
  2.       ;Download: http://www.mediafire.com/?vtx9l1woj61h8r6
  3.       ;If your Windows installation is x64, use the 64-bit native AutoIt and the x64 directory in the archive
  4.       ;Extract and copy AutoIt3 folder to Program Files directory
  5.       ;Extract and copy all dlls to C:\Windows\ directory (optionally copy the MSVCR dlls to System32 as well)
  6.       ;Extract pics directory anywhere and update the $directory var - INCLUDE TRAILING BACKSLASH: C:\pics\
  7.       ;If you are running anything but fullscreen mode, the size of letters will mismatch and not loot anything. Resize or make your own pngs.
  8. ;IF YOU COMPILE THE SCRIPT TO EXE AND YOU USE X64:
  9.       ;Run "Compile script to .exe (x64)"
  10.       ;Check "Lowest" under the Compression menu option
  11.       ;Leave x64 checkbox checked
  12. ;;;;;
  13. ;WONT WORK UNLESS MOVE IS BOUND TO MIDDLE MOUSE (Mouse 3) -- NOT MOVE/INTERACT
  14. ;Required build: http://us.battle.net/d3/en/calculator/barbarian#WTXYQg!ZVg!abcZaY
  15. ;Required display mode for cellar detection: "FULLSCREEN WINDOWED"
  16. ;Official supported resolution: 1920x1080
  17. ;;;;;
  18. ;Original: [Goldfarming] AFK 150k-200k Gold Per Hour by mackus101 @ ownedcore
  19. ;ImageSearch contributions by rvbfreak, goofinator, and asuRob
  20.  
  21. #include <ImageSearch.au3> ;comment this if you are not using the new looting system
  22. Global $Paused
  23. Opt('MouseCoordMode', 2)
  24. Opt('PixelCoordMode', 2)
  25. HotKeySet("=","Leave")  ;script started by pressing =
  26. HotKeySet("-", "Pause") ;script paused by pressing -
  27. HotKeySet("x", "Stop") ;script stopped by pressing x
  28.  
  29. ;ImageSearch Looting Variables
  30. $ImgLoot = True ; set this to true if you want to use ImageSearch looting system. False will revert to old PixelSearch method
  31. $directory = "C:\Program Files (x86)\AutoIt3\pics\" ; CHANGE THIS! Point it to the directory with the imagesearch pngs
  32. $totalItems = 17; This needs to match the number of pngs you are loading
  33. Global $pick[$totalItems], $size = WinGetClientSize("[TITLE:Diablo III; CLASS:D3 Main Window Class]"), $go = True, $Leave = False, $Dead = False, $Logout = False, $Window = False, $i = 0, $currentArrayItem = 0, $gX = 0, $gY = 0
  34. If ($size[0]/$size[1]) <> 16/9 Then $size[1]-=30 ; adjusts ratio for titlebar if not 16:9
  35. $pick[0] = "legendaryA.png|30"
  36. $pick[1] = "legendaryE.png|30"
  37. $pick[2] = "legendaryI.png|10"
  38. $pick[3] = "legendaryO.png|30"
  39. $pick[4] = "legendaryU.png|30"
  40. $pick[5] = "setA.png|30"
  41. $pick[6] = "setE.png|30"
  42. $pick[7] = "setU.png|30"
  43. $pick[8] = "setO.png|30"
  44. $pick[9] = "setI.png|30"
  45. $pick[10] = "rareA.png|30"
  46. $pick[11] = "rareE.png|30"
  47. $pick[12] = "rareI.png|30"
  48. $pick[13] = "rareO.png|30"
  49. $pick[14] = "rareU.png|30"
  50. $pick[15] = "uare.png|40"
  51. $pick[16] = "tome.png|30"
  52.  
  53. $LootRares = True ; set this to false if you don't want the bot to pick up rares (old looting method only)
  54. $Timer = False ; set this to true and the bot will randomly wait (5% chance) in town for 30-60 seconds before starting over
  55. $walktime = 2600 ; time in ms the script waits for you to enter and load the cellar. Slow this down for slower move speeds and loading times
  56. $loadtime = 3200 ; time in ms the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
  57. $tptime = 6900 ; time in ms the script waits for teleport before exiting the game
  58. $x_ratio = $size[0] / 1920
  59. $y_ratio = $size[1] / 1080
  60. $yellow = 0xFFF000 ; yellow color code (repair icon)
  61. $red = 0xD90000 ; red color code (repair icon)
  62.  
  63. Call("RestartRun")
  64. Func RestartRun()
  65.    While $go
  66.       if($Leave) Then
  67.          $i = 0
  68.          Call("CheckExit")
  69.          Sleep(850) ;had to add this since the icon doesn't show up RIGHT away in game
  70.          Call("CheckDead")
  71.          Call("CheckRepair")
  72.          If $Window Then
  73.             MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  74.             Sleep($loadtime)
  75.             $Window = False
  76.             ExitLoop
  77.          ElseIf $Dead or $Logout Then
  78.             ExitLoop
  79.          EndIf
  80.          MouseClick("middle", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
  81.          Sleep(1090)
  82.          MouseMove(Round(96*$x_ratio),Round(383*$y_ratio),1)
  83.          Sleep(10)
  84.          Send("1")
  85.          Sleep(800)
  86.          MouseClick("middle", Round(56 * $x_ratio),Round(290 * $y_ratio))
  87.          Sleep(2900)
  88.          MouseMove(Round(320*$x_ratio),Round(205*$y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
  89.          Sleep(600)
  90.          Call("CheckDead")
  91.          If $Window Then
  92.             MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  93.             Sleep($loadtime)
  94.             $Window = False
  95.             ExitLoop
  96.          ElseIf $Dead or $Logout Then
  97.             ExitLoop
  98.          EndIf
  99.          $Pixel2 = PixelSearch(0,0, Round(600*$x_ratio), Round(600*$y_ratio),0x334FB7,3) ;checks for open cellar (in a 600x400 box from the top left - where it should always be)
  100.             If Not @error Then
  101.                   MouseClick("left",Round(320*$x_ratio),Round(205*$y_ratio)) ;Entrance to cellar
  102.                   Sleep(1400)
  103.                   Sleep($walktime)
  104.                   MouseClick("middle",Round(80*$x_ratio),Round(830*$y_ratio)) ;moves to doorway leading to rare inside cellar
  105.                   Sleep(2500)
  106.                   MouseMove(Round(350*$x_ratio),Round(60*$y_ratio),1) ;hovers over the rare Sarkoth
  107.                   Sleep(5)
  108.                   Send("1")
  109.                   Sleep(10)
  110.                   MouseClick("right",Round(0*$x_ratio),Round(0*$y_ratio))
  111.                   Sleep(140)
  112.                   MouseClick("right",Round(0*$x_ratio),Round(0*$y_ratio))
  113.                   Sleep(140)
  114.                   MouseClick("right",Round(0*$x_ratio),Round(0*$y_ratio))
  115.                   Sleep(1000)
  116.                   Send("2")
  117.                   Sleep(120)
  118.                   Send("2")
  119.                   Sleep(120)
  120.                   Send("2")
  121.                   Sleep(120)
  122.                   Send("2")
  123.                   Sleep(120)
  124.                   Send("3")
  125.                   Sleep(120)
  126.                   Send("3")
  127.                   Sleep(120)
  128.                   Send("3")
  129.                   Sleep(120)
  130.                   Send("3")
  131.                   Sleep(140)
  132.                   Send("4")
  133.                   Sleep(140)
  134.                   Send("4")
  135.                   Sleep(140)
  136.                   Send("4")
  137.                   Sleep(1550)
  138.                   MouseClick("middle",Round(750*$x_ratio),Round(555*$y_ratio)) ;move to left top corner for gold
  139.                   Sleep(1000)
  140.                   MouseClick("middle",Round(1175*$x_ratio),Round(350*$y_ratio)) ;move to right top corner for gold
  141.                   Sleep(1000)
  142.                   MouseClick("middle",Round(1020*$x_ratio),Round(773*$y_ratio)) ;move to middle before looting
  143.                   Sleep(1000)
  144.                   MouseClick("middle",Round(900*$x_ratio),Round(400*$y_ratio)) ;move to chest middle
  145.                   Call("CheckLoot")
  146.                   Send("t")
  147.                   Sleep($tptime)
  148.                   Call("RandomSleep")
  149.                   Call("CheckDead")
  150.                   If Not $Logout And Not $Dead And Not $Window Then
  151.                      Sleep(300)
  152.                      Send("{ESCAPE}") ;menu
  153.                      Sleep(200)
  154.                      MouseClick("left", Round(960*$x_ratio),Round(580*$y_ratio)) ;button to leave game
  155.                      Sleep($loadtime)
  156.                      Call("CheckDead")
  157.                      If Not $Logout Then
  158.                         MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  159.                         Sleep($loadtime)
  160.                      EndIf
  161.                   Else
  162.                      MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  163.                      Sleep($loadtime)
  164.                      $Window = False ; reset the flag so it doesn't think a window is always up
  165.                   EndIf
  166.                Else
  167.                   Sleep(40)
  168.                   Send("t")
  169.                   Sleep($tptime)
  170.                   Call("RandomSleep")
  171.                   Call("CheckDead")
  172.                   If Not $Logout And Not $Dead And Not $Window Then
  173.                      Sleep(300)
  174.                      Send("{ESCAPE}") ;menu
  175.                      Sleep(200)
  176.                      MouseClick("left", Round(960*$x_ratio),Round(580*$y_ratio)) ;button to leave game
  177.                      Sleep($loadtime)
  178.                      Call("CheckDead")
  179.                      If Not $Logout Then
  180.                         MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  181.                         Sleep($loadtime)
  182.                      EndIf
  183.                   Else
  184.                      MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  185.                      Sleep($loadtime)
  186.                      $Window = False ; reset the flag so it doesn't think a window is always up
  187.                   EndIf
  188.             EndIf
  189.       EndIf
  190.    WEnd
  191.    Call("RestartRun")
  192. EndFunc
  193.  
  194. Func CheckDead()
  195. Call("CheckWindow")
  196. $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"
  197. If Not @error Then
  198.    If Not $Window Then
  199.       $Dead = True
  200.       Sleep(100)
  201.       Send("{Escape}")
  202.       Sleep(10)
  203.       MouseClick("left", Round(960*$x_ratio),Round(580*$y_ratio)) ;button to leave game
  204.       Sleep(11000)
  205.       Sleep($loadtime)
  206.       MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  207.       Sleep($loadtime)
  208.    Else
  209.       MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  210.       Sleep($loadtime)
  211.       $Dead = False
  212.    EndIf
  213. Else
  214.    $Dead = False
  215. EndIf
  216. $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
  217. If Not @error Then
  218.    Sleep(11000)
  219.    Sleep($loadtime)
  220.    If Not $Window Then
  221.       $Dead = True
  222.       $Logout = True
  223.       Sleep($loadtime)
  224.       MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  225.       Sleep($loadtime)
  226.    Else
  227.       MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  228.       Sleep($loadtime)
  229.       $Logout = False
  230.    EndIf
  231. Else
  232.    $Logout = False
  233. EndIf
  234. EndFunc
  235.  
  236. Func CheckWindow()
  237. $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
  238. If Not @error Then
  239.    Sleep(200)
  240.    Send("{SPACE}") ;close any open windows
  241.    $Window = True
  242. Else
  243.    $Window = False
  244. EndIf
  245. EndFunc
  246.  
  247. Func CheckExit()
  248. $ExitButton = PixelSearch(Round(1190*$x_ratio), Round(400*$y_ratio), Round(1200*$x_ratio), Round(440*$y_ratio), 0x14100E) ; checks for the grey border of the exit prompt
  249. If Not @error Then
  250.    Send("{ESCAPE}")
  251.    Sleep(100)
  252.    Send("{SPACE}") ;close any open windows
  253.    Sleep(200)
  254.    MouseMove(1,1) ; reset cursor position before checking for button
  255.    $Resume = Hex(PixelGetColor(Round(140*$x_ratio), Round(420*$y_ratio)), 6) ; checks if resume button can be pressed
  256.    If $Resume == "400900" Or $Resume == "380900" Then
  257.       Sleep(200)
  258.       MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  259.       Sleep($loadtime)
  260.    EndIf
  261. EndIf
  262. EndFunc
  263.  
  264. Func CheckRepair()
  265. $RepairArea = PixelSearch(Round(1480*$x_ratio), 0, Round(1570*$x_ratio), Round(100*$y_ratio), $yellow)
  266.    If Not @error Then
  267.       Call("DoRepair")
  268.    EndIf
  269. $RepairAreaRed = PixelSearch(Round(1480*$x_ratio), 0, Round(1570*$x_ratio), Round(100*$y_ratio), $red)
  270.    If Not @error Then
  271.       Call("DoRepair")
  272.    EndIf
  273. EndFunc
  274.  
  275. Func DoRepair()
  276. Sleep(100)
  277. Send("t")
  278. Sleep($tptime)
  279. MouseClick("left", Round(1480*$x_ratio),Round(281*$y_ratio)) ;begin movement towards merchant
  280. Sleep(1500)
  281. MouseClick("left", Round(1316*$x_ratio),Round(206*$y_ratio)) ;moves to get merchant in screen
  282. Sleep(1500)
  283. MouseClick("left", Round(845*$x_ratio),Round(225*$y_ratio)) ;NPC Merchant to the right of cain's home
  284. Sleep(1200)
  285. MouseClick("left", Round(521*$x_ratio),Round(506*$y_ratio)) ;button to open up repair menu
  286. Sleep(400)
  287. MouseClick("left", Round(260*$x_ratio),Round(595*$y_ratio)) ;button to pay for repairs
  288. Sleep(200)
  289. Call("CheckDead")
  290. If Not $Dead and Not $Logout Then
  291.    Send("{ESCAPE}") ;closes repair tab
  292.    Sleep(100)
  293.    Send("{ESCAPE}") ;menu
  294.    Sleep(10)
  295.    MouseClick("left", Round(960*$x_ratio),Round(580*$y_ratio)) ;button to leave game
  296.    Sleep($loadtime)
  297.    MouseClick("left", Round(140*$x_ratio),Round(420*$y_ratio)) ;button to resume game from main menu
  298.    Sleep($loadtime)
  299. EndIf
  300. EndFunc
  301.  
  302. Func CheckLoot()
  303. MouseMove(14,14,0)
  304. Sleep(Random(500,2000))
  305. If Not $ImgLoot Then
  306.    $SetLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1900*$x_ratio), Round(900*$y_ratio), 0x02CE01, 2) ; set loot
  307.    If Not @error Then
  308.       MouseClick ('left', $SetLoot[0], $SetLoot[1], 1, 0)
  309.       Sleep(Random(1000,1200))
  310.       MouseMove(14,14,0) ;Reset cursor position, it doesn't need to hover
  311.       $i+= 1
  312.       If $i <= 6 Then
  313.          Call("CheckLoot")
  314.       EndIf
  315.    EndIf
  316.    $LegendaryLoot= PixelSearch(Round(400*$x_ratio), 0, Round(1900*$x_ratio), Round(900*$y_ratio), 0xBF642F, 2) ; legendary loot
  317.    If Not @error Then
  318.       MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1], 1, 0)
  319.       Sleep(Random(1000,1200))
  320.       MouseMove(14,14,0) ;Reset cursor position, it doesn't need to hover
  321.       $i+= 1
  322.       If $i <= 6 Then
  323.          Call("CheckLoot")
  324.       EndIf
  325.    EndIf
  326.    If $LootRares Then
  327.       $RareLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1900*$x_ratio), Round(900*$y_ratio), 0xBBBB00, 2) ; rare loot (darker for compatibility)
  328.       If Not @error Then
  329.          MouseClick ('left', $RareLoot[0], $RareLoot[1], 1, 0)
  330.          Sleep(Random(1000,1200))
  331.          MouseMove(14,14,0) ;Reset cursor position, it doesn't need to hover
  332.          $i+= 1
  333.          If $i <= 6 Then
  334.             Call("CheckLoot")
  335.          EndIf
  336.       EndIf
  337.    EndIf
  338. Else
  339.    Call("pickItems")
  340. EndIf
  341. EndFunc
  342.  
  343. Func pickItems()
  344. $currentArrayItem = 0
  345. For $gI = 0 to ($totalItems - 1)
  346.    $array = StringSplit($pick[$gI],"|")
  347.    $file = $array[1]
  348.    $accuracy = $array[2]
  349.    $urlString = $directory & $file
  350.    $Target = _ImageSearchArea($urlString,1,0,0,Round(1920*$x_ratio),Round(1080*$y_ratio),$gX,$gY,$accuracy)
  351.    While $i <= 12 ; max: 13 gems and pieces of gear to loot
  352.       If $Target And ($gX > 15) And ($gY > 15) Then
  353.          ;MsgBox(4096,"Debug",$urlString & " " & $gX & "-" & $gY)
  354.          MouseClick("left", $gX, $gY, 1, 0)
  355.          Sleep(Random(1200,1400))
  356.          MouseMove(14,14,0) ;Reset cursor position, it doesn't need to hover
  357.          Sleep(5)
  358.          $Target = _ImageSearchArea($urlString,1,0,0,Round(1920*$x_ratio),Round(1080*$y_ratio),$gX,$gY,$accuracy)
  359.          $i+= 1
  360.       Else
  361.          ExitLoop
  362.       EndIf
  363.    WEnd
  364. Next
  365. EndFunc
  366.  
  367. Func RandomSleep()
  368.    If $Timer And Random(1,20) = 20 Then
  369.       Sleep(Random(30000,60000)
  370.    EndIf
  371. EndFunc
  372.  
  373. Func Pause()
  374.    $Leave = False
  375. EndFunc
  376.  
  377. Func Stop() ;to allow the script to stop
  378.     Exit
  379. EndFunc
  380.  
  381. Func Leave()
  382.    $Leave = True
  383. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!