#cs
. DOFBOT PAYSAN 1.0
. BOT PAYSAN POUR DOFUS 2.0
. H@rry Dotcom - dofbot.blogspot.com
#ce
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Dropbox\webmaster\dofbots.blogspot.com\images\Dofbot1.2(1).ico
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=H@rry Dotcom - Dofbots.blogspot.com
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include "Misc.au3"
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
; --- Creation de la GUI
Global $Form1 = GUICreate("Dofbot Paysan 1.0", 223, 264, 196, 133)
GUISetIcon("C:\Users\Dreadz\Dropbox\webmaster\dofbots.blogspot.com\images\favicon_petit.ico", -1)
Global $Group1 = GUICtrlCreateGroup("Mode", 8, 8, 89, 105)
Global $Radio1 = GUICtrlCreateRadio("Classique", 16, 32, 75, 17)
Global $Radio2 = GUICtrlCreateRadio("Banque", 16, 56, 75, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Radio3 = GUICtrlCreateRadio("Farmer", 16, 80, 75, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Ressource(s)", 104, 8, 113, 249)
Global $Checkbox1 = GUICtrlCreateCheckbox("Blé (lv 1)", 112, 32, 89, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("Orge (lv 10)", 112, 56, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox3 = GUICtrlCreateCheckbox("Avoine (lv 20)", 112, 80, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox4 = GUICtrlCreateCheckbox("Houblon (lv 30)", 112, 104, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox5 = GUICtrlCreateCheckbox("Lin (lv 40)", 112, 128, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox6 = GUICtrlCreateCheckbox("Seigle (lv 50)", 112, 152, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox7 = GUICtrlCreateCheckbox("Riz (lv 50)", 112, 176, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox8 = GUICtrlCreateCheckbox("Malt (lvl 60)", 112, 200, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Checkbox9 = GUICtrlCreateCheckbox("Chanvre (lv 70)", 112, 224, 89, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Lancer Dofbot !", 8, 232, 89, 25)
Global $Button2 = GUICtrlCreateButton("Visiter le blog !", 8, 120, 89, 25)
Global $Button3 = GUICtrlCreateButton("Aide (F1)", 8, 149, 89, 79)
GUISetState(@SW_SHOW)
; --- Parametrables par l'utilisateur
$mode = 0
$verif = 0
$tempsFauche = 0
; --- Couleurs enregistrees
Global $couleurDuBle[5] = ["0xFAEE47","0xF9C72C","0xF8D130","0xF7C426","0xFAE03B"]
Global $couleurBleInventaire[4] = ["0xD9A910","0xE3BA2E","0xDBA801","0xCF9B00"]
$couleurCroix = 0xFF6100
$couleurInventaireVide = 0x514A3C
$couleurInventairePlein = 0xA00101
; --- Gerees par le programme
Global $posDetruire[2], $posValiderDetruire[2] = [0,0]
$compteur = 0
$totalFauche = 0
$nbErreursCsq = 0
$posBle2 = 0
$popUp = 0
$i = 0
; ------ F O N C T I O N S
Func aide ()
MsgBox(0,"Dofbot","Dofbot© v1.0 - Dossier d'aide :" & @CRLF & @CRLF & _
"- Mettre en pause : F2 ( F3 pour relancer )" & @CRLF & _
"- Acceder a cette aide : F1" & @CRLF & _
"- Aller sur le blog pour verifier la version." & @CRLF & @CRLF & _
"Modes fonctionnels:" & @CRLF & _
". Mode Classique : S'arrete de faucher lorsque l'inventaire est plein." & @CRLF & _
". Mode Farmer : Supprime le blé du sac lorsque celui ci est plein."& @CRLF & @CRLF & _
"Fonctionalités additionnelles :" & @CRLF & _
". Fermeture de popups de tout type (echange, défi, inventaire, up lvl etc...)."& @CRLF & @CRLF & _
"Bot d'automatisation de tache pour le jeu en ligne Dofus codé avec AutoIt." & @CRLF & _
"Contacter harry.dotcom@hotmail.fr pour toute questions ou remarques." & @CRLF & @CRLF & _
"ATTENTION : Cette version ne gere que le blé et ne prend pas encore en compte les aggros ressources !")
EndFunc
Func closeBot($raisonDuClose)
MsgBox(0,"Dofbot", "( " & @HOUR & ":" & @MIN & ":" & @SEC & " ) " & _
"Dofbot se ferme car : " & $raisonDuClose & "." & @CRLF & @CRLF & _
"Bilan de la session : " & @CRLF & _
"- Fauches : " & $totalFauche & @CRLF & _
"- Fermeture de Popups : " & $popUp )
Exit
EndFunc
Func closeBotRac()
MsgBox(0,"Dofbot", "( " & @HOUR & ":" & @MIN & ":" & @SEC & " ) " & _
"Dofbot se ferme car : Tu as appuye sur ECHAP ou F1." & @CRLF & @CRLF & _
"Bilan de la session : " & @CRLF & _
"- Fauches : " & $totalFauche & @CRLF & _
"- Fermeture de Popups : " & $popUp )
Exit
EndFunc
Func pause()
$pause = 1
Sleep(1000)
Do
Sleep(100)
If _IsPressed(72) Then
$pause = 0
EndIf
Until $pause = 0
EndFunc
Func verifier($x, $y)
$couleur = PixelGetColor($x, $y)
if $couleur = $couleurCroix Then
$popUp = $popUp + 1
MouseClick("left",$x, $y)
EndIf
EndFunc
Func fauchageBleAuto()
While 1
verifier(370, 343) ; Verif up / echange / defi
verifier(199, 292) ; Verif invit goupe
verifier(665, 81) ; Verif inventaire ouvert
verifier(637, 78) ; Verif sorts
verifier(218, 81) ; Verif caracs ouverte
verifier(671, 67) ; Verif map ouverte
if $compteur = $verif Then
$compteur = 0
Send ("i")
sleep(800)
$couleur = PixelGetColor(665,488)
if $couleur = $couleurInventairePlein Then
Switch $mode
Case 1 ; Mode Classique
MsgBox(0,"Dofbot","Mode classique : Inventaire presque plein donc fermeture du bot")
closeBot("Fin normale du mode classique")
Case 2 ; Mode Banque
Case 3 ; Mode Farmer
$step = 0
MouseClick("left",663,133)
sleep(500)
Send("Blé")
sleep(500)
While 1
$posBleInventaire = PixelSearch(525,130,690,500,$couleurBleInventaire[$step],1)
if @error Then
$step = $step + 1
if $step > 3 Then
closeBot("Probleme dans la suppression du ble en mode farmer")
EndIf
Else
ExitLoop
EndIf
WEnd
MouseClick("right",$posBleInventaire[0], $posBleInventaire[1])
sleep(500)
$posDetruire[0] = $posBleInventaire[0] - 20
$posDetruire[1] = $posBleInventaire[1] + 42
MouseClick("left",$posDetruire[0], $posDetruire[1])
sleep(500)
$posValiderDetruire[0] = $posDetruire[0] + 65
$posValiderDetruire[1] = $posDetruire[1] - 15
sleep(500)
MouseClick("left",$posValiderDetruire[0], $posValiderDetruire[1])
sleep(500)
MouseClick("left",320, 340)
Endswitch
EndIf
sleep(500)
MouseClick("left",665, 81)
EndIf
; Recherche et clic sur le ble
$posBle = 0
$posBle = PixelSearch(0,0,690,500,$couleurDuBle[$i],1)
if @error Then
$i = Random(0,4,1)
$nbErreursCsq = $nbErreursCsq + 1
if $nbErreursCsq >100 Then
closebot("Ble introuvable (>100 fois consecutives), le bot ne detecte pas bien le ble sur cette map")
EndIf
Else
$totalFauche = $totalFauche + 1
$compteur = $compteur + 1
MouseClick("left",$posBle[0], $posBle[1])
sleep($tempsFauche * 1000 + 2000)
$i = Random(0,4,1)
$nbErreursCsq = 0
EndIf
WEnd
EndFunc
HotKeySet("{ESC}", "closeBotRac" )
HotKeySet("{F1}", "aide" )
HotKeySet("{F2}", "pause")
; D E B U T D U B O T
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
$mode = 1
Case $Radio2
$mode = 2
Case $Radio3
$mode = 3
Case $Checkbox1
$ressources = 1
Case $Button1
if $mode = 0 Then
MsgBox(0,"Dofbot","Erreur : Choisis un mode avant de lancer le Bot.")
ContinueLoop
EndIf
Do
$nom = InputBox("Dofbot", "Etape 1/3 : Entres le nom de ton personnage"& @CRLF & @CRLF & "(Avec les majuscules)")
If WinExists($nom) And $nom <> "" Then
ProgressSet( 50, 50 & " %")
WinSetState($nom,"",@SW_MINIMIZE)
WinSetState($nom,"",@SW_RESTORE)
WinMove($nom, "", 0, 0, 700, 600)
MsgBox(0,"Dofbot","Fenêtre de " & $nom & " redimensionnée")
Else
MsgBox(0,"Dofbot", "Erreur : Fenetre de ton personnage non trouvee !")
EndIf
Until WinExists($nom) And $nom <> ""
Do
$tempsFauche = InputBox("Dofbot", "Etape 2/3 : Inséres ton temps de fauche (en secondes)"& @CRLF & @CRLF & "(Entre 2 et 20)")
Until $tempsFauche > 1 And $tempsFauche < 21
Do
$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")
Until $verif > 4
aide()
fauchageBleAuto()
Case $Button2
ShellExecute("http://dofbots.blogspot.com")
Case $Button3
aide()
EndSwitch
WEnd
closebot("Sortie du While principal")