Ce sujet est ferméenfin je pense
[Autoit] Farming Sarkoth (Sorcier) 800X600
Started By
thezway
, Jun 26 2012 23:05
201 réponses à ce sujet
#161
cpz38
-
- Membres
-
- 522 messages
Fragger débutant
Posté 17 August 2012 - 21:08
aide toi de ctrl + f pour chercher le bout du script
enfin je pense
enfin je pense
☺☺☺☺☻☻♥☻☻☺☺☺☺ 
Expendables 2 de retour le 22 Août 2012 !! avec Chuck Norris 
#162
Anaraviel
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 17 August 2012 - 21:19
*Soupire* Lokiro67 c'est bien aimable de me balancer du copier coller mais cela s'avère totalement inutile et ce n'est clairement pas ce que je demande étant donné que j'ai lu le poste. Je t'invite d'ailleurs à te rendre à la toute première page et, comme le suggère cpz38, faire un ctrl+f, tu pourras constater par toi-même que cet extrait de code n'existe pas dans le premier script du premier poste.
Donc, je reformule ma question :
Dans le tout premier script, si je désirais placer en tout début du script, avant qu'il ne fasse quoi que ce soit, une pause de 1 à 2 minute(s) que devrais je écrire ?
Merci beaucoup.
PS : Lokiro67 ne le prend pas mal mais ayant l'habitude de répondre manière personnelle à quiconque me pose une question sur un forum, les copiés/collés et l'absence des quelques politesses protocolaires (bonjour/soir, etc...) de toute discussion ont la fâcheuse tendance à me déranger ^^"
Donc, je reformule ma question :
Dans le tout premier script, si je désirais placer en tout début du script, avant qu'il ne fasse quoi que ce soit, une pause de 1 à 2 minute(s) que devrais je écrire ?
Merci beaucoup.
PS : Lokiro67 ne le prend pas mal mais ayant l'habitude de répondre manière personnelle à quiconque me pose une question sur un forum, les copiés/collés et l'absence des quelques politesses protocolaires (bonjour/soir, etc...) de toute discussion ont la fâcheuse tendance à me déranger ^^"
#163
Lokiro
-
- Bannis
-
- 911 messages
Fragger
- Location :Quebec
- Hobbies :GMS Hacks/Bots
Posté 17 August 2012 - 21:21
tout simplement parce que si tu aurait parcourue TOUT les pages tu aurait vue qu'il existe un script fais par ramos dans ce meme topics et c'est de lui que je cite le bout de code. je t'invite donc a aller lire la page 5 et 6 de ce topic
#164
Lokiro
-
- Bannis
-
- 911 messages
Fragger
- Location :Quebec
- Hobbies :GMS Hacks/Bots
Posté 17 August 2012 - 21:26
voici le bout de code du script de la premiere pages
en gras c'Est le timer entre chaque run
cherche
en gras c'Est le timer entre chaque run
cherche
Else
Sleep(500)
Send("t")
Sleep(Random(8000,8500))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
[b] Sleep(Random(2000,2200))[/b]
EndIf
Else
DEBUG("DEAD")
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
[b] Sleep(Random(12000,13000))[/b]
EndIf
Else
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Move(338, 160)
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
[b] Sleep(Random(12000,13000))[/b]
EndIf
#165
cpz38
-
- Membres
-
- 522 messages
Fragger débutant
Posté 17 August 2012 - 21:33
Donc, je reformule ma question :
Dans le tout premier script, si je désirais placer en tout début du script, avant qu'il ne fasse quoi que ce soit, une pause de 1 à 2 minute(s) que devrais je écrire ?
quand tu dit : avant qu'il ne fasse quoi que ce soit
dans le menu ou dans la partie quand il vient juste de crée ?
☺☺☺☺☻☻♥☻☻☺☺☺☺ Expendables 2 de retour le 22 Août 2012 !! avec Chuck Norris
#166
Anaraviel
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 17 August 2012 - 21:34
Et oui j'ai vu qu'il y a un autre Script mais non je ne m'en sers pas. Ma question porte sur le sujet de base, donc le premier poste, si je me servais du Script de ramos je l'aurais précisé, cela ma semblait logique.
Quant aux parties en gras, est-ce que ce sont toutes des pauses avant que le bot clic sur "Jouer" ?
Edit pour cpz38 : je souhaiterais qu'il fasse une pause de 1 à 2 minute avant de cliquer sur "jouer", donc avant d'entrer dans une partie
Quant aux parties en gras, est-ce que ce sont toutes des pauses avant que le bot clic sur "Jouer" ?
Edit pour cpz38 : je souhaiterais qu'il fasse une pause de 1 à 2 minute avant de cliquer sur "jouer", donc avant d'entrer dans une partie
#167
Lokiro
-
- Bannis
-
- 911 messages
Fragger
- Location :Quebec
- Hobbies :GMS Hacks/Bots
Posté 17 August 2012 - 21:39
Et oui j'ai vu qu'il y a un autre Script mais non je ne m'en sers pas. Ma question porte sur le sujet de base, donc le premier poste, si je me servais du Script de ramos je l'aurais précisé, cela ma semblait logique.
Quant aux parties en gras, est-ce que ce sont toutes des pauses avant que le bot clic sur "Jouer" ?
Edit pour cpz38 : je souhaiterais qu'il fasse une pause de 1 à 2 minute avant de cliquer sur "jouer", donc avant d'entrer dans une partie
oui tous des pause avant de jouer et pour une pause de 1 min a 2 min tu met
Sleep(Random(60000,120000)
#169
Kanterbrau
-
- Membres
-
- 41 messages
Débutant lvl 1
Posté 18 August 2012 - 11:18
Bonjour à tous!
Après plusieurs essais, j'ai trouvé comment optimiser le script pour ne plus avoir la fameuse limite "INPUT LIMIT REACHED" instaurer par blibli pour limiter l'utilisation des bots en limitant le nombre de partie créée par laps de temps.
J'en suis arrivé à un temps d'attente de 30 sec supplémentaire avant de recréer une partie.
De plus, j'ai réduit le random de +- 5min s'ajoutant aléatoirement au temps d'attente avant une création de partie à +- 1min30 étant donné que les 30 sec suffisent amplement!
Voilà une petite modif pour ceux qui en avait mare de relancer leur bot toute les 10 minutes après une erreur "INPUT LIMIT REACHED"
C'est plus safe et n'a pas de gros impacte sur la rentabilité.
Après plusieurs essais, j'ai trouvé comment optimiser le script pour ne plus avoir la fameuse limite "INPUT LIMIT REACHED" instaurer par blibli pour limiter l'utilisation des bots en limitant le nombre de partie créée par laps de temps.
J'en suis arrivé à un temps d'attente de 30 sec supplémentaire avant de recréer une partie.
De plus, j'ai réduit le random de +- 5min s'ajoutant aléatoirement au temps d'attente avant une création de partie à +- 1min30 étant donné que les 30 sec suffisent amplement!
Voilà une petite modif pour ceux qui en avait mare de relancer leur bot toute les 10 minutes après une erreur "INPUT LIMIT REACHED"
C'est plus safe et n'a pas de gros impacte sur la rentabilité.
Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
Opt('SendKeyDelay', 50); Default speed
HotKeySet('{END}', 'Quit')
HotKeySet('{F10}', 'Pause')
Global $Paused
Global $DebugOn = True
$Amethyst = 0xA56DF1
$Ruby = 0xFA8078
$Emerald = 0x51965B
$Topaz = 0xFFFF59
$Left = 64
$Top = 42
$Right = 720
$Bottom = 519
$Color = 0xFFFF00 ;rare color code
$Color2 = 0x6969FF ;blue color code
$Color3 = 0xBF642F ;legendary color code
$Color4 = 0x00FF00 ;SET color
;bot starts paused. press f10 to start.
Pause()
WinActivate('Diablo III')
While 1
If WinActive('Diablo III') Then
;start
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
openSpell()
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Send('e')
Sleep(40)
Teleport()
Sleep(40)
Send('a')
Sleep(40)
$yellow = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
If Not @error Then
Move(66,435)
Move(134, 249)
Sleep(Random(1000,1200))
$blue = PixelSearch(430, 132, 602, 267, 0x5D80DB, 10)
If Not @error Then
DEBUG("Cave FOUNDED")
MouseClick("left", $blue[0], $blue[1])
Sleep(2000)
EndIf
Sleep(500)
Move(126, 494)
openSpell()
Move(219, 282) ;in pos
Click(349, 595) ;choose hydra
Click(220, 174) ;cast hydra
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
Shoot(161, 128)
Sleep(500)
Move(223, 113)
Sleep(500)
Move(291, 565)
Sleep(500)
Move(305, 227)
Sleep(500)
FindItem()
$death = PixelSearch(285, 491, 308, 508, 0x2C0100,2)
If @error Then
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Sleep(500)
Send("t")
Sleep(Random(8000,8500))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
Else
DEBUG("DEAD")
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
Else
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Move(338, 160)
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
EndIf
EndIf
EndIf
WEnd
Func Move($x, $y)
MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(1500,1800))
EndFunc ;==>Move
Func checkResume()
Local $check = 0
DEBUG("30 sec de pause anti limite")
sleep(5000)
DEBUG("25 sec de pause anti limite")
sleep(4000)
DEBUG("21 sec de pause anti limite")
sleep(1000)
DEBUG("20 sec de pause anti limite")
sleep(1000)
DEBUG("19 sec de pause anti limite")
sleep(1000)
DEBUG("18 sec de pause anti limite")
sleep(1000)
DEBUG("17 sec de pause anti limite")
sleep(1000)
DEBUG("16 sec de pause anti limite")
sleep(1000)
DEBUG("15 sec de pause anti limite")
sleep(1000)
DEBUG("14 sec de pause anti limite")
sleep(1000)
DEBUG("13 sec de pause anti limite")
sleep(1000)
DEBUG("12 sec de pause anti limite")
sleep(1000)
DEBUG("11 sec de pause anti limite")
sleep(1000)
DEBUG("10 sec de pause anti limite")
sleep(1000)
DEBUG("9 sec de pause anti limite")
sleep(1000)
DEBUG("8 sec de pause anti limite")
sleep(1000)
DEBUG("7 sec de pause anti limite")
sleep(1000)
DEBUG("6 sec de pause anti limite")
sleep(1000)
DEBUG("5 sec de pause anti limite")
sleep(1000)
DEBUG("4 sec de pause anti limite")
sleep(1000)
DEBUG("3 sec de pause anti limite")
sleep(1000)
DEBUG("2 sec de pause anti limite")
sleep(1000)
DEBUG("1 sec de pause anti limite")
sleep(1000)
DEBUG("0! sec de pause anti limite")
sleep(1000)
If Random(1,50,1) ==20 Then
DEBUG("REST +-1min30")
Sleep(Random (50000,150000))
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 Shoot($x, $y)
MouseClick('right', $x, $y, Random(280,340))
Sleep(Random(100, 200))
EndFunc ;==>Shoot
Func Teleport()
MouseMove(59, 199)
_Send('z', Random(2000,2200))
Sleep(Random(100, 200))
EndFunc ;==>Teleport
Func Click($x, $y)
MouseClick('left', Random($x - 5, $x + 5), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(100, 200))
EndFunc ;==>Click
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,4) ;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
Func CheckInv()
If Random(1,5,1)==1 Then
Send("{i}") ;opens inv
Sleep(Random(200,220))
$full = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(754, 474, 756, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(761, 466, 762, 468, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
Send("{i}") ;close inv
Return 0
Else
Return 0
EndIf
EndFunc
Func InvRepair()
DEBUG("Going to repair")
$slot1x = 538
$slot1y = 367
$offset = 27
Send("t")
Sleep(Random(8000,8200))
If Random(1,2,1) == 1 Then ;2 merchants
MouseClick("left", 700, 147) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 531, 51) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(294, 296) ;button to open up repair menu
Else
MouseClick("left", 39, 389) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 31, 108) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(293, 370) ;button to open up repair menu
EndIf
Sleep(Random(1500,1600))
MouseClick("left", 186, 326) ;button to pay for repairs
Sleep(Random(1500,1600))
$inBag = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("Not at shop")
Sleep(500)
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
Else
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
EndFunc
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Paused...', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause
Func openSpell() ; RANDOM STUFF
If Random(1,12,1) == 1 Then
send('s')
Sleep(Random(2000,3000))
send('s')
EndIf
EndFunc
Func _Send($text, $milliseconds)
$time = TimerInit()
Do
Send($text)
Until TimerDiff($time) > $milliseconds
EndFunc
Func Quit()
Exit
EndFunc ;==>Quit
Func DEBUG($MESSAGE)
If $DebugOn Then
ToolTip($MESSAGE, 0, 0)
EndIf
EndFunc ;==>Debug Info
#170
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 12:58
bonjour, j'ai une question bête , je suis entrain de suivre ce tuto pour monter ce bot , seulement je ne trouve pas comment "bind" la touche "mouse3" sur déplacement , dans les option raccourcis , j'ai la touche déplacement , mais elle est grisé comme si je ne pouvais pas la changer , quelqu'un peut 'il m'aider ?
#171
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 13:07
ops ! je viens de trouver , toute mes excuses 
#172
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 16:23
mouarf , jai un soucis un peut bizarre , quand je choisis la quete "legaci of cain " , jprend le tp , je vais sur la gauche pour avoir le checkpoint et leave la game comme indiquer sur le tuto , je n'est pas le checkpoint en question .... du coup je ne peut peut pas lancer le bot , puisque que mon personnage commence son run en ville ...
Quelqu'un peut'il maider ?
Quelqu'un peut'il maider ?
#173
Kanterbrau
-
- Membres
-
- 41 messages
Débutant lvl 1
Posté 18 August 2012 - 16:29
mouarf , jai un soucis un peut bizarre , quand je choisis la quete "legaci of cain " , jprend le tp , je vais sur la gauche pour avoir le checkpoint et leave la game comme indiquer sur le tuto , je n'est pas le checkpoint en question .... du coup je ne peut peut pas lancer le bot , puisque que mon personnage commence son run en ville ...
Quelqu'un peut'il maider ?
Tu vas dans la cave toi même et tu quittes la partie dans la cave comme ça tu es sûr que ton bot suivra.
#174
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 16:41
ho ok merci pour cette réponse rapide , je suis confronter a un autre problème ... je raccourci pour lancer le bot "f10" ne fonctionne pas cher moi :x quand je le lance manuellement rien ne ce passe chu deg , j'utilise AutoIt V3 script que doije faire ? :x
#175
Kanterbrau
-
- Membres
-
- 41 messages
Débutant lvl 1
Posté 18 August 2012 - 16:59
ho ok merci pour cette réponse rapide , je suis confronter a un autre problème ... je raccourci pour lancer le bot "f10" ne fonctionne pas cher moi :x quand je le lance manuellement rien ne ce passe chu deg , j'utilise AutoIt V3 script que doije faire ? :x
Ah ta touche f10 ne marche pas? peut être que tu joues sur la partition windows d'un mac ou que tu dois faire fn-F10.. Bref voici la solution la plus simple pour toi:
Tu vas dans ton script autoit à la ligne 5
Ligne 1: Opt('MouseCoordMode', 0)
Ligne 2: Opt('PixelCoordMode', 0)
Ligne 3: Opt('SendKeyDelay', 50); Default speed
Ligne 4: HotKeySet('{END}', 'Quit')
Ligne 5: HotKeySet('{f10}', 'Pause')
Et à la ligne 5, Tu changes {f10} par ce que tu veux comme une lettre par exemple: {k} (ne pas prendre une touche affectée à une action pour le bot!)
ps: Si tu mets une lettre ou une touche que tu utilises souvent, ça risque d'être dérangeant quand tu l'utiliseras...
Genre avec mon exemple {k} tu mettras ton bot en pause quand tu taperas Katsuni dans google
Tiens moi au courant ^^
#176
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 18:13
salut j'ai les même ligne .. cependant je pense que je fait la mauvaise manipulation pour lancer le bot , dite moi si je me trompe , je suis dans le menu du jeu prêt a faire résume game , j'alt+tab je lance autoitV3 mon script , je retourne dans le jeu et je suis sensé faire F10 .. rien ne ce passe la souris ne bouge pas , je ne comprend pas cependant j'ai aperçu sur le bureau en haut a gauche un petit onglet avec écris "pause" donc j'en déduit que le script et sur pause mais je ne comprend pas comment le mettre en route , j'suis vraiment pas doué je sais , sur D2 c'etais bien plus facile que sa
voila j'utilise le dernier script poster par "kanterbrau"
Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
Opt('SendKeyDelay', 50); Default speed
HotKeySet('{END}', 'Quit')
HotKeySet('{F10}', 'Pause')
Global $Paused
Global $DebugOn = True
$Amethyst = 0xA56DF1
$Ruby = 0xFA8078
$Emerald = 0x51965B
$Topaz = 0xFFFF59
$Left = 64
$Top = 42
$Right = 720
$Bottom = 519
$Color = 0xFFFF00 ;rare color code
$Color2 = 0x6969FF ;blue color code
$Color3 = 0xBF642F ;legendary color code
$Color4 = 0x00FF00 ;SET color
;bot starts paused. press f10 to start.
Pause()
WinActivate('Diablo III')
While 1
If WinActive('Diablo III') Then
;start
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
openSpell()
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Send('e')
Sleep(40)
Teleport()
Sleep(40)
Send('a')
Sleep(40)
$yellow = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
If Not @error Then
Move(66,435)
Move(134, 249)
Sleep(Random(1000,1200))
$blue = PixelSearch(430, 132, 602, 267, 0x5D80DB, 10)
If Not @error Then
DEBUG("Cave FOUNDED")
MouseClick("left", $blue[0], $blue[1])
Sleep(2000)
EndIf
Sleep(500)
Move(126, 494)
openSpell()
Move(219, 282) ;in pos
Click(349, 595) ;choose hydra
Click(220, 174) ;cast hydra
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
Shoot(161, 128)
Sleep(500)
Move(223, 113)
Sleep(500)
Move(291, 565)
Sleep(500)
Move(305, 227)
Sleep(500)
FindItem()
$death = PixelSearch(285, 491, 308, 508, 0x2C0100,2)
If @error Then
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Sleep(500)
Send("t")
Sleep(Random(8000,8500))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
Else
DEBUG("DEAD")
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
Else
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Move(338, 160)
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
EndIf
EndIf
EndIf
WEnd
Func Move($x, $y)
MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(1500,1800))
EndFunc ;==>Move
Func checkResume()
Local $check = 0
DEBUG("30 sec de pause anti limite")
sleep(5000)
DEBUG("25 sec de pause anti limite")
sleep(4000)
DEBUG("21 sec de pause anti limite")
sleep(1000)
DEBUG("20 sec de pause anti limite")
sleep(1000)
DEBUG("19 sec de pause anti limite")
sleep(1000)
DEBUG("18 sec de pause anti limite")
sleep(1000)
DEBUG("17 sec de pause anti limite")
sleep(1000)
DEBUG("16 sec de pause anti limite")
sleep(1000)
DEBUG("15 sec de pause anti limite")
sleep(1000)
DEBUG("14 sec de pause anti limite")
sleep(1000)
DEBUG("13 sec de pause anti limite")
sleep(1000)
DEBUG("12 sec de pause anti limite")
sleep(1000)
DEBUG("11 sec de pause anti limite")
sleep(1000)
DEBUG("10 sec de pause anti limite")
sleep(1000)
DEBUG("9 sec de pause anti limite")
sleep(1000)
DEBUG("8 sec de pause anti limite")
sleep(1000)
DEBUG("7 sec de pause anti limite")
sleep(1000)
DEBUG("6 sec de pause anti limite")
sleep(1000)
DEBUG("5 sec de pause anti limite")
sleep(1000)
DEBUG("4 sec de pause anti limite")
sleep(1000)
DEBUG("3 sec de pause anti limite")
sleep(1000)
DEBUG("2 sec de pause anti limite")
sleep(1000)
DEBUG("1 sec de pause anti limite")
sleep(1000)
DEBUG("0! sec de pause anti limite")
sleep(1000)
If Random(1,50,1) ==20 Then
DEBUG("REST +-1min30")
Sleep(Random (50000,150000))
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 Shoot($x, $y)
MouseClick('right', $x, $y, Random(280,340))
Sleep(Random(100, 200))
EndFunc ;==>Shoot
Func Teleport()
MouseMove(59, 199)
_Send('z', Random(2000,2200))
Sleep(Random(100, 200))
EndFunc ;==>Teleport
Func Click($x, $y)
MouseClick('left', Random($x - 5, $x + 5), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(100, 200))
EndFunc ;==>Click
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,4) ;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
Func CheckInv()
If Random(1,5,1)==1 Then
Send("{i}") ;opens inv
Sleep(Random(200,220))
$full = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(754, 474, 756, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(761, 466, 762, 468, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
Send("{i}") ;close inv
Return 0
Else
Return 0
EndIf
EndFunc
Func InvRepair()
DEBUG("Going to repair")
$slot1x = 538
$slot1y = 367
$offset = 27
Send("t")
Sleep(Random(8000,8200))
If Random(1,2,1) == 1 Then ;2 merchants
MouseClick("left", 700, 147) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 531, 51) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(294, 296) ;button to open up repair menu
Else
MouseClick("left", 39, 389) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 31, 108) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(293, 370) ;button to open up repair menu
EndIf
Sleep(Random(1500,1600))
MouseClick("left", 186, 326) ;button to pay for repairs
Sleep(Random(1500,1600))
$inBag = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("Not at shop")
Sleep(500)
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
Else
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
EndFunc
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Paused...', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause
Func openSpell() ; RANDOM STUFF
If Random(1,12,1) == 1 Then
send('s')
Sleep(Random(2000,3000))
send('s')
EndIf
EndFunc
Func _Send($text, $milliseconds)
$time = TimerInit()
Do
Send($text)
Until TimerDiff($time) > $milliseconds
EndFunc
Func Quit()
Exit
EndFunc ;==>Quit
Func DEBUG($MESSAGE)
If $DebugOn Then
ToolTip($MESSAGE, 0, 0)
EndIf
EndFunc ;==>Debug Info
voila j'utilise le dernier script poster par "kanterbrau"
Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
Opt('SendKeyDelay', 50); Default speed
HotKeySet('{END}', 'Quit')
HotKeySet('{F10}', 'Pause')
Global $Paused
Global $DebugOn = True
$Amethyst = 0xA56DF1
$Ruby = 0xFA8078
$Emerald = 0x51965B
$Topaz = 0xFFFF59
$Left = 64
$Top = 42
$Right = 720
$Bottom = 519
$Color = 0xFFFF00 ;rare color code
$Color2 = 0x6969FF ;blue color code
$Color3 = 0xBF642F ;legendary color code
$Color4 = 0x00FF00 ;SET color
;bot starts paused. press f10 to start.
Pause()
WinActivate('Diablo III')
While 1
If WinActive('Diablo III') Then
;start
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
openSpell()
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Send('e')
Sleep(40)
Teleport()
Sleep(40)
Send('a')
Sleep(40)
$yellow = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
If Not @error Then
Move(66,435)
Move(134, 249)
Sleep(Random(1000,1200))
$blue = PixelSearch(430, 132, 602, 267, 0x5D80DB, 10)
If Not @error Then
DEBUG("Cave FOUNDED")
MouseClick("left", $blue[0], $blue[1])
Sleep(2000)
EndIf
Sleep(500)
Move(126, 494)
openSpell()
Move(219, 282) ;in pos
Click(349, 595) ;choose hydra
Click(220, 174) ;cast hydra
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
MouseClickDrag ( "right", Random(85,89), Random(169,173) , Random(258,262), Random(104,108), Random(9,12))
Shoot(161, 128)
Sleep(500)
Move(223, 113)
Sleep(500)
Move(291, 565)
Sleep(500)
Move(305, 227)
Sleep(500)
FindItem()
$death = PixelSearch(285, 491, 308, 508, 0x2C0100,2)
If @error Then
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Sleep(500)
Send("t")
Sleep(Random(8000,8500))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
Else
DEBUG("DEAD")
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
Else
$repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
If((Not @error ) Or (CheckInv() == 1)) Then
InvRepair()
Else
Move(338, 160)
Sleep(Random(500,600))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
EndIf
EndIf
EndIf
EndIf
WEnd
Func Move($x, $y)
MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(1500,1800))
EndFunc ;==>Move
Func checkResume()
Local $check = 0
DEBUG("30 sec de pause anti limite")
sleep(5000)
DEBUG("25 sec de pause anti limite")
sleep(4000)
DEBUG("21 sec de pause anti limite")
sleep(1000)
DEBUG("20 sec de pause anti limite")
sleep(1000)
DEBUG("19 sec de pause anti limite")
sleep(1000)
DEBUG("18 sec de pause anti limite")
sleep(1000)
DEBUG("17 sec de pause anti limite")
sleep(1000)
DEBUG("16 sec de pause anti limite")
sleep(1000)
DEBUG("15 sec de pause anti limite")
sleep(1000)
DEBUG("14 sec de pause anti limite")
sleep(1000)
DEBUG("13 sec de pause anti limite")
sleep(1000)
DEBUG("12 sec de pause anti limite")
sleep(1000)
DEBUG("11 sec de pause anti limite")
sleep(1000)
DEBUG("10 sec de pause anti limite")
sleep(1000)
DEBUG("9 sec de pause anti limite")
sleep(1000)
DEBUG("8 sec de pause anti limite")
sleep(1000)
DEBUG("7 sec de pause anti limite")
sleep(1000)
DEBUG("6 sec de pause anti limite")
sleep(1000)
DEBUG("5 sec de pause anti limite")
sleep(1000)
DEBUG("4 sec de pause anti limite")
sleep(1000)
DEBUG("3 sec de pause anti limite")
sleep(1000)
DEBUG("2 sec de pause anti limite")
sleep(1000)
DEBUG("1 sec de pause anti limite")
sleep(1000)
DEBUG("0! sec de pause anti limite")
sleep(1000)
If Random(1,50,1) ==20 Then
DEBUG("REST +-1min30")
Sleep(Random (50000,150000))
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 Shoot($x, $y)
MouseClick('right', $x, $y, Random(280,340))
Sleep(Random(100, 200))
EndFunc ;==>Shoot
Func Teleport()
MouseMove(59, 199)
_Send('z', Random(2000,2200))
Sleep(Random(100, 200))
EndFunc ;==>Teleport
Func Click($x, $y)
MouseClick('left', Random($x - 5, $x + 5), Random($y - 3, $y + 3), 1, Random(0, 1))
Sleep(Random(100, 200))
EndFunc ;==>Click
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,4) ;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
Func CheckInv()
If Random(1,5,1)==1 Then
Send("{i}") ;opens inv
Sleep(Random(200,220))
$full = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(754, 474, 756, 476, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
$full = PixelSearch(761, 466, 762, 468, 0x130C08,5)
If @error Then
DEBUG("FULL")
Send("{i}") ;close inv
Return 1
EndIf
Send("{i}") ;close inv
Return 0
Else
Return 0
EndIf
EndFunc
Func InvRepair()
DEBUG("Going to repair")
$slot1x = 538
$slot1y = 367
$offset = 27
Send("t")
Sleep(Random(8000,8200))
If Random(1,2,1) == 1 Then ;2 merchants
MouseClick("left", 700, 147) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 531, 51) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(294, 296) ;button to open up repair menu
Else
MouseClick("left", 39, 389) ;begin movement towards merchant
Sleep(Random(2400,2600))
MouseClick("left", 31, 108) ;moves to get merchant in screen
Sleep(Random(3000,3200))
For $i = 0 To 9
For $j = 0 To 3
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
For $i = 5 To 9
For $j = 4 To 5
MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
Sleep(40)
Next
Next
Click(293, 370) ;button to open up repair menu
EndIf
Sleep(Random(1500,1600))
MouseClick("left", 186, 326) ;button to pay for repairs
Sleep(Random(1500,1600))
$inBag = PixelSearch(780, 474, 782, 476, 0x130C08,5)
If @error Then
DEBUG("Not at shop")
Sleep(500)
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(12000,13000))
Else
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000,1200))
Click(407, 345) ;leave
Sleep(Random(2000,2200))
EndIf
EndFunc
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Paused...', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause
Func openSpell() ; RANDOM STUFF
If Random(1,12,1) == 1 Then
send('s')
Sleep(Random(2000,3000))
send('s')
EndIf
EndFunc
Func _Send($text, $milliseconds)
$time = TimerInit()
Do
Send($text)
Until TimerDiff($time) > $milliseconds
EndFunc
Func Quit()
Exit
EndFunc ;==>Quit
Func DEBUG($MESSAGE)
If $DebugOn Then
ToolTip($MESSAGE, 0, 0)
EndIf
EndFunc ;==>Debug Info
#177
alescity30100
-
- Membres
-
- 10 messages
Newbie lvl 3
Posté 18 August 2012 - 18:18
question bête ? faut jouer en mode fenêtré si oui ? comment fait ton ?
pour lancer le script je clic droit sur mon fichier autoit > run script > et la jai directement en haut un onglet qui m'indique que le script et en pause ..
pour lancer le script je clic droit sur mon fichier autoit > run script > et la jai directement en haut un onglet qui m'indique que le script et en pause ..
#178
Anakha
-
- Admin Gms
-
- 3286 messages
Khon
- Location :Grenoble
- Trade : Mediator
Posté 18 August 2012 - 18:45
alescity30100 : merci d'édit ton post et de mettre ton code dans des balise code.
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 !
#179
Kanterbrau
-
- Membres
-
- 41 messages
Débutant lvl 1
Posté 18 August 2012 - 19:11
question bête ? faut jouer en mode fenêtré si oui ? comment fait ton ?
pour lancer le script je clic droit sur mon fichier autoit > run script > et la jai directement en haut un onglet qui m'indique que le script et en pause ..
Haha
évidement il faut absolument faire attention à certaines petites choses:- Il faut mettre son jeu en anglais ( lancer diablo 3 et aller directement dans option en bas à gauche (au moment où on te demande de rentrer ton mdp pour te connecter et choisir la langue anglais -Tu vas devoir relancer le jeu et télécharger un peu plus de 2 Go-)
- Il faut bien jouer en mode fenêtre 800X600 ( Options -> Affichage/vidéo -> Mode fenêtre/windowed )
- Une fois le jeu lancé en mode fenêtre, Il ne faut plus bouger la position (de la fenêtre)! Et puis quand tu es connecté que tu as été une fois dans la cave et quitté la partie, tu lances le bot en faisant "run script" ET PUIS "f10" ou "K" si tu as changé la touche précédemment.
Et ça devrait marcher.
PS: Avant de lancer le jeu en Anglais - Mode fenêtre, n'oublie pas de modifier les lignes de D3Prefs.txt en question par celles données au premier post. Rappel, ce fichier se trouve dans: C:\Documents and Settings\Ton ordi\Mes documents\Diablo III
Et ne modifie que les lignes données (ne supprime pas tout pour juste mettre le code à changer!)
#180
Lokiro
-
- Bannis
-
- 911 messages
Fragger
- Location :Quebec
- Hobbies :GMS Hacks/Bots
Posté 18 August 2012 - 19:21
- Il faut mettre son jeu en anglais ( lancer diablo 3 et aller directement dans option en bas à gauche (au moment où on te demande de rentrer ton mdp pour te connecter et choisir la langue anglais -Tu vas devoir relancer le jeu et télécharger un peu plus de 2 Go-)
Faux moi il est en français et jamais eu de probleme avec ce script de sarkoth
C'est donc pas un problème de language.
