Certains pensent qu'ils est mieux de rendre les delais aleatoires.
Perso, je n'en pense rien
Mat
Posté 21 July 2012 - 22:51

Posté 21 July 2012 - 23:00
Hakuna Matata - In HOc SignO Vinces
All Right
Posté 22 July 2012 - 10:41
Posté 23 July 2012 - 18:21
Posté 23 July 2012 - 20:32
DisplayModeFlags "0" DisplayModeWindowMode "1" DisplayModeWinLeft "208" DisplayModeWinTop "135" DisplayModeWinWidth "816" DisplayModeWinHeight "638" DisplayModeUIOptWidth "800" DisplayModeUIOptHeight "600" DisplayModeWidth "800" DisplayModeHeight "600" DisplayModeRefreshRate "75" DisplayModeBitDepth "32" Gamma "1.000000" MipOffset "1" ShadowQuality "0" PhysicsQuality "0" ClutterQuality "0" Vsync "0" Letterbox "0" Antialiasing "0" LowFX "1"
Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
Opt('SendKeyDelay', 50); Default speed
HotKeySet('{END}', 'Quit')
HotKeySet('{F10}', 'Pause')
Global $Paused
Global $DebugOn = True
$Color = 0xFFFF00 ;rare color code
$Color2 = 0x6969FF ;blue color code
$Color3 = 0xBF642F ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Amethyst = 0xA56DF1
$Ruby = 0xFA8078
$Emerald = 0x51965B
$Topaz = 0xFFFF59
$Left = 50
$Top = 50
$Right = 600
$Bottom = 420
Pause();script en pause
WinActivate('Diablo III')
;start
While 1
Send("{Space}") ; get rid of any pesky banner
Send("{Space}") ; get rid of any pesky banner
CheckResume()
Sleep(Random(500,900))
Click(134, 255) ;resume
CheckInGame()
Sleep(Random(500,2000)) ;load
Teleport()
Sleep(40)
Send('a')
Sleep(Random(1000, 1200))
$blue = PixelSearch(0, 113, 54, 185, 0x223463, 11)
If Not @error then;si le cellar est ouvert le bot rentre
DEBUG("Cave FOUNDED")
MouseClick("left", $blue[0], $blue[1])
Sleep(Random(100, 200))
Sleep(5000)
;deplacement dans le cellar
Move(57, 470)
Sleep(Random(1000, 1500))
Move(256, 274)
Sleep(Random(500,1000))
Send('a')
Send('e')
Send('r')
MouseClickDrag ( "right", Random(173,179), Random(113,119) , Random(181,113), Random(107,113), Random(15,18))
MouseClickDrag ( "right", Random(199,204), Random(131,135) , Random(233,237), Random(99,103), Random(15,18))
shoot(197, 109)
Sleep(Random(100,300))
Move(241, 101)
Sleep(Random(100,300))
Move(222, 390)
Sleep(Random(100,300))
Move(696, 371)
Sleep(Random(100,300))
Move(466, 271)
Sleep(Random(100,300))
FindItem()
Send("{ESCAPE}") ;opens menu
Sleep(Random(2000, 2500))
MouseClick('left', Random(399 - 5, 399 + 5), Random(353 - 2, 353 + 2), 1, Random(1, 2))
Sleep(15000)
Else; si le cellar est fermer le bot quitte
Send("{ESCAPE}") ;opens menu
Sleep(Random(100, 300))
MouseClick('left', Random(399 - 5, 399 + 5), Random(353 - 2, 353 + 2), 1, Random(1, 2))
EndIf
Sleep(10000)
WEnd
;FUNCTIONS
Func FindItem()
$work = 1
$checkCount = 0
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,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($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
;other func
Func Move($x, $y)
MouseClick('left', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(1500,1800))
EndFunc
Func Shoot($x, $y)
MouseClick('right', $x, $y, Random(200, 260))
Sleep(Random(200, 300))
EndFunc ;==>Shoot
Func Click($x, $y)
MouseClick('left', Random($x - 5, $x + 5), Random($y - 2, $y + 2), 1, Random(0, 1))
Sleep(Random(100, 200))
EndFunc ;==>Click
Func Teleport()
MouseMove(2, 201)
_Send('z', Random(2000,2200))
Sleep(Random(100, 200))
EndFunc ;==>Teleport
Func checkResume()
Local $check = 0
If Random(1,50,1) ==20 Then
DEBUG("REST +-5min")
Sleep(Random (250000,350000))
EndIf
While $check == 0
$resume = PixelSearch(63, 255, 83, 269, 0x2C0100,10)
If Not @error Then
$check = 1
DEBUG("RESUME")
Else
Sleep(100)
EndIf
WEnd
EndFunc
Func checkInGame()
Local $check = 0
While $check == 0
$inGame = PixelSearch(488, 591, 502, 610, 0x192864,10)
If Not @error Then
$check = 1
DEBUG("InGame")
Else
Sleep(100)
EndIf
WEnd
EndFunc
Func DEBUG($MESSAGE)
If $DebugOn Then
ToolTip($MESSAGE, 0, 0)
EndIf
EndFunc
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Paused...', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause
Func _Send($text, $milliseconds)
$time = TimerInit()
Do
Send($text)
Until TimerDiff($time) > $milliseconds
EndFunc
Posté 24 July 2012 - 12:00
Posté 24 July 2012 - 12:57
Alors , Bonjours a tousse désolé , le bot marche , bien mais esque vous mourée beaucoup et le bot loupe souvent la cave aussi , merci de m'aider
Posté 24 July 2012 - 12:59
bonjour,
quelle ligne faut il modifier pour que le bot coupe plus tôt le mode archont parce que la il perd a chaque 4;5s a tirer ds le vide et le temps c est des PO ^^
merci d'avance
Posté 24 July 2012 - 20:48
bonjour,
quelle ligne faut il modifier pour que le bot coupe plus tôt le mode archont parce que la il perd a chaque 4;5s a tirer ds le vide et le temps c est des PO ^^
merci d'avance
La fonction shoot, il y a 2 valeurs (200, 260) si tu souhaites perdre 4-5 sec dessus met (160, 180) pour commencer.
Posté 24 July 2012 - 23:47
bonjour,
quelle ligne faut il modifier pour que le bot coupe plus tôt le mode archont parce que la il perd a chaque 4;5s a tirer ds le vide et le temps c est des PO ^^
merci d'avance
La fonction shoot, il y a 2 valeurs (200, 260) si tu souhaites perdre 4-5 sec dessus met (160, 180) pour commencer.
bonjour, j ai pris la 2eme version du bot (qui se trouve 3 ou 4 com après l ouverture du poste) et pour la fonction shoot j ai ca
Func Shoot($x, $y)
MouseClick('right', $x, $y, 120)
Sleep(Random(100, 200))
EndFunc ;==>Shoot
donc je sais pas trop quoi modif :/
Func Shoot($x, $y)
MouseClick('right', $x, $y, Random(150, 200))
Sleep(Random(200, 300))
EndFunc ;==>Shoot
Posté 25 July 2012 - 12:24
Posté 25 July 2012 - 12:38
Posté 25 July 2012 - 17:45
Posté 25 July 2012 - 19:04
Func Repare()
Send('a')
Sleep(Random(100, 300))
Send('t')
Sleep(Random(7500, 8500))
DEBUG("Marchand à gauche")
Move(13, 371)
Sleep(Random(100, 400))
Move(175, 162)
Sleep(Random(1000, 1001))
$SearchDealerLeft = PixelSearch(150, 80, 270, 300, 0xA29B97, 10) ;searches for merchand
If Not @error Then
MouseClick("left", $SearchDealerLeft[0], $SearchDealerLeft[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
Sleep(Random(1000, 1500))
EndIf
Click(287, 358)
Sleep(Random(200, 600))
$SearchRepare = PixelSearch(63, 286, 230, 340, 0x56180C, 10) ;searches for TP
If Not @error Then
MouseClick("left", $SearchRepare[0], $SearchRepare[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
Sleep(Random(1000, 3000))
EndIf
Send("{ESCAPE}") ;close menu
Sleep(Random(100, 300))
Move(746, 503)
Sleep(Random(200, 600))
Move(788, 306)
Sleep(Random(100, 500))
$SearchTP = PixelSearch(455, 140, 507, 202, 0x162354, 15) ;searches for TP
If Not @error Then
MouseClick("left", $SearchTP[0], $SearchTP[1], 1, 10) ;IF ITS THERE IT CLICKS IT.
Sleep(Random(800, 1200))
EndIf
EndFunc
$SearchRepare = PixelSearch(562, 10, 586, 55, 0xFFEC00);detection stuff cassé et repare auto If Not @error Then Repare() Sleep(Random(100, 300)) EndIf
Posté 25 July 2012 - 19:57
Posté 25 July 2012 - 21:37
euh a la fin pourras tu s'il te plait poster le code en entier parce que sinon je vais pas m en sortir pour savoir ou mettre tous les morceaux et j aimerai pas voir mon bot aller réparer au lieu de recup les item sur sarkoth mort
Posté 26 July 2012 - 12:19
En gros 40-80 c'est un chiffre aléatoire entre 40 et 80, décimal qui va correspondre aux nombres de cliques que le bot va faire pour buter sarkoth.
Posté 26 July 2012 - 23:17
Posté 27 July 2012 - 14:50
Posté 27 July 2012 - 14:57
Bonjour à tous,
Je m'appel Chris, je suis un joueur diablo 3 et autant vous dire que votre sujet m'intéresse beaucoup.
Par contre, j'ai beau lire toutes les pages, je ne trouve pas de réponse à mon problème qui va vous paraitre tout c**.
Tout simplement, qu'est ce qu'un fichier autoit? Comment le crée t on pour pouvoir entrer les codes donnés par thezway.
Merci par avance