Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ; ==== DOFBOTS.BLOGSPOT.COM ====
  2. ; ==== CODE PAR H@RRY ====
  3. #RequireAdmin
  4. ; == Includes ==
  5. #include <ButtonConstants.au3>
  6. #include <EditConstants.au3>
  7. #include <GUIConstantsEx.au3>
  8. #include <StaticConstants.au3>
  9. #include <TabConstants.au3>
  10. #include <WindowsConstants.au3>
  11. #include "Misc.au3"
  12.  
  13. ; == Variables ==
  14. $mode = 0
  15. $tempsFauche = 0
  16. $aggro = 0
  17.  
  18. Global $nomProgramme = "Dofbot Paysan G2"
  19. Global $couleurDuBle[5] = ["0xFAEE47","0xF9C72C","0xF8D130","0xF7C426","0xFAE03B"]
  20. Global $couleurBleInventaire[5] = ["0xD9A910","0xE3BA2E","0xDBA801","0xCF9B00","0xE0B630"]
  21. Const $couleurCroix = 0xFF6100
  22. Const $couleurInventaireVide = 0x514A3C, $couleurInventairePlein = 0xA00101
  23. Const $verif = 10
  24.  
  25. Global $posDetruire[2], $posValiderDetruire[2] = [0,0]
  26. $compteur = 0
  27. $nbErreursCsq = 0
  28. $popUp = 0
  29. $fauche = 0
  30. $i = 0
  31. Global $botOn = 0
  32.  
  33. ; == GUI ==
  34. #Region ### START Koda GUI section ### Form=c:\users\dreadz\desktop\autoit script\dofbot3.kxf
  35. Global $GUI_1 = GUICreate($nomProgramme, 594, 370, 197, 126)
  36. GUISetIcon("D:\005.ico", -1)
  37. Global $PageControl1 = GUICtrlCreateTab(8, 8, 580, 344)
  38. ;- ONGLET 1 -
  39. Global $TabSheet1 = GUICtrlCreateTabItem("Aide")
  40. Global $Group2 = GUICtrlCreateGroup("Fonctionnement du bot :", 16, 128, 185, 105)
  41. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  42. Global $Label2 = GUICtrlCreateLabel("Bot a detection de pixels.", 24, 152, 139, 18)
  43. Global $Label5 = GUICtrlCreateLabel("Qualite flash optimale : Moyenne.", 24, 176, 162, 18)
  44. Global $Label7 = GUICtrlCreateLabel("Cette version ne fauche que le ble.", 24, 200, 172, 18)
  45. GUICtrlCreateGroup("", -99, -99, 1, 1)
  46. Global $labelUrlBlog = GUICtrlCreateLabel("DOFBOTS.BLOGSPOT.COM", 48, 48, 495, 64)
  47. GUICtrlSetFont(-1, 36, 800, 0, "Impact")
  48. GUICtrlSetColor(-1, 0x808080)
  49. Global $Group1 = GUICtrlCreateGroup("A propos", 216, 128, 177, 169)
  50. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  51. Global $Label8 = GUICtrlCreateLabel("Dofbot Paysan 2e Generation ©.", 224, 152, 160, 18)
  52. GUICtrlCreateLabel("", 224, 176, 4, 4)
  53. Global $Label9 = GUICtrlCreateLabel("Code par H@rry Dotcom.", 224, 176, 125, 18)
  54. Global $Label12 = GUICtrlCreateLabel("Il existe peut etre une nouvelle", 224, 224, 150, 18)
  55. Global $Label13 = GUICtrlCreateLabel("version de ce bot.", 224, 248, 91, 18)
  56. Global $Label6 = GUICtrlCreateLabel("Partez verifier sur le blog :).", 224, 272, 138, 18)
  57. Global $Label14 = GUICtrlCreateLabel("Date de sortie : 13/03/2012", 224, 200, 150, 18)
  58. GUICtrlCreateGroup("", -99, -99, 1, 1)
  59. Global $Group3 = GUICtrlCreateGroup("Contact", 400, 128, 177, 81)
  60. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  61. Global $Label10 = GUICtrlCreateLabel("harry.dotcom@hotmail.fr", 408, 152, 123, 18)
  62. Global $Label11 = GUICtrlCreateLabel("M'envoyer un mail en cas de pbs.", 408, 176, 165, 18)
  63. GUICtrlCreateGroup("", -99, -99, 1, 1)
  64. ;- ONGLET 2 -
  65. Global $TabSheet2 = GUICtrlCreateTabItem("Bot Paysan")
  66. GUICtrlSetState(-1,$GUI_SHOW)
  67. Global $journal = GUICtrlCreateEdit("", 16, 64, 273, 225, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$WS_VSCROLL))
  68. GUICtrlSetData(-1, @HOUR & ":" & @MIN & ":" & @SEC & " : " & "Ouverture du programme")
  69. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  70. Global $labelJournal = GUICtrlCreateLabel("Journal de bord :", 16, 40, 85, 18)
  71. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  72. Global $inputTempsFauche = GUICtrlCreateInput("Temps de fauche (en sec)", 428, 265, 145, 22, $ES_NUMBER)
  73. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  74. Global $inputNom = GUICtrlCreateInput("Nom du personnage", 428, 233, 145, 22)
  75. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  76. Global $buttonDemarrer = GUICtrlCreateButton("LANCER (Echap pour stopper)", 424, 296, 153, 41)
  77. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  78. Global $buttonViderJournal = GUICtrlCreateButton("Vider le journal", 190, 296, 80, 22)
  79. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  80. Global $Label3 = GUICtrlCreateLabel("Total de fauches :", 16, 295, 91, 18)
  81. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  82. Global $Label4 = GUICtrlCreateLabel("Total de popups :", 16, 320, 87, 18)
  83. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  84. Global $GroupeMode = GUICtrlCreateGroup("Mode", 424, 40, 153, 97)
  85. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  86. Global $radioClassique = GUICtrlCreateRadio("Classique", 432, 64, 129, 17)
  87. Global $radioFarmer = GUICtrlCreateRadio("Farmer", 432, 88, 129, 17)
  88. Global $radioBanque = GUICtrlCreateRadio("Banque (reglages sup.)", 432, 112, 129, 17)
  89. GUICtrlSetState(-1, $GUI_DISABLE)
  90. GUICtrlCreateGroup("", -99, -99, 1, 1)
  91. Global $GroupeCereals = GUICtrlCreateGroup("Cereale(s)", 304, 40, 113, 241)
  92. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  93. Global $cerealBle = GUICtrlCreateCheckbox("Ble (lv 1)", 312, 64, 97, 17)
  94. Global $cerealOrge = GUICtrlCreateCheckbox("Orge (lv 10)", 312, 88, 97, 17)
  95. GUICtrlSetState(-1, $GUI_DISABLE)
  96. Global $cerealAvoine = GUICtrlCreateCheckbox("Avoine (lv 20)", 312, 112, 97, 17)
  97. GUICtrlSetState(-1, $GUI_DISABLE)
  98. Global $cerealHoublon = GUICtrlCreateCheckbox("Houblon (lvl 30)", 312, 136, 97, 17)
  99. GUICtrlSetState(-1, $GUI_DISABLE)
  100. Global $cerealLin = GUICtrlCreateCheckbox("Lin (lv 40)", 312, 160, 97, 17)
  101. GUICtrlSetState(-1, $GUI_DISABLE)
  102. Global $cerealSeigle = GUICtrlCreateCheckbox("Seigle (lv 50)", 312, 184, 97, 17)
  103. GUICtrlSetState(-1, $GUI_DISABLE)
  104. Global $cerealRiz = GUICtrlCreateCheckbox("Riz (lv 50)", 312, 208, 97, 17)
  105. GUICtrlSetState(-1, $GUI_DISABLE)
  106. Global $cerealMalt = GUICtrlCreateCheckbox("Malt (lv 60)", 312, 232, 97, 17)
  107. GUICtrlSetState(-1, $GUI_DISABLE)
  108. Global $cerealChanvre = GUICtrlCreateCheckbox("Chanvre (lv 70)", 312, 256, 97, 17)
  109. GUICtrlSetState(-1, $GUI_DISABLE)
  110. GUICtrlCreateGroup("", -99, -99, 1, 1)
  111. Global $GroupeAggro = GUICtrlCreateGroup("Aggro ressources", 424, 144, 153, 73)
  112. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  113. Global $radioBip = GUICtrlCreateRadio("Jouer un Bip", 432, 168, 113, 17)
  114. Global $radioCombattre = GUICtrlCreateRadio("Combattre", 432, 192, 113, 17)
  115. GUICtrlSetState(-1, $GUI_DISABLE)
  116. GUICtrlCreateGroup("", -99, -99, 1, 1)
  117. Global $totalFauches = GUICtrlCreateInput("0", 112, 296, 73, 22)
  118. GUICtrlSetState(-1, $GUI_DISABLE)
  119. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  120. Global $totalPopups = GUICtrlCreateInput("0", 112, 320, 73, 22)
  121. GUICtrlSetState(-1, $GUI_DISABLE)
  122. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  123. Global $GroupeEtat = GUICtrlCreateGroup("Etat", 304, 288, 113, 49)
  124. GUICtrlSetFont(-1, 8, 400, 0, "Arial")
  125. Global $labelEtat = GUICtrlCreateLabel("A l'arret", 312, 312, 52, 18)
  126. GUICtrlCreateGroup("", -99, -99, 1, 1)
  127. GUICtrlCreateTabItem("")
  128. Global $copyright = GUICtrlCreateLabel("Copyright © 2012, H@rry Dotcom, dofbots.blogspot.com", 320, 352, 270, 17)
  129. GUISetState(@SW_SHOW)
  130. #EndRegion ### END Koda GUI section ###
  131.  
  132. ; == Boucle While ==
  133. While 1
  134.     $nMsg = GUIGetMsg()
  135.     Switch $nMsg
  136.         Case $GUI_EVENT_CLOSE
  137.             exit
  138.         Case $radioClassique
  139.             $mode = 1
  140.         Case $radioFarmer
  141.             $mode = 2
  142.         Case $radioBanque
  143.             $mode = 3
  144.         Case $radioBip
  145.             $aggro = 1
  146.         Case $radioCombattre
  147.             $aggro = 2
  148.  
  149.         Case $buttonViderJournal
  150.             GUICtrlSetData($journal,"")
  151.  
  152.         Case $buttonDemarrer
  153.             _verifsDemarrage()
  154.             if $botOn = 0 Then
  155.                 ContinueCase
  156.             EndIf
  157.  
  158.             ; == Et maintenant, le coeur de la maison, la cuisine ==
  159.             While 1
  160.                 _verifAggros() ; On verifie tout avant de faucher
  161.                 _verifsPopups()
  162.                 _verifInventaire()
  163.                 if $botOn = 1 Then ; Si tout va bien on y va
  164.                     _fauchage()
  165.                 Else ; Sinon on arrete le bot
  166.                     journalMsg("Arret du bot")
  167.                     GUICtrlSetState($buttonDemarrer, $GUI_ENABLE)
  168.                     GUICtrlSetData($labelEtat, "A l'arret")
  169.                     ContinueCase
  170.                 EndIf
  171.             WEnd
  172.     EndSwitch
  173. WEnd
  174.  
  175. ; == Fonctions : Boutons, Leviers et Rouages ==
  176. Func _verifsDemarrage()
  177.     $verifsValidees=0
  178.     ; -- Mode --
  179.     if $mode <> 0 Then
  180.         $verifsValidees = $verifsValidees + 1
  181.     EndIf
  182.  
  183.     ; -- Aggro --
  184.     if $aggro <> 0 Then
  185.         $verifsValidees = $verifsValidees + 1
  186.     EndIf
  187.  
  188.     ; -- Nom perso --
  189.     $nomPerso = GUICtrlRead($inputNom)
  190.     if WinExists($nomPerso) And $nomPerso <> "" Then
  191.         sleep(200)
  192.         WinSetState($nomPerso,"",@SW_MINIMIZE)
  193.         WinSetState($nomPerso,"",@SW_RESTORE)
  194.         WinMove($nomPerso, "", 0, 0, 700, 600)
  195.         WinMove($GUI_1,"",700, 0, 594, 400)
  196.         $verifsValidees = $verifsValidees + 1
  197.     EndIf
  198.  
  199.     ; -- Temps de Fauche --
  200.     $tempsFauche = GUICtrlRead($inputTempsFauche)
  201.     if $tempsFauche < 12 And $tempsFauche > 3 Then
  202.         $verifsValidees = $verifsValidees + 1
  203.     EndIf
  204.  
  205.     ; -- Si tout est bon on lance la bete --
  206.     if $verifsValidees = 4 Then
  207.         _demarrage()
  208.     ; -- Sinon .. Erreur --
  209.     Else
  210.         MsgBox(0,"Dofbot","Erreur, il manque des informations ou certaines informations sont incorrectes. Verifies bien que :" & @CRLF & _
  211.         "- Le mode de fauchage et de gerance de l'aggro sont bien choisis." & @CRLF & _
  212.         "- Le nom du perso connecte est bien ecrit (avec les accents)" & @CRLF & _
  213.         "- Tu as bel et bien ouvert Dofus et connecte ton personnage." & @CRLF & _
  214.         "- Le temps de fauche est bien defini entre 3 et 12.")
  215.     EndIf
  216.  
  217. EndFunc
  218.  
  219. Func _demarrage()
  220.     GUICtrlSetState($buttonDemarrer, $GUI_DISABLE)
  221.     GUICtrlSetData($labelEtat, "En marche")
  222.     HotKeySet("{ESC}", "closeBotRac" )
  223.     journalMsg("Demarrage du bot")
  224.     $botOn = 1
  225. EndFunc
  226.  
  227. Func _verifAggros()
  228.     $couleur = PixelGetColor(336, 566)
  229.     if $couleur = $couleurCroix Then ; Couleur croix = Couleur bouton Pret
  230.         if $aggro = 1 Then
  231.             _alerte()
  232.         EndIf
  233.         if $aggro = 2 Then
  234.             _combattre()
  235.         EndIf
  236.     EndIf
  237. EndFunc
  238.  
  239. Func _alerte()
  240.     Beep (400 *3,500)
  241.     Beep (400 *3,500)
  242.     Beep (400 *3,500)
  243.     sleep(500)
  244.     Beep (400 *3,500)
  245.     Beep (400 *3,500)
  246.     Beep (400 *3,500)
  247.     stopBot("Aggression !")
  248. EndFunc
  249.  
  250. Func _combattre()
  251.     ; A CODER !
  252. EndFunc
  253.  
  254. Func _verifsPopups()
  255.     _fermeturePopups(370, 343)  ; Verif up / echange / defi
  256.     _fermeturePopups(199, 292)  ; Verif invit goupe
  257.     _fermeturePopups(665, 81)   ; Verif inventaire ouvert
  258.     _fermeturePopups(637, 78)   ; Verif sorts
  259.     _fermeturePopups(218, 81)   ; Verif caracs ouverte
  260.     _fermeturePopups(671, 67)   ; Verif map ouverte
  261. EndFunc
  262.  
  263. Func _fermeturePopups($x, $y)
  264.     $couleur = PixelGetColor($x, $y)
  265.     if $couleur = $couleurCroix Then
  266.         $popUp = $popUp + 1
  267.         GUICtrlSetData($totalPopups, $popUp )
  268.         MouseClick("left",$x, $y)
  269.         journalMsg("Fermeture d'une Popup")
  270.     EndIf
  271. EndFunc
  272.  
  273. Func _verifInventaire()
  274.     if $compteur = $verif Then
  275.         _inventaireCheck()
  276.     EndIf
  277. EndFunc
  278.  
  279. Func _inventaireCheck()
  280.     journalMsg("Verification de l'inventaire")
  281.     $compteur = 0
  282.     Send ("i")
  283.     sleep(800)
  284.     $couleur = PixelGetColor(665,488)
  285.  
  286.     if $couleur = $couleurInventairePlein Then
  287.         _inventairePlein()
  288.     Else
  289.         journalMsg("Inventaire non plein.")
  290.     EndIf
  291.  
  292.     sleep(500)
  293.     MouseClick("left",665, 81)
  294. EndFunc
  295.  
  296. Func _inventairePlein()
  297.     if $mode = 1 Then
  298.         stopBot("Fin normale du mode classique")
  299.     EndIf
  300.  
  301.     if $mode = 2 Then
  302.         MouseClick("left",663,133)
  303.         sleep(500)
  304.         Send("Blé")
  305.         sleep(500)
  306.         $step = 0
  307.         Do
  308.             $posBleInventaire = PixelSearch(525,130,690,500,$couleurBleInventaire[$step],2)
  309.             if @error Then
  310.                 $step = $step + 1
  311.                 if $step = 4 Then
  312.                     stopBot("Probleme dans la suppression du ble en mode farmer")
  313.                 EndIf
  314.             EndIf
  315.         Until Not @error
  316.         MouseClick("right",$posBleInventaire[0], $posBleInventaire[1])
  317.         sleep(500)
  318.         $posDetruire[0] = $posBleInventaire[0] - 20
  319.         $posDetruire[1] = $posBleInventaire[1] + 42
  320.         MouseClick("left",$posDetruire[0], $posDetruire[1])
  321.         sleep(500)
  322.         $posValiderDetruire[0] = $posDetruire[0] + 65
  323.         $posValiderDetruire[1] = $posDetruire[1] - 15
  324.         sleep(500)
  325.         MouseClick("left",$posValiderDetruire[0], $posValiderDetruire[1])
  326.         sleep(500)
  327.         MouseClick("left",320, 340)
  328.         journalMsg("Suppression du ble effectuee")
  329.     EndIf
  330.  
  331.     if $mode = 3 Then
  332.         ; MODE BANQUE
  333.     EndIf
  334. EndFunc
  335.  
  336. Func _fauchage()
  337.     $posBle = 0
  338.     $posBle = PixelSearch(0,0,690,500,$couleurDuBle[$i],1)
  339.     if Not @error Then
  340.         journalMsg("Fauche un ble")
  341.         $fauche = $fauche + 1
  342.         $compteur = $compteur + 1
  343.         GUICtrlSetData($totalFauches, $fauche )
  344.         MouseClick("left",$posBle[0], $posBle[1])
  345.         sleep($tempsFauche * 1000 + 2000)
  346.         $i = Random(0,4,1)
  347.         $nbErreursCsq = 0
  348.     Else
  349.         $i = Random(0,4,1)
  350.         $nbErreursCsq = $nbErreursCsq + 1
  351.         if $nbErreursCsq > 100 Then
  352.             stopbot("Ble introuvable")
  353.         EndIf
  354.     EndIf
  355. EndFunc
  356.  
  357. Func journalMsg($messageJournal)
  358.     $journalPrevious = GUICtrlRead($journal)
  359.     GUICtrlSetData($journal, @HOUR & ":" & @MIN & ":" & @SEC & " : " & $messageJournal & @CRLF & $journalPrevious )
  360. EndFunc
  361.  
  362. Func stopBot($raison)
  363.     journalMsg($raison & ". Arret en cours...")
  364.     $botOn = 0
  365. EndFunc
  366.  
  367. Func closeBotRac()
  368.     journalMsg("Arret dans quelques secondes...")
  369.     $botOn = 0
  370. EndFunc