Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #cs
  2. . DOFBOT PAYSAN 1.0
  3. . BOT PAYSAN POUR DOFUS 2.0
  4. . H@rry Dotcom - dofbot.blogspot.com
  5. #ce
  6.  
  7. #RequireAdmin
  8. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  9. #AutoIt3Wrapper_Icon=..\..\Dropbox\webmaster\dofbots.blogspot.com\images\Dofbot1.2(1).ico
  10. #AutoIt3Wrapper_UseX64=n
  11. #AutoIt3Wrapper_Res_Fileversion=1.0
  12. #AutoIt3Wrapper_Res_LegalCopyright=H@rry Dotcom - Dofbots.blogspot.com
  13. #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
  14. #AutoIt3Wrapper_Run_Obfuscator=y
  15. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  16. #include "Misc.au3"
  17. #include <ButtonConstants.au3>
  18. #include <GUIConstantsEx.au3>
  19. #include <StaticConstants.au3>
  20. #include <WindowsConstants.au3>
  21.  
  22.  
  23. ; --- Creation de la GUI
  24. Global $Form1 = GUICreate("Dofbot Paysan 1.0", 223, 264, 196, 133)
  25. GUISetIcon("C:\Users\Dreadz\Dropbox\webmaster\dofbots.blogspot.com\images\favicon_petit.ico", -1)
  26. Global $Group1 = GUICtrlCreateGroup("Mode", 8, 8, 89, 105)
  27. Global $Radio1 = GUICtrlCreateRadio("Classique", 16, 32, 75, 17)
  28. Global $Radio2 = GUICtrlCreateRadio("Banque", 16, 56, 75, 17)
  29. GUICtrlSetState(-1, $GUI_DISABLE)
  30. Global $Radio3 = GUICtrlCreateRadio("Farmer", 16, 80, 75, 17)
  31. GUICtrlCreateGroup("", -99, -99, 1, 1)
  32. Global $Group2 = GUICtrlCreateGroup("Ressource(s)", 104, 8, 113, 249)
  33. Global $Checkbox1 = GUICtrlCreateCheckbox("Blé (lv 1)", 112, 32, 89, 17)
  34. Global $Checkbox2 = GUICtrlCreateCheckbox("Orge (lv 10)", 112, 56, 89, 17)
  35. GUICtrlSetState(-1, $GUI_DISABLE)
  36. Global $Checkbox3 = GUICtrlCreateCheckbox("Avoine (lv 20)", 112, 80, 89, 17)
  37. GUICtrlSetState(-1, $GUI_DISABLE)
  38. Global $Checkbox4 = GUICtrlCreateCheckbox("Houblon (lv 30)", 112, 104, 89, 17)
  39. GUICtrlSetState(-1, $GUI_DISABLE)
  40. Global $Checkbox5 = GUICtrlCreateCheckbox("Lin (lv 40)", 112, 128, 89, 17)
  41. GUICtrlSetState(-1, $GUI_DISABLE)
  42. Global $Checkbox6 = GUICtrlCreateCheckbox("Seigle (lv 50)", 112, 152, 89, 17)
  43. GUICtrlSetState(-1, $GUI_DISABLE)
  44. Global $Checkbox7 = GUICtrlCreateCheckbox("Riz (lv 50)", 112, 176, 89, 17)
  45. GUICtrlSetState(-1, $GUI_DISABLE)
  46. Global $Checkbox8 = GUICtrlCreateCheckbox("Malt (lvl 60)", 112, 200, 89, 17)
  47. GUICtrlSetState(-1, $GUI_DISABLE)
  48. Global $Checkbox9 = GUICtrlCreateCheckbox("Chanvre (lv 70)", 112, 224, 89, 17)
  49. GUICtrlSetState(-1, $GUI_DISABLE)
  50. GUICtrlCreateGroup("", -99, -99, 1, 1)
  51. Global $Button1 = GUICtrlCreateButton("Lancer Dofbot !", 8, 232, 89, 25)
  52. Global $Button2 = GUICtrlCreateButton("Visiter le blog !", 8, 120, 89, 25)
  53. Global $Button3 = GUICtrlCreateButton("Aide (F1)", 8, 149, 89, 79)
  54. GUISetState(@SW_SHOW)
  55.  
  56.  
  57. ; --- Parametrables par l'utilisateur
  58. $mode = 0
  59. $verif = 0
  60. $tempsFauche = 0
  61.  
  62. ; --- Couleurs enregistrees
  63. Global $couleurDuBle[5] = ["0xFAEE47","0xF9C72C","0xF8D130","0xF7C426","0xFAE03B"]
  64. Global $couleurBleInventaire[4] = ["0xD9A910","0xE3BA2E","0xDBA801","0xCF9B00"]
  65. $couleurCroix = 0xFF6100
  66. $couleurInventaireVide = 0x514A3C
  67. $couleurInventairePlein = 0xA00101
  68.  
  69. ; --- Gerees par le programme
  70. Global $posDetruire[2], $posValiderDetruire[2] = [0,0]
  71. $compteur = 0
  72. $totalFauche = 0
  73. $nbErreursCsq = 0
  74. $posBle2 = 0
  75. $popUp = 0
  76. $i = 0
  77.  
  78. ; ------  F O N C T I O N S
  79. Func aide ()
  80.     MsgBox(0,"Dofbot","Dofbot© v1.0 - Dossier d'aide :" & @CRLF & @CRLF & _
  81.     "- Mettre en pause : F2 ( F3 pour relancer )" & @CRLF & _
  82.     "- Acceder a cette aide : F1" & @CRLF & _
  83.     "- Aller sur le blog pour verifier la version." & @CRLF & @CRLF & _
  84.     "Modes fonctionnels:" & @CRLF & _
  85.     ". Mode Classique : S'arrete de faucher lorsque l'inventaire est plein." & @CRLF & _
  86.     ". Mode Farmer : Supprime le blé du sac lorsque celui ci est plein."& @CRLF & @CRLF & _
  87.     "Fonctionalités additionnelles :" & @CRLF & _
  88.     ". Fermeture de popups de tout type (echange, défi, inventaire, up lvl etc...)."& @CRLF & @CRLF & _
  89.     "Bot d'automatisation de tache pour le jeu en ligne Dofus codé avec AutoIt." & @CRLF & _
  90.     "Contacter harry.dotcom@hotmail.fr pour toute questions ou remarques." & @CRLF & @CRLF & _
  91.     "ATTENTION : Cette version ne gere que le blé et ne prend pas encore en compte les aggros ressources !")
  92. EndFunc
  93.  
  94. Func closeBot($raisonDuClose)
  95.     MsgBox(0,"Dofbot", "( " & @HOUR & ":" & @MIN & ":" & @SEC & " ) " & _
  96.     "Dofbot se ferme car : " & $raisonDuClose & "." & @CRLF & @CRLF & _
  97.     "Bilan de la session : " & @CRLF & _
  98.     "- Fauches : " & $totalFauche & @CRLF & _
  99.     "- Fermeture de Popups : " & $popUp )
  100.     Exit
  101. EndFunc
  102.  
  103. Func closeBotRac()
  104.     MsgBox(0,"Dofbot", "( " & @HOUR & ":" & @MIN & ":" & @SEC & " ) " & _
  105.     "Dofbot se ferme car : Tu as appuye sur ECHAP ou F1." & @CRLF & @CRLF & _
  106.     "Bilan de la session : " & @CRLF & _
  107.     "- Fauches : " & $totalFauche & @CRLF & _
  108.     "- Fermeture de Popups : " & $popUp )
  109.     Exit
  110. EndFunc
  111.  
  112. Func pause()
  113.     $pause = 1
  114.     Sleep(1000)
  115.     Do
  116.         Sleep(100)
  117.         If _IsPressed(72) Then
  118.             $pause = 0
  119.         EndIf
  120.     Until $pause = 0
  121. EndFunc
  122.  
  123. Func verifier($x, $y)
  124.     $couleur = PixelGetColor($x, $y)
  125.     if $couleur = $couleurCroix Then
  126.         $popUp = $popUp + 1
  127.         MouseClick("left",$x, $y)
  128.     EndIf
  129. EndFunc
  130.  
  131. Func fauchageBleAuto()
  132.     While 1
  133.         verifier(370, 343)  ; Verif up / echange / defi
  134.         verifier(199, 292)  ; Verif invit goupe
  135.         verifier(665, 81)   ; Verif inventaire ouvert
  136.         verifier(637, 78)   ; Verif sorts
  137.         verifier(218, 81)   ; Verif caracs ouverte
  138.         verifier(671, 67)   ; Verif map ouverte
  139.  
  140.         if $compteur = $verif Then
  141.             $compteur = 0
  142.             Send ("i")
  143.             sleep(800)
  144.             $couleur = PixelGetColor(665,488)
  145.             if $couleur = $couleurInventairePlein Then
  146.                 Switch $mode
  147.                     Case 1 ; Mode Classique
  148.                         MsgBox(0,"Dofbot","Mode classique : Inventaire presque plein donc fermeture du bot")
  149.                         closeBot("Fin normale du mode classique")
  150.                     Case 2 ; Mode Banque
  151.                     Case 3 ; Mode Farmer
  152.                         $step = 0
  153.                         MouseClick("left",663,133)
  154.                         sleep(500)
  155.                         Send("Blé")
  156.                         sleep(500)
  157.                         While 1
  158.                             $posBleInventaire = PixelSearch(525,130,690,500,$couleurBleInventaire[$step],1)
  159.                             if @error Then
  160.                                 $step = $step + 1
  161.                                 if $step > 3 Then
  162.                                     closeBot("Probleme dans la suppression du ble en mode farmer")
  163.                                 EndIf
  164.                             Else
  165.                                 ExitLoop
  166.                             EndIf
  167.                         WEnd
  168.                         MouseClick("right",$posBleInventaire[0], $posBleInventaire[1])
  169.                         sleep(500)
  170.                         $posDetruire[0] = $posBleInventaire[0] - 20
  171.                         $posDetruire[1] = $posBleInventaire[1] + 42
  172.                         MouseClick("left",$posDetruire[0], $posDetruire[1])
  173.                         sleep(500)
  174.                         $posValiderDetruire[0] = $posDetruire[0] + 65
  175.                         $posValiderDetruire[1] = $posDetruire[1] - 15
  176.                         sleep(500)
  177.                         MouseClick("left",$posValiderDetruire[0], $posValiderDetruire[1])
  178.                         sleep(500)
  179.                         MouseClick("left",320, 340)
  180.                 Endswitch
  181.             EndIf
  182.             sleep(500)
  183.             MouseClick("left",665, 81)
  184.         EndIf
  185.  
  186.         ; Recherche et clic sur le ble
  187.         $posBle = 0
  188.         $posBle = PixelSearch(0,0,690,500,$couleurDuBle[$i],1)
  189.         if @error Then
  190.             $i = Random(0,4,1)
  191.             $nbErreursCsq = $nbErreursCsq + 1
  192.             if $nbErreursCsq >100 Then
  193.                 closebot("Ble introuvable (>100 fois consecutives), le bot ne detecte pas bien le ble sur cette map")
  194.             EndIf
  195.         Else
  196.             $totalFauche = $totalFauche + 1
  197.             $compteur = $compteur + 1
  198.             MouseClick("left",$posBle[0], $posBle[1])
  199.             sleep($tempsFauche * 1000 + 2000)
  200.             $i = Random(0,4,1)
  201.             $nbErreursCsq = 0
  202.         EndIf
  203.  
  204.     WEnd
  205. EndFunc
  206.  
  207.  
  208. HotKeySet("{ESC}", "closeBotRac" )
  209. HotKeySet("{F1}", "aide" )
  210. HotKeySet("{F2}", "pause")
  211.  
  212.  
  213. ;                      D E B U T    D U    B O T
  214. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  215.  
  216. While 1
  217.     $nMsg = GUIGetMsg()
  218.     Switch $nMsg
  219.     Case $GUI_EVENT_CLOSE
  220.             Exit
  221.  
  222.     Case $Radio1
  223.         $mode = 1
  224.  
  225.     Case $Radio2
  226.         $mode = 2
  227.  
  228.     Case $Radio3
  229.         $mode = 3
  230.  
  231.     Case $Checkbox1
  232.         $ressources = 1
  233.  
  234.  
  235.  
  236.     Case $Button1
  237.         if $mode = 0 Then
  238.             MsgBox(0,"Dofbot","Erreur : Choisis un mode avant de lancer le Bot.")
  239.             ContinueLoop
  240.         EndIf
  241.  
  242.         Do
  243.             $nom = InputBox("Dofbot", "Etape 1/3 : Entres le nom de ton personnage"& @CRLF & @CRLF & "(Avec les majuscules)")
  244.             If WinExists($nom) And $nom <> "" Then
  245.                 ProgressSet( 50, 50 & " %")
  246.                 WinSetState($nom,"",@SW_MINIMIZE)
  247.                 WinSetState($nom,"",@SW_RESTORE)
  248.                 WinMove($nom, "", 0, 0, 700, 600)
  249.                 MsgBox(0,"Dofbot","Fenêtre de " & $nom & " redimensionnée")
  250.             Else
  251.                 MsgBox(0,"Dofbot", "Erreur : Fenetre de ton personnage non trouvee !")
  252.             EndIf
  253.         Until WinExists($nom) And $nom <> ""
  254.  
  255.         Do
  256.             $tempsFauche = InputBox("Dofbot", "Etape 2/3 : Inséres ton temps de fauche (en secondes)"& @CRLF & @CRLF & "(Entre 2 et 20)")
  257.         Until $tempsFauche > 1 And $tempsFauche < 21
  258.  
  259.         Do
  260.             $verif = InputBox("Dofbot","Etape 3/3 : Nombre de fauches entre vérification de l'inventaire  (minimum 5)" & @CRLF & @CRLF & "Exemple :  Si tu rentres 10, le bot vérifiera si l'inventaire est plein toute les 10 coupes")
  261.         Until $verif > 4
  262.  
  263.         aide()
  264.  
  265.         fauchageBleAuto()
  266.  
  267.  
  268.  
  269.  
  270.  
  271.     Case $Button2
  272.         ShellExecute("http://dofbots.blogspot.com")
  273.  
  274.     Case $Button3
  275.         aide()
  276.  
  277.     EndSwitch
  278. WEnd
  279. closebot("Sortie du While principal")