Bot Dofus

    Publicités

Users Who Are Viewing This Thread (Total: 1, Members: 0, Guests: 1)

imants

Nouveau membre
Nov 20, 2011
1
0
301
33
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
V
Ancien staff
Apr 28, 2010
22,949
468
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 é_é