Bonjours,
Je veut vous présenter un bot dofus que j'ai programmer en étant très débutant .Je vais l'améliorer et je posterai la v2
bientôt.
Liende téléchargement : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Les + :
-C'est un bot Dofus 2.00
-Il ne marche que sur la map 4/-28 (pratique pour les non-abonnés)
-il fait un bruit quand il a fini un cycle et quand il le reprend (Il attent que le blé pousse en fait) vous disposer donc de 1 minute pour faire un réglage, ou combattre un agroo de "protecteur de ressource"
-Il peut marcher toute la journé sans se faire banir
-Marche avec un mot de passe (qui est inutile mais bon ...)
Les - :
-Il ne marche que sur une map
- Pour l'arrêtter il faut fermer la session et la ré-ouvrir (ba ...beaucoup de bot marchent comme sa ...)
-Ben euh ...C'est déjà pas mal !
Voici le code :
ET IL FAUT QUE JE LUI TROUVE UN NOM !
Je veut vous présenter un bot dofus que j'ai programmer en étant très débutant .Je vais l'améliorer et je posterai la v2
bientôt.
Liende téléchargement : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Les + :
-C'est un bot Dofus 2.00
-Il ne marche que sur la map 4/-28 (pratique pour les non-abonnés)
-il fait un bruit quand il a fini un cycle et quand il le reprend (Il attent que le blé pousse en fait) vous disposer donc de 1 minute pour faire un réglage, ou combattre un agroo de "protecteur de ressource"
-Il peut marcher toute la journé sans se faire banir
-Marche avec un mot de passe (qui est inutile mais bon ...)
Les - :
-Il ne marche que sur une map
- Pour l'arrêtter il faut fermer la session et la ré-ouvrir (ba ...beaucoup de bot marchent comme sa ...)
-Ben euh ...C'est déjà pas mal !
Voici le code :
Code:
MsgBox(0+64, "DofBot", "Bienvenue sur le Bot Dofus de Simon !")
Do
$pass = "1996"
$input = InputBox("DofBot", "Entrez le mot de passe :")
If ($input <> $pass) Then
MsgBox(16,"DofBot", "Mauvais mot de passe !")
Else
MsgBox(48,"DofBot", "Le mot de passe est correct !")
EndIf
Until ($input = $pass)
MsgBox(48,"BotDof", "Le bot ne marche que sur la map 4/-28")
MsgBox(32, "DofBot", "Cliquez sur ok pour lancer le bot !")
MsgBox(32+4, "DofBot", "Etes vous sûr ?")
While 1
MouseClick("left", 790, 485, 10);1
MouseClick("left", 810, 506, 30)
sleep(9000 )
MouseClick("left", 852, 452, 10);2
MouseClick("left", 880, 470, 30)
sleep(9000 )
MouseClick("left", 770, 469, 10);3
MouseClick("left", 797, 495, 30)
Sleep(9000 )
MouseClick("left", 730, 453, 10);4
MouseClick("left", 755, 480, 30)
Sleep(9000 )
MouseClick("left", 641, 426, 10);5
MouseClick("left", 667, 452, 30)
Sleep(9000 )
MouseClick("left", 616, 407, 10);6
MouseClick("left", 643, 433, 30)
Sleep(9000 )
MouseClick("left", 673, 456, 10);7
MouseClick("left", 700, 483, 30)
Sleep(9000 )
MouseClick("left", 481, 355, 10);8
MouseClick("left", 509, 382, 30)
sleep(9000 )
MouseClick("left", 638, 279, 10);9
MouseClick("left", 665, 305, 30)
Beep(950, 700)
Sleep(60000)
Beep(950, 700)
WEnd
ET IL FAUT QUE JE LUI TROUVE UN NOM !
Last edited: