Tout d'abord bravo pour votre travail.
J'ai beau lire la majorité des topics, je ne vois aucun bot pour barbare (j'ai que ça et un féticheur
Merci pour vos retours et bonne journée
Posté 22 June 2012 - 18:17
Posté 22 June 2012 - 19:15
Posté 22 June 2012 - 20:28
Posté 22 June 2012 - 20:32
Posté 22 June 2012 - 20:46
Posté 22 June 2012 - 20:54
Yop
Lit les bien les méssages d'Euclide concernant les ban de bot Diablo III![]()
Si ta un doute hésite pas a poser la question il serait dommage de perdre une clé cd de ce prix la .
Aucun support ne sera fait en privé. Si vous avez un problème, faites un post.
Ne pas hésiter à mettre un petit (+) si mon post vous plait ou vous a servi !Posté 22 June 2012 - 21:02
Hakuna Matata - In HOc SignO Vinces
All Right
Posté 22 June 2012 - 21:07
Posté 22 June 2012 - 21:11
N'hésite pas à partager si tu y arrives =)Je viens de faire marcher le script d'une personne du forum pour sorcier, qui est une adaptation de celui du DH. Je le teste avec le sorcier de mon colloc, et je suis en train de lire le script de Gudei qui est juste 2000 fois mieux fait. Du coup, je vais voir si je peux pas tenter de faire une adaptation avec le sorcier. Si j'y arrive, ben, je testerai pour le barbare, mais ce sera plus long ^^.
Merci pour vos retours
Posté 22 June 2012 - 21:12
Posté 23 June 2012 - 03:01
Posté 23 June 2012 - 08:06
Posté 23 June 2012 - 12:56
Posté 23 June 2012 - 12:58
;notAres' Sarkoth DH Gold Script 1.3a - 6/9/2012 - Holy shit look how beautiful this code is. Utilized ExitLoop to perfect the efficiency when dead/logging out/in need of repair
;Thread: http://ownedcore.com/forums/diablo-3/diablo-3-bots-programs/354464-goldfarming-notares-sarkarth-dh-gold-script-autoit-script-1920x1080.html
;Please notice I changed some variable names around and added a variable for teleport time. $waittime is now appropriately named $loadtime.
;WONT WORK UNLESS MOVE IS BOUND TO MIDDLE MOUSE (Mouse 3) -- NOT MOVE/INTERACT
;Required build: http://us.battle.net/d3/en/calculator/demon-hunter#aRYXVT!aTW!YcaZbY
;Required movement speed: 25% (10% boots + 15% passive 'Hot Pursuit')
;Required display mode for cellar detection: "FULLSCREEN WINDOWED"
;Official supported resolution: 1920x1080
;;;;;
;Features:
;Loot scanning. Will only pick up rare/legendary/set pieces [IMPROVED]
;Randomized aiming coordinates (but still static path)
;Randomized pickup timers for variation in runs
;Automatic repair on yellow status icon
;Automatic resolution adjustment (16:9 only) [BUGGY - need someone to tweak coords]
;Death check
;Open window check (in rare case it gets stuck in menu)
;;;;;
;Original:
;[Goldfarming] AFK 150k-200k Gold Per Hour by mackus101 @ ownedcore
Opt('MouseCoordMode', 2)
Opt('PixelCoordMode', 2)
Global $Paused
HotKeySet("=","Leave") ;script started by pressing =
HotKeySet("-", "Pause") ;script paused by pressing -
HotKeySet("x", "Stop") ;script stopped by pressing x
$walktime = 4000 ; 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 = 4200; 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
$yellow = 0xFFF000 ; yellow color code (repair icon)
$red = 0xD90000 ; red color code (repair icon)
$LootRares = "True" ; Change this to false if you don't want the bot to pick up rares (good for legendary/set only, recommend setting LootGems to False)
$LootGems = "True" ; Change this to true if you want to pick up gems (messy, can fill up bag with whites/blues)
$LootMagics = "True" ;True if you want to pick up Magic
$LootTomes = "True" ;True if you want to pick up Tome of Secrets
$Amethyst = 0xAC7FFF
$Ruby = 0xB01D2D
$Emerald = 0x58EE33
$Topaz = 0xFFFF59
$go = True
$Leave = False
$Dead = False
$Logout = False
$Window = False
$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = 1600 / $default_resolutionX
$y_ratio = 900 / $default_resolutionY
$i = 0
Call("RestartRun")
Func RestartRun()
While $go
if($Leave) Then
$i = 0
Sleep(1000) ;had to add this since the icon doesn't show up RIGHT away in game
Call("CheckDead")
Call("CheckRepair")
If $Window Then
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
$Window = False
ExitLoop
ElseIf $Dead or $Logout Then
ExitLoop
EndIf
MouseClick("middle", Round(570), Round(250))
Sleep(1390)
MouseMove(Round(96), Round(383), 1)
Sleep(10)
Send("1")
Sleep(800)
MouseClick("middle", Round(25), Round(220))
Sleep(2900)
MouseMove(Round(300*$x_ratio),Round(255*$y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(700)
Call("CheckDead")
If $Window Then
MouseClick("left", Round(230), Round(416))
Sleep($loadtime)
$Window = False Then
ExitLoop
ElseIf $Dead Or $Logout Then
ExitLoop
EndIf
$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)
If Not @error Then
MouseClick("left",Round(290*$x_ratio),Round(270*$y_ratio)) ;Entrance to cellar
Sleep(1400)
Sleep($walktime)
MouseClick("middle", Round(80), Round(830)) ;Fight sequence begins *EVERYTHING AFTER THIS SHOULD BE EDITED BASED ON YOUR BUILD*
Sleep(1000)
MouseMove(Round(350), Round(60), 1)
Sleep(5)
Send("1")
Sleep(400)
Send("4") ;cri de guerre avec rage (on monte direct sa fureur et on aura toujours assez pour lancer l'appel des anciens).
Sleep(400)
Send("2") ; ground stomp
Sleep(400)
Send("3") ; ancients
Sleep(400)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio)) ;earth quake
Sleep(140)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio)) ;earth quake
Sleep(140)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio));earth quake
Sleep(3400) ; You may stop tweaking if you feel so.
MouseClick("middle",Round(530*$x_ratio),Round(170*$y_ratio)) ;location of sarkoth after death
Sleep(1100)
MouseClick("middle",Round(580*$x_ratio),Round(460*$y_ratio)) ;move to left top corner for gold
Sleep(1100)
MouseClick("middle",Round(1330*$x_ratio),Round(330*$y_ratio)) ;move to right top corner for gold
Sleep(1100)
MouseClick("middle",Round(1010*$x_ratio),Round(940*$y_ratio)) ;move to middle before looting
Call("CheckLoot")
Send("t")
Sleep($tptime)
Call("CheckDead")
If Not $Logout And Not $Dead And Not $Window Then
Sleep(300)
Send("{ESCAPE}") ;menu
Sleep(200)
MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
Sleep($loadtime)
Call("CheckDead")
If Not $Logout Then
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
EndIf
Else
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
$Window = False ; reset the flag so it doesn't think a window is always up
EndIf
Else
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio)) ; *EVERYTHING AFTER THIS SHOULD BE EDITED BASED ON YOUR BUILD*
Sleep(400) ; Ici, je rajoute des skills qui se déclenchent si la cave ne pop pas, histoire de tuer les mobs présents éventuellement avant de faire un tp (cela permet de ne pas se faire casser le cast du tp et de faire bugger le script)
Sleep(5)
Send("1") ;leap to yellow mob
Sleep(300)
Send("2") ; ground stomp
Sleep(500)
Send("4") ; cri de guerre avec rage (on monte direct sa fureur et on aura toujours assez pour lancer l'appel des anciens).
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio)) ;earth quake
Sleep(140)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio)) ;earth quake
Sleep(140)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio));earth quake
Sleep(500)
Send("3") ; ancients
Sleep(300)
Send("3") ; ancients
Sleep(3500)
Send("t")
Sleep($tptime)
Call("CheckDead")
If Not $Logout And Not $Dead And Not $Window Then
Sleep(300)
Send("{ESCAPE}") ;menu
Sleep(200)
MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
Sleep($loadtime)
Call("CheckDead")
If Not $Logout Then
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
EndIf
Else
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
$Window = False ; reset the flag so it doesn't think a window is always up
EndIf
EndIf
EndIf
WEnd
Call("RestartRun")
EndFunc
Func CheckDead()
Call("CheckWindow")
$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
If Not $Window Then
$Dead = True
Sleep(100)
Send("{Escape}")
Sleep(10)
MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
Sleep(11000)
Sleep($loadtime)
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
Else
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
$Dead = False
EndIf
Else
$Dead = False
EndIf
$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
Sleep(11000)
Sleep($loadtime)
If Not $Window Then
$Dead = True
$Logout = True
Sleep($loadtime)
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
Else
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
$Logout = False
EndIf
Else
$Logout = False
EndIf
EndFunc
Func CheckWindow()
$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
Sleep(200)
Send("{SPACE}") ;close any open windows
$Window = True
Else
$Window = False
EndIf
EndFunc
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
Func DoRepair()
Sleep(100)
Send("t")
Sleep($tptime)
MouseClick("left", Round(1480*$x_ratio),Round(281*$y_ratio)) ;begin movement towards merchant
Sleep(1500)
MouseClick("left", Round(1316*$x_ratio),Round(206*$y_ratio)) ;moves to get merchant in screen
Sleep(1500)
MouseClick("left", Round(845*$x_ratio),Round(225*$y_ratio)) ;NPC Merchant to the right of cain's home
Sleep(1200)
MouseClick("left", Round(521*$x_ratio),Round(506*$y_ratio)) ;button to open up repair menu
Sleep(400)
MouseClick("left", Round(260*$x_ratio),Round(595*$y_ratio)) ;button to pay for repairs
Sleep(200)
Call("CheckDead")
If Not $Dead and Not $Logout Then
Send("{ESCAPE}") ;closes repair tab
Sleep(100)
Send("{ESCAPE}") ;menu
Sleep(10)
MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
Sleep($loadtime)
MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
Sleep($loadtime)
EndIf
EndFunc
Func CheckLoot()
Sleep(Random(500,2000))
$SetLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0x02CE01, 2) ; set loot
If Not @error Then
MouseClick ('left', $SetLoot[0], $SetLoot[1])
Sleep(Random(800,1200))
$i+= 1
If $i <= 6 Then
Call("CheckLoot")
EndIf
EndIf
$LegendaryLoot= PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0xBF642F, 2) ; legendary loot
If Not @error Then
MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1])
Sleep(Random(800,1200))
$i+= 1
If $i <= 6 Then
Call("CheckLoot")
EndIf
EndIf
If $LootRares Then
$RareLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0xBBBB00, 2) ; rare loot (darker for compatibility)
If Not @error Then
MouseClick ('left', $RareLoot[0], $RareLoot[1])
Sleep(Random(700,900))
$i+= 1
If $i <= 6 Then
Call("CheckLoot")
EndIf
EndIf
EndIf
If $LootGems Then
$AmethystDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Amethyst,8)
If Not @error Then
MouseClick("left", $AmethystDrop[0], $AmethystDrop[1])
Sleep(Random(900,1400))
$i+= 1
If $i <= 10 Then
Call("CheckLoot")
EndIf
EndIf
$RubyDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Ruby,6)
If Not @error Then
MouseClick("left", $RubyDrop[0], $RubyDrop[1])
Sleep(Random(900,1400))
$i+= 1
If $i <= 10 Then
Call("CheckLoot")
EndIf
EndIf
$EmeraldDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Emerald,11)
If Not @error Then
MouseClick("left", $EmeraldDrop[0], $EmeraldDrop[1])
Sleep(Random(900,1400))
$i+= 1
If $i <= 10 Then
Call("CheckLoot")
EndIf
EndIf
$TopazDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Topaz,2)
If Not 1 = 1 Then ; change to 'If Not @error Then' if you want to search for topazes
MouseClick("left", $TopazDrop[0], $TopazDrop[1])
Sleep(Random(900,1400))
$i+= 1
If $i <= 10 Then
Call("CheckLoot")
EndIf
EndIf
EndIf
EndFunc
Func Pause()
$Leave = False
EndFunc
Func Stop() ;to allow the script to stop
Exit
EndFunc
Func Leave()
$Leave = True
EndFunc
Posté 23 June 2012 - 16:52
Posté 23 June 2012 - 19:30
;Checks that the player is in the Dank Cellar
If CheckFor("DankCellar", "Area") Then
GUICtrlSetData($lblLocation, "Location: Dank Cellar")
MouseClick("left",Round(290*$x_ratio),Round(270*$y_ratio)) ;Entrance to cellar
Sleep(1400)
Sleep($walktime)
MouseClick("middle",Round(110*$x_ratio),Round(1000*$y_ratio)) ;moves to doorway leading to rare inside cellar
;Fight sequence begins *EVERYTHING AFTER THIS SHOULD BE EDITED BASED ON YOUR BUILD*
Sleep(1000)
MouseMove(Round(350), Round(60), 1)
Sleep(5)
Send("1")
Sleep(400)
Send("4") ;cri de guerre avec rage (on monte direct sa fureur et on aura toujours assez pour lancer l'appel des anciens).
Sleep(400)
Send("2") ; ground stomp
Sleep(400)
Send("3") ; ancients
Sleep(400)
Sleep(140)
MouseClick("right", Round(0 * $x_ratio), Round(0 * $y_ratio));earth quake
Sleep(1400) ; You may stop tweaking if you feel so.
MouseClick("middle",Round(530*$x_ratio),Round(170*$y_ratio)) ;location of sarkoth after death
Sleep(1100)
MouseClick("middle",Round(580*$x_ratio),Round(460*$y_ratio)) ;move to left top corner for gold
Sleep(1100)
MouseClick("middle",Round(1330*$x_ratio),Round(330*$y_ratio)) ;move to right top corner for gold
Sleep(1100)
MouseClick("middle",Round(1010*$x_ratio),Round(940*$y_ratio)) ;move to middle before looting
GUICtrlSetData($lblStatus, "Status: Looting")
Call("Loot")
RandSleep(0, 6, 30)
Call("TownPortal")
Posté 04 October 2012 - 15:51