Dofus Bot (Código Fonte + Executavél)

[Valaka 0]

Tópico Fechado

Motivo: Tópico Ressucitado

Algum comentário foi feito neste tópico após 15 dias de inatividade (sem receber comentário), evite realizar tais comentários, para tirar dúvidas sobre o conteúdo procure diretamente o autor (esta regra não vale para tópicos fixos).

 

Atenciosamente, Equipe Web Cheats!

--------------------------------------------------------------------------------------------

 

 

Bot Dofus 2.0 (Sadida Dano+7char) MAPA FIXO

 

Não sei se ja lançaram na net algum bot que funcione de verdade, mais quando entrei na faculdade, comecei a estudar programação e como eu jogava, comecei a estudar sobre

a possibilidade de criar meu próprio bot, consegui muita grana na época, faz 2 anos, só que me pegaram e perdi tudo. Então hoje resolvi postar pra galera que se interessa nele,

infelizmente, é bom você estuda-lo um pouco, mais funciona muito bem. Vou postar aqui onde baixar IDE, onde pesquisar os comandos usados no código;

 

Se o pessoal curtir e tiver muitas duvidas eu crio uma page no face pra ajudar, mais só se tiver necessidade. ABÇS

 

Site do Programa:

 

-http://www.autoitscript.com/site/autoit/

 

-Funções em geral:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Dica:

 

PixelSearch= Cor UNICA do mob, isso você terá um pouco de trabalho mais nada que exija mais de 1 hora...

WinActivate("Marolado")= Nome do personagem, que fica no nome da janela...

 

CODIGO FONTE

 

HotKeySet("{s}","_Exit")

 

 

While 1

 

ProcurandoMobMapaFixo()

PosicaoLuta()

EntrarLutaBot0()

CharColetoresDarPronto()

VerifJanelasParaComecarLuta()

CharBattlePoderes()

FechandoResultadodasLutas()

VerificarUpagem()

 

WEnd

 

 

 

; Funcao Procurar Mob

 

Func ProcurandoMobMapaFixo()

WinActivate("Gigames")

MouseClick("left" ,715, 659, 2)

sleep(1000)

MouseClick("left" ,715, 659, 2)

Do

 

$Variable = PixelSearch( 116, 64, 897, 588, 0xA00101) ; Char Atacante espaço para pegar mobs/ cor aracne

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

MouseClick("left")

Else

$Variable = PixelSearch( 116, 64, 897, 588, 0xAA5E11) ;Char Atacante espaço para pegar mobs/ cor goball

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

MouseClick("left")

Else

$Variable = PixelSearch( 116, 64, 897, 588, 0x574D37) ;Char Atacante espaço para pegar mobs/ cor mosquito

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

MouseClick("left")

Else

$Variable = PixelSearch( 116, 64, 897, 588, 0xBC6832) ;Char Atacante espaço para pegar mobs/ tofu

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

MouseClick("left")

EndIf

EndIf

EndIf

EndIf

Sleep(3000)

$Variable = PixelSearch( 116, 64, 958, 635, 0x38302C)

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

send("{ESC}")

EndIf

$Variable2 = PixelSearch( 458, 623, 555, 652, 0xFD7319)

If IsArray($Variable2) = True Then

endif

Until IsArray($Variable2) = True

EndFunc

 

;Funcao Colocar Bot nas Lutas

 

Func EntrarLutaBot0()

 

WinActivate("Marolado")

 

 

$Variable = PixelSearch( 97, 45, 958, 635, 0x78611C) ; Cor da Espada

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

Sleep(500)

MouseClick("left")

Else

$Variable = PixelSearch( 97, 45, 958, 635, 0x83351E) ; Cor da Espada

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

Sleep(500)

MouseClick("left")

EndIf

EndIf

 

WinActivate("Altrine")

MouseClick("left")

 

WinActivate("Skolance")

MouseClick("left")

 

WinActivate("Mortalkinho")

MouseClick("left")

 

WinActivate("Jaundulalis")

MouseClick("left")

 

 

EndFunc

 

; Funcao Usar Poderes na Luta

 

Func CharColetoresDarPronto()

WinActivate("Marolado")

Sleep(2000)

send("{F1}")

 

 

WinActivate("Altrine")

 

send("{F1}")

 

WinActivate("Skolance")

 

send("{F1}")

 

WinActivate("Mortalkinho")

 

send("{F1}")

 

WinActivate("Jaundulalis")

 

send("{F1}")

 

WinActivate("Gigames")

 

Send("{F1}")

 

EndFunc

 

; Dar Pronto Char Coletores

 

Func CharBattlePoderes()

WinActivate("Gigames")

Do

Do

Sleep(2000)

$Variable2 = PixelSearch( 458, 623, 555, 652, 0xFD7319)

If IsArray($Variable2) = True Then

MouseMove($Variable2[0], $Variable2[1], 1)

EndIf

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF) ; Cor do Trófeu

If IsArray($Variable3) = True Then

EndIf

Until IsArray($Variable3) or IsArray($Variable2) = True

 

$Variable2 = PixelSearch( 458, 623, 555, 652, 0xFD7319)

If IsArray($Variable2) = True Then

MouseMove($Variable2[0], $Variable2[1], 1)

 

$Variable = PixelSearch( 213, 578, 922, 624, 0x3024D2) ; Cor do Char Battle

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

EndIf

 

send("{1}")

sleep(700)

MouseClick("left")

send("{2}")

sleep(700)

MouseClick("left")

send("{3}")

sleep(700)

MouseClick("left")

sleep(700)

send("{F1}")

Sleep(2000)

EndIf

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF) ; Cor do Trófeu

If IsArray($Variable3) = True Then

EndIf

Until IsArray($Variable3) = True

EndFunc

 

; Funcao Fechar Resultado das Lutas

 

Func FechandoResultadodasLutas()

 

Sleep(3000)

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

WinActivate("Marolado")

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

WinActivate("Altrine")

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

WinActivate("Skolance")

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

WinActivate("Mortalkinho")

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

WinActivate("Jaundulalis")

$Variable3 = PixelSearch( 120, 171, 125, 204, 0xFFFFFF)

If IsArray($Variable3) = True Then

send("{ESC}")

EndIf

 

EndFunc

 

Func VerificarUpagem()

WinActivate("Marolado")

Sleep(2000)

$Variable = PixelSearch( 116, 64, 897, 588, 0x38302C)

If IsArray($Variable) = True Then

send("{ESC}")

EndIf

WinActivate("Altrine")

$Variable = PixelSearch( 116, 64, 897, 588, 0x38302C)

If IsArray($Variable) = True Then

send("{ESC}")

EndIf

WinActivate("Skolance")

$Variable = PixelSearch( 116, 64, 897, 588, 0x38302C)

If IsArray($Variable) = True Then

send("{ESC}")

EndIf

WinActivate("Mortalkinho")

$Variable = PixelSearch( 116, 64, 897, 588, 0x38302C)

If IsArray($Variable) = True Then

send("{ESC}")

EndIf

WinActivate("Jaundulalis")

$Variable = PixelSearch( 116, 64, 897, 588, 0x38302C)

If IsArray($Variable) = True Then

send("{ESC}")

EndIf

EndFunc

 

Func VerifJanelasParaComecarLuta()

Sleep(2000)

$Variable = PixelSearch( 116, 64, 958, 635, 0x38302C) ; testar botão ESC

If IsArray($Variable) = True Then

MouseMove($Variable [0], $Variable[1], 1)

send("{ESC}")

EndIf

EndFunc

 

Func PosicaoLuta()

sleep(1000)

MouseClick("left", 557, 509, 1)

MouseClick("left", 652, 494, 1)

EndFunc

 

Func _Exit()

Exit

EndFunc

[mannrichbr 0]

eu fiz um curso de programação, e entendi um pouco como funciona, mas vc poderia fazer um video mostrando?

[†HellHound† 0]

:)

Post Punido pela Moderação!

 

Post Punido pela Moderação!