201 réponses à ce sujet

[thezway]

Bonjour !

Je tiens à vous faire partager un très bon script AutoIT que j'ai trouvé sur le forum anglais Blizzhackers.

Tout les crédits vont à fmflex: http://www.blizzhack...?f=236&t=490372

Il propose également une version du script spécial "donateurs" (que je vous conseille) mais je ne m'attarderais pas sur celle ci

Fonctionnalités implémentés:

- Réparation
- Collecte des gemmes
- Vide l'inventaire
- Utilise 2 marchands au hasard
- Fais une pause d'environ 5min au hasard
- Des clicks randoms
- Des pauses random
- Ne loot pas les rares (car ceux de l'acte 1 sont nazes -> à voir à cause de la maj?)

Il ne vendra pas le contenu de ces cases:


Stuff requis:

Il vous faudra au moins un item +7m de ramassage (pickup radius) et 200% de GF pour faire fonctionner le bot de manière optimale.

Code à mettre dans le fichier D3Pref:

DisplayModeFlags "0"
DisplayModeWindowMode "1"
DisplayModeWinLeft "208"
DisplayModeWinTop "135"
DisplayModeWinWidth "808"
DisplayModeWinHeight "627"
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"

Il faut bind le bouton MOUSE3 sur déplacement !

Spells/runes:



- Teleport sur la touche Z
- SHIELD sur A
- ENERGY ARMOR sur E
- Portail sur T

Mise en place:

Lancez la quête Legacy of Cain (2nd de l'acte I) à la phase explore the cellar (2nd phase) allez jusqu'au checkpoint à gauche et déconnectez vous puis lancez le bot sur la page de reprise de la partie.

Code du fichier autoit:

Spoiler

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
   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 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

Amusez vous bien !

[Jacquouille]

Parfait pour mon pc portable =)

Thx a lot!

[gms-mat]

Bonjour,

Il s'agit d'un excellent script, qui fonctionne d'ailleurs pas trop mal niveau recuperation des gemmes (et c'est pas facile en 800x600)
thezway, fais nous l'honneur de te presenter

Merci pour ta contribution

A+
Mat

Edit: a noter que magic missile n'est pas du tout requis dans le build, vous pouvez laisser vide, mette autre chose...
Edit 2: ne pas looter les rares est assez dommage... Parfois, ils sont pas si mauvais

[thezway]

Bonjour,

Il s'agit d'un excellent script, qui fonctionne d'ailleurs pas trop mal niveau recuperation des gemmes (et c'est pas facile en 800x600)
thezway, fais nous l'honneur de te presenter

Merci pour ta contribution

A+
Mat

Edit: a noter que magic missile n'est pas du tout requis dans le build, vous pouvez laisser vide, mette autre chose...
Edit 2: ne pas looter les rares est assez dommage... Parfois, ils sont pas si mauvais

Désolé je ne compte pas rester ou participer plus que cela à ce forum
mon objectif étant uniquement de vous faire profiter de ce script qui fonctionne ma foi très bien.

bonne continuation !

[gms-mat]

Ca a le merite d'etre clair au moins !

Bonne continuation a toi aussi

Mat

[Xanaski]

Le bot à l'air intéressant, je m'y mets!


1:

Il faut bind le bouton MOUSE3 sur déplacement !

C'est à dire ? Je comprends qu'il faut binder Mouse3, mais je ne sais pas où et de manière à donner quoi ?


2:
Ayé, j'ai Modifié D3Pref qui se trouve dans Documents/DiabloIII ..
j'ai crée un nouveau fichier autoit avec le code ..

Est-ce que j'ai tout ? Qu'ai-je oublié ? Que dois-je rajouter ?


Merci (:

[gms-mat]

Dans les contrôles Diablo 3, il y en a un qui s'appelle "Move". Faut que tu le mettes sur le bouton centrale de ta souris
En gros, c'est utile pour se déplacer vers un point ou il y a un ennemi, sans utiliser le clic gauche, ce qui évite d'attaquer le montre avec magic missile (par exemple)

Mat

[Xanaski]

D'accord merci!

Et pour le 2, une réponse s'il te plaît? ^^

[gms-mat]

Pour le second point, tout semble bon a priori
Lis un peu les commentaires dans le code pour voir s'il y a des modifications a apporter

Mat

[Xanaski]

Et pour la résolution du bot, est-il possible de l'a modifier juste en bricolant quelques lignes de codes?

J'ai l'impression d'être le seul à avoir 1360 x 768 ... (:

[gms-mat]

Non, pas possible facilement
800x600, tu peux aussi non ?

[Xanaski]

J'ai en stock: 800x600 / 1024x768 / 1152x864 / 1280x720 / 1280x768 / 1280x800 / 1360x768* / 1440x900

Par défaut je crois, en tt cas mon favori ..


800x600, c'est vraiment pas beau à voir.. Et si le bot est lancé dans cette résolution là, impossible de faire autre chose à côté.

[gms-mat]

Le but, ce 'est pas d'etre beau, mais d'etre efficace
M'enfin apres, tu peux tout modifier si tu souhaites

Mat

[Alkan]

Il est minimaliste mais presque fonctionnel. Les deux problèmes que je rencontre avec celui la sont :
1. Il ne ramasse pas les gemmes
2. Il n'arrive pas toujours à rentrer dans la cave donc c'est la mort assurée dmg

D'ailleur il y a une autre version de ce bot tjs en 800x600 :

Spoiler

; D3 bot version 5.1 Stasher (Randomized)

Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
Opt('SendKeyDelay', 50); Default speed
HotKeySet('{END}', 'Quit')
HotKeySet('{F10}', 'Pause')
Global $Paused
Global $DebugOn = True

$MustStash = 0
$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 space 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
      Sleep(1000) ;load
    waitforgamestart()

   If($MustStash == 1 )Then
      $MustStash = 0
         StashGoodies()
   EndIf
         $repair = PixelSearch(579,49,597,54,0xFFF000) ;searches top right screen for yellow of broken armor
     ;$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


       Teleport()
       Sleep(40)
      Send('a')
       Sleep(40)     
      Send('e') ; diamond skin
       Sleep(40)
     
      $yellow = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
      If  @error Then
        Debug("Teleport may have missed, walking forward")
        Move(59, 286)
     EndIf
     ;keep walking and watch for yellow for 500ms
     watchyellow()
       $yellow = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
       If Not @error Then
         Move(66,435)
         Move(134, 249)
         Sleep(Random (200, 400))
         $blue = PixelSearch(430, 132, 602, 267, 0x5D80DB, 10)
         If Not @error Then
            DEBUG("Cave FOUND")
            MouseClick("left", $blue[0], $blue[1])
            Sleep(2000)
      EndIf
   ;   $insidecave = PixelSearch(345, 155, 371, 189, 0XF98B3B, 10)
   ;   If Not @error Then
   ;       DEBUG("Successfully entered the cave (First attempt)")
    ;        Sleep(2000)
   ;     Else
   ;         DEBUG("Did not successfully enter Cave,trying 1 more time")
   ;      $blue = PixelSearch(366, 419, 566,219, 0x5D80DB, 10)
   ;      If Not @error Then
   ;         MouseClick("left", $blue[0], $blue[1])
    ;        Sleep(2000)
   ;   EndIf
     ;       Sleep(2000)
   ;   EndIf
         Sleep(500)
         Move(126, 494)
         Move(219, 282) ;in pos
         Click(349, 595) ;choose hydra
         Click(220, 174) ;cast hydra
         MouseClickDrag ( "right", 87, 171 , 260, 106)
         MouseClickDrag ( "right", 87, 171 , 260, 106)
         Shoot(161, 128)   
         Sleep(300)       
       MouseClick('right',287 ,547, 1) ; remove archon to prevent mistaken as purple gem
         Sleep(300)
         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
            Sleep(500)
            Send("t")
            Sleep(8000)
            Send("{ESCAPE}") ;opens menu
            Sleep(200)
            Click(407, 345) ;leave
            Sleep(2000)   

         Else
            DEBUG("DEAD")
            Sleep(Random (500, 700))
            Send("{ESCAPE}") ;opens menu
            Sleep(Random (200, 400))
            Click(407, 345) ;leave
            Sleep(Random (12000, 12200))   
         EndIf
       Else
  ;       Move(338, 160)
  ;       Sleep(500)
         Send("{ESCAPE}") ;opens menu
         Sleep(Random (200, 300))
         Click(407, 345) ;leave
         Sleep(12000)
       EndIf
     EndIf
   EndIf
WEnd

Func Move($x, $y)
   
   MouseClick('middle', $x, $y, 1, Random(0, 1))
   Sleep(Random (1500, 1650))

EndFunc   ;==>Move

Func checkResume()
   Local $check = 0
   $start = TimerInit()
   While $check == 0
   If TimerDiff($start) > 20000 Then ExitLoop
     If Random(1,40,1) ==20 Then
     DEBUG("ANTI-DETECTION REST +/- 5 min")
     Sleep(Random (200000,280000))
     EndIf
   $resume = PixelSearch(63, 255, 83, 269, 0x2C0100,10)
     If Not @error Then
       $check = 1
       DEBUG("Resume button found, Hitting RESUME")
     Else
       Sleep(100)
       DEBUG("Resume button not found, Ideling for 30 seconds")   
        $darkresume = PixelSearch(86, 258, 86, 258, 0x090100,0) ; is the resume bar there and black?
        If Not @error Then
            DEBUG("Dark Resume button found, Trying to reach it")           
           Send("{Space}") ; get rid of any pesky banner
           sleep(300)
           Send("{ESCAPE}") ;opens menu     If Not @error Then     
         EndIf           
     EndIf
   WEnd
EndFunc


Func waitforgamestart()
   Local $check = 0
   $start = TimerInit()
   While $check == 0
   If TimerDiff($start) > 30000 Then ExitLoop
   $resume = PixelSearch(116, 588, 200, 635, 0XAB0602,10)
     If Not @error Then
       $check = 1
       DEBUG("Game loaded")
      Sleep("1500")
     Else
       Sleep(100)
       DEBUG("Game not loaded, Ideling for 30 seconds")   
       
     EndIf
   WEnd
EndFunc



Func watchyellow()
   Local $check = 0
   $start = TimerInit()
   While $check == 0
   If TimerDiff($start) > 500 Then ExitLoop
   $resume = PixelSearch(643, 109, 698, 163, 0xF5CD37, 10)
     If Not @error Then
       $check = 1
       DEBUG("Yellow found!")
     Else
       Sleep(10)
       DEBUG("Yellow not found yet")   
       
     EndIf
   WEnd
   
   
EndFunc

Func Shoot($x, $y)
   MouseClick('right', $x, $y, 120)
   Sleep(Random(100, 200))
EndFunc   ;==>Shoot

Func Teleport()
   MouseMove(59, 199)
   _Send('z', 2000)
   Sleep(Random(100, 200))
EndFunc   ;==>Teleport

Func Click($x, $y)
   MouseClick('left', Random($x - 3, $x + 3), 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 <15
     DEBUG("Search Item")
     $work = 0
       Send("{ALT}") ; refresh check for more rares
      $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(Random (600, 750))
       $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 (600, 750))
       $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(Random (600, 750))
        $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(Random (600, 750))
        $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 (600, 750))
       $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 (600, 750))
       $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 (600, 750))
       $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(Random (600, 750))
       $work = 1
       $checkCount = $checkCount +1
     EndIf
   WEnd
   DEBUG("Finish Item Searching")
EndFunc


Func CheckInv()
   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
EndFunc


Func StashGoodies()
     DEBUG("Stashing Goodies")
   
   Send("t") ; teleport to town
   Sleep(Random (8000, 8150))
       $slot1x = 538
       $slot1y = 367
       $offset = 27
      MouseClick("left",457,173) ; Click on stash
      Sleep(3000) ; wait for walk up to stash
       $repair = PixelSearch(158,70,161,73,0xAD6520,5) ;check that stash is indeed open
       
      If(@error )  Then
         DEBUG("Not at Stash")
        Sleep(Random (500, 650))
      Send("{Space}") ; get rid of any pesky banner
      Send("{Space}") ; get rid of any pesky banner
        Send("{ESCAPE}") ;opens menu
        Sleep(Random (200, 250))
        Click(407, 345) ;leave
        Sleep(Random (12000, 12500))   
      Return 0 ; return 0 means unsuccessful stashing
      EndIf
       
       
      DEBUG("Stashing in tab3")
      MouseClick("left",294,297) ; stash tab3
      Sleep(100)
       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           
   
   
   $slot1x = 538
   $slot1y = 367
   $offset = 27
    MouseClick("left",293,227) ; stash tab2
    DEBUG("Stashing in tab2")
      Sleep(100)
       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           
   
   
    MouseClick("left",359,259) ; Go back to farming
    Sleep(Random (4000, 4200))
    return 1 ; return 1 means successful stashing
EndFunc


Func InvRepair()
     DEBUG("Going to repair")
       $slot1x = 538
       $slot1y = 367
       $offset = 27
         Send("t")
         Sleep(Random (8000, 8150))
         MouseClick("left", 700, 147) ;begin movement towards merchant
         Sleep(Random (2400, 2550))
         MouseClick("left", 531, 51) ;moves to get merchant in screen
         Sleep(Random (3000, 3150))
       
      $inBag = PixelSearch(134, 52, 176, 84, 0XDEDB63,10) ; check shop icon at top
       If @error Then
         DEBUG("Not at shop")
        Sleep(Random (500, 650))
        Send("{ESCAPE}") ;opens menu
        Sleep(Random (500, 650))
        Click(407, 345) ;leave
        Sleep(Random (12000, 12150))   
      Return
      EndIf
         
         
       For $i = 0 To 9
         For $j = 0 To 3
            MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
            Sleep(Random (40, 60))
         Next
       Next
       For $i = 5 To 9
         For $j = 4 To 5
            MouseClick("right", $slot1x + ($i * $offset), $slot1y + ($j * $offset),1,3)
            Sleep(Random (40, 60))
         Next
       Next           
         MouseClick("left", 294, 296) ;button to open up repair menu
         Sleep(Random (1500, 1650))
         MouseClick("left", 186, 326) ;button to pay for repairs
         Sleep(Random (1500, 1650))
      ; $inBag = PixelSearch(780, 474, 782, 476, 0x130C08,5) ; bad way of checking shop status
      $inBag = PixelSearch(134, 52, 176, 84, 0XDEDB63,10) ; check shop icon at top
       If @error Then
         DEBUG("Not at shop")
        Sleep(Random (500, 650))
        Send("{ESCAPE}") ;opens menu
        Sleep(Random (200, 250))
        Click(407, 345) ;leave
        Sleep(Random (12000, 12250))   
   Else
      DEBUG("Stuff sold to vendor, Do stashing next game")
      $MustStash = 1 ; next game, we must do stashing, global variable
         Send("{ESCAPE}") ;opens menu
         Sleep(Random (200, 350))
         Send("{ESCAPE}") ;opens menu
         Sleep(Random (200, 350))
         MouseClick("left", 407, 345) ;button to leave game
         Sleep(Random (2000, 2250))
       EndIf
EndFunc

Func Pause()
   $Paused = Not $Paused
   While $Paused
      Sleep(Random (100, 250))
      ToolTip('Paused...', 0, 0)
   WEnd
   ToolTip("")
EndFunc   ;==>Pause

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

[Xanaski]

Alkan, celui que tu proposes, tu dis qu'il est meilleur que le premier proposé?

[lerelouxin92]

bonsoir, petit probleme lorsque je lance le bot bah .... rien, j'ai mon fichier autoit avec le script(copier coller ), j'ai changer D3pref mais j'ai beau appuyer sur f10 que dal :s Help plz


merci d'avance.

[bilabou]

je viens de tester le premier script.

après 5 h de bot...aucune mort, toujours trouver la cave quand elle est ouverte, ramasse les gemmes et la plupart des bleus, vends au marchant.

Seul point noir...une déconnexion perte de serveur non gérée, j'ai eu du bol je suis passé devant l'ordi à ce moment là.

Bref, excellent script en plus l'avantage de cette résolution : mon pc portable chauffe moins ! :-)

1 million de po après 5 h de script et une intervention manuelle dessus suite à une déco. C'est le meilleur script que j'ais fait tourner jusqu'à aujourd'hui.

[Xanaski]

bonsoir, petit probleme lorsque je lance le bot bah .... rien, j'ai mon fichier autoit avec le script(copier coller ), j'ai changer D3pref mais j'ai beau appuyer sur f10 que dal :s Help plz


merci d'avance.

Plus ou moins la même chose,:
- D3Pref: c'est fait
- Résolution 800x600: c'est fait
- Jeu en Anglais: c'est fait
- Jeu Modif (keyboard/sorts): c'est fait

- Premier code autoit proposé par thezway: Ne répond/marche pas du tout, j'ai beau appuyer F10, attendre, encore et toujours: rien.
- Deuxième code autoit proposé par Alkan: Le bot "réagit" et parle. En effet, il dit qu'il ne trouve pas le bouton 'resume', en gros il ne joins aucune game et pourtant il essaye de réparer le stuff.. oO^^ Donc il patiente 5min, essaye de trouver le bouton 'resume', puis re patiente 5min, etc.



Des propositions pour en terminer enfin s'il vous plaît? ^^
Le soucis se trouve je suppose dans le fichier Autoit.. Donc si vous en avez un correct et sûr.. Le partager avec moi (si possible) serait une bon moyen de voir qu'est-ce qui ne fonctionne pas chez moi via M@il ou GMS (:

Merci d'avance

[Anakha]

Xana : a priori, les deux ont le même code pour le F10, donc impossible que l'un réagisse l'autre non.

Par contre, vu le type de coord (basé sur la taille de l'écran), il suffit que votre jeu ne soit pas au pixel près où il faut que rien ne fonctionne.

vérifie bien ces points :
DisplayModeWinLeft "208"
DisplayModeWinTop "135"


Après je peux difficilement aider plus, j'connais pas ce script (mais rien que le fait de voir un "coordmode=0" ne me donne pas envie d'y jeter un oeil, c'est mal codé de base )

[gms-mat]

Anakha a raison, c'est LE gros probleme de ce script. Maintenant, en respectant bien les conditions d'utilisation, ca doit passer.

Ensuite, faut aussi tester les textures. Je pense qu'ils font tourner en low, mais si ca ne marche toujours pas, faut essayer d'autres reglages pour cette option. Les textures, c'est le grand probleme quand on est en pixelsearch

Mat