Bot Dofus

imants

Nouveau membre
20 Nov. 2011
1
0
301
29
Hello Je me presente je suis Imants : je vais vous presenté un bot que j'avais acheter ! Ce bot est Naz c'est donc pour sa que je vais vous le donner . La Presentation du bot =>
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Le code Source :
PHP:
HotKeySet("{F1}", "Close")
_NIVEAU()
Func _NIVEAU()
	$REPONSE = InputBox("Bot Mineur Version 2.0", "Veuillez entrer votre niveau de Mineur:")
	If @error = 1 Then
		Exit
	EndIf
	If $REPONSE < 1 Then
		MsgBox(16, "Erreur", "Votre niveau ne peut pas être inférieur à 1 !")
		_NIVEAU()
	EndIf
	If $REPONSE > 100 Then
		MsgBox(16, "Erreur", "Votre niveau ne peut pas être supérieur à 100 !")
		_NIVEAU()
	EndIf
	$TEMPS = IniRead("temps.ini", "temps", $REPONSE, "notfound")
	If $TEMPS = "notfound" Then
		MsgBox(16, "Erreur", "La clée " & $REPONSE & " n'a pas été trouvée")
		_NIVEAU()
	EndIf
	MsgBox(0, "Bot Mineur Version 2.0", "Cliquez sur OK pour que la fenêtre Dofus ce recadre")
	WinMove("[REGEXPTITLE:^Dofus]", "", 54, -9, 1320, 784)
	MsgBox(0, "Bot Mineur Version 2.0", "Cliquez sur F1 pour arrêter le bot quand vous le souhaiter")                                                                                                                                                                                          Cliquez sur OK pour que le bot commence")
	Sleep(1000)
	While 1
		$ECHANGE = PixelGetColor(743, 439)
		$COMBAT = PixelGetColor(749, 747)
		$UP = PixelGetColor(690, 443)
		If $ECHANGE = 16736512 Then
			MouseClick("left", 743, 439)
		ElseIf $COMBAT = 16731392 Then
			MouseClick("left", 697, 742)
			Sleep(5000)
			MouseClick("left", 855, 687)
		EndIf
		WinActivate("Shysio")
		$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 1658481, 1)
		If Not @error Then
			MouseClick("left", $COORD[0], $COORD[1], 1, 0)
			Sleep(500)
			MouseClick("left", 855, 687)
		EndIf
		Sleep(1500)
		WinActivate("Shysio")
		$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 1658481, 1)
		If Not @error Then
			MouseClick("left", $COORD[0], $COORD[1], 1, 0)
			Sleep(500)
		ElseIf $UP = 16736512 Then
			MouseClick("left", 690, 443)
		EndIf
		$COMBAT = PixelGetColor(1138, 98)
		If $COMBAT = 16736512 Then
			MouseClick("left", 1138, 98)
		EndIf
		$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 16029989, 1)
		If Not @error Then
			MouseClick("left", $COORD[0], $COORD[1], 1, 0)
			Sleep($TEMPS)
		EndIf
		$ECHANGE = PixelGetColor(743, 439)
		$COMBAT = PixelGetColor(749, 747)
		$UP = PixelGetColor(690, 443)
		If $ECHANGE = 16736512 Then
			MouseClick("left", 743, 439)
		ElseIf $COMBAT = 16731392 Then
			MouseClick("left", 697, 742)
			Sleep(5000)
			MouseClick("left", 855, 687)
		EndIf
		WinActivate("Shysio")
		$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 255, 1)
		If Not @error Then
			MouseClick("left", $COORD[0], $COORD[1], 1, 0)
			Sleep(500)
			MouseClick("left", 855, 687)
		EndIf
		Sleep(1500)
		WinActivate("Shysio")
		$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 255, 1)
		If Not @error Then
			MouseClick("left", $COORD[0], $COORD[1], 1, 0)
			Sleep(500)
		ElseIf $UP = 16736512 Then
			MouseClick("left", 690, 443)
		EndIf
		$COMBAT = PixelGetColor(1138, 98)
		If $COMBAT = 16736512 Then
			MouseClick("left", 1138, 98)
		EndIf
		$COMBAT2 = PixelGetColor(641, 561)
		If $COMBAT2 = 16736512 Then
			MouseClick("left", 641, 561)
		EndIf
	WEnd
EndFunc
Func CLOSE()
	Exit
EndFunc
 

Evaelis

La Voix de la Sagesse
Administrateur
Marchand
28 Avr. 2010
22,963
436
1,699
Valhalla
Non, si le programme est de lui c'est belle et bien la bonne section sauf... qu'il n'est pas de lui é_é