201 réponses à ce sujet

[romos]

Ok, je testerais, là j'ai trouvé un truc qui fonctionne donc, ce n'est plus une priorité. J'avais une idée comme celle-ci ce qui me dérange c'est de devoir faire l'appel de la fonction un peu partout dans le code, j'ai pas été très assidue pendant mes cours de dev mais il me semble que c'est pas un truc à faire. Donc faut que je mette des If/Else un peu partout ?

C'est sympas pour le conseil j'améliorerais plus tard surement.

[nuloseninformatique]

bonjour a toutes et tous

bon alors j'ai un tit souci quand a la géolocalissation de mon perso par le bot mdrrr
sont gps dois etre détraqué



en faites une fois lancé le bot tp bien 3 fois mais il tombe a une 10 aine de metre trop bas a droite de l'entrée de la grotte et du coup il fait tout son cirque a archonte peau diamant etc ramasse objet , tp ville
mais bon le pauvre vue qu'il pense etre dans la grotte il pense bien faire mais voila il n'y est pas
mdrrrrr

j'ai bien tout refait plusieur vois les config sont toute bonne , les boutons sont bien configuré enfin la j'avoue je seche
si quelqu'un peu m'aider

j'ai tester avec l'exe de notre amis thezway ca fait pareil
j'ai fait un autoit et meme résultat
mon fichier d3pref a cela dans ces entrailles :

PreferencesVersion "43"
PlayedCutscene0 "15"
PlayedCutscene1 "12"
PlayedCutscene2 "16"
PlayedCutscene3 "140"
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"
LimitForegroundFPS "1"
MaxForegroundFPS "150"
LimitBackgroundFPS "1"
MaxBackgroundFPS "8"
DisableTrilinearFiltering "0"
ColorCorrection "1"
MipBias "0.000000"
ReflectionQuality "0"
TonemapExposure "1.900000"
TonemapContrast "1.500000"
TonemapSaturation "1.000000"
TonemapGain "1.000000"
HardwareClass "2"
PCIVendor "32902"
PCIDevice "262"
MasterVolume "0.010000"
EffectVolume "0.800000"
MusicVolume "0.800000"
NarrationVolume "0.800000"
AmbientVolume "0.800000"
ChannelsToUse "32"
ReverseSpeakers "0"
QuestSubtitlesEnabled "0"
CinematicsSubtitlesEnabled "0"
EchoQuestDialogToChat "0"
MuteSound "0"
MuteEffects "0"
MuteAmbient "0"
MuteVoice "0"
MuteMusic "0"

et mon fichier test.au3 a cela dans ces entrailles :

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

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

[romos]

nuloseninformatique <--

Bonjour,

Déjà présente mieux ton post stp car retrouver la ligne de code à modifier dans ce bordel c'est pas simple.

$blue = PixelSearch(430, 132, 602, 267, 0x5D80DB, 10

Si tu aperçois le coin du cellar après la téléportation
La dernière valeur, passe là à 13,15,17

Si tu ne le vois pas, c'est que t'as téléportation bug, il me semble qu'il y a 4 téléportes à faire.

[nuloseninformatique]

merci romos


bon alors miraculeusement ca marche maintenant sans rien avoir changé ....

par contre apres genre 2 ou 3 run avec grotte le bot s'arrete dans la grotte et ne bouge pas et ca reste sur "searching items"
avez vous deja eux se souci !?

j'ai fait le test 4 fois de suite

apparement apres 3 run ok complet avec les ramassage gold + objet bleue

il relance la game trouve la grotte rentre dedans et attend la et il passe diret en "searching item" et il attend j'ai patienté 20 minutes

et si je le relance il repart

une petite idée ?

[nuloseninformatique]

souci résolu grace au topic de romos merci a toi l'ami

[Lokiro]

Bonjours, Je suis nouveau et j'ai une question.

Les coordonner de la fenêtre sont trop base pour mon ecran sa va en dessous de ma barre de tache, en la déplacent et en prenant les nouvelle coordonner, comment je peut les mettre dans le script svp ?

Tout ce que je voit qui si rapproche c'est

Opt('MouseCoordMode', 0)

Doit-je entrer les coordonner a la place du 0

Merci de votre aide.

[Lokiro]

allo ?

[Gudei]

allo ?

oh un impatient qui ne daigne même pas aller se présenter..

[L4stW1sh]

allo ?

oh un impatient qui ne daigne même pas aller se présenter..

Je dirais même plus, un impatient qui ne s'est même pas présenté et qui ne connait pas les formules basiques de politesse, a savoir bonjour, s'il vous plait, etc.

[maze]

allo ?

oh un impatient qui ne daigne même pas aller se présenter..

Je dirais même plus, un impatient qui ne s'est même pas présenté et qui ne connait pas les formules basiques de politesse, a savoir bonjour, s'il vous plait, etc.

Je dirais "encore" même plus, un impatient qui ne s'est même pas présenté et qui ne connait pas les formules basiques de politesse, a savoir bonjour, s'il vous plait, une orthographe et un français soigné !

allo ?

Plus sérieusement, pour commencer il faut lire les règles du forum ici, ensuite présente toi ici et seulement après nous apporterons notre aide!

[Lokiro]

désolé, voila c'Est fait et j'ai edit.

[romos]

Bonjours, Je suis nouveau et j'ai une question.

Les coordonner de la fenêtre sont trop base pour mon ecran sa va en dessous de ma barre de tache, en la déplacent et en prenant les nouvelle coordonner, comment je peut les mettre dans le script svp ?

Tout ce que je voit qui si rapproche c'est

Opt('MouseCoordMode', 0)

Doit-je entrer les coordonner a la place du 0

Merci de votre aide.

non non c'est juste une option pour spécifier l'utilisation de la souris pour les récup les coords. Tu pourrais me faire un copier coller du script en entier par MP pour que je puisse vérifier si il ne manque rien.

[Lokiro]

voila c'est fait

[helpme123456]

Bonjours a tous


Quelqu'un saurait t'il comment changer le délai avant qu'il rentre dans une partie. Par exemple, le ralonger un petit peu

Merci d'avance!!

Modifié par gms-mat, 16 August 2012 - 01:43.
Orthographe

[Lokiro]

Sleep(Random(7500, 8500))
Send("{ESCAPE}") ;opens menu
Sleep(Random(1000, 2000))
MouseClick('left', Random(399 - 5, 399 + 5), Random(353 - 2, 353 + 2), 1, Random(6, 9))
Sleep(Random(10000,12000))

[Kanterbrau]

Bonjour à tous,

J'ai une petite question

Mon bot crée la partie et se téléporte 3 fois puis reste bloqué près du puis sans marcher jusqu'à la cave.

Il positionne le curseur aux endroits où il doit cliquer pour marché mais j'ai l'impression qu'il ne "Clique" pas et donc suit les coordonnées curseur.

(Le problème ne viens pas de la touche gauche de ma souris puisqu'il "clique" bien jusqu'au marchand pour vendre et réparer comme il faut)

Merci d'avance de votre réponse

EDIT: J'ai trouvé héhé mouse 3 et 5 se ressemblent très fort en 800x600 Merci ^^

[Anaraviel]

Bonsoir

Voila vu que je ne connais pas du tout ce langage de prog, je voulais poser une question aux gens qui s'y connaissent un peu. J'aimerais demander au bot d'attendre entre 1 et 2 minutes entre chaque runs. Un de vous saurait ce que je dois écrire et où dans le fichier s'il vous plait ?

Merci beaucoup.

Et merci à celui qui a posté le bot

[Lokiro]

la prochaine fois lis les message la réponse est 2-3 message au dessus de toi

https://forum.gmstem...ndpost&p=103276

[Anaraviel]

J'ai bien lu ce message qui ne précise en aucun cas ce qu'il est, à quoi il sert et où il doit se mettre dans le fichier.

Peut-être peux tu me détailler ce que font ces lignes et où elles doivent être placées ?

Merci d'avance

[Lokiro]

Cherche:

FindItem()
		       Sleep(Random(100,300))
		       Send('t')
		       Sleep(Random(7500, 8100))
		       Send("{ESCAPE}") ;opens menu
		       Sleep(Random(800, 1200))
		       MouseClick('left', Random(399 - 5, 399 + 5), Random(353 - 2, 353 + 2), 1, Random(6, 9))

Après ce bout de code tu rajoutes:

Sleep(Random(10000,20000))

Pause entre 10sec et 20sec aléatoire. A toi de voir ce que tu veux (1000 = 1sec)