Ajuda com source de BOT DOFUS

[Hitsugaya_Toushiro 0]

Bom galera, eu tava dando uma procurada nos bots pra dofus e encontrei uma source de um bot que era usado na versão 1.29 do dofus e queria saber se essa source é do delphi e quem poderia me ajudar a transformar em um bot pra dofus 2.0

 

Source:

var

x, y, lvlx, lvly: integer;

 

function Targetwheat1 : Boolean;

begin

if(FindColor(x, y, 3524582, 0, 0, 800, 600))then result:= true //<--- copy color number over 1232117

end;

 

function Targetwheat2 : Boolean;

begin

if(FindColor(x, y, 679825, 0, 0, 800, 600))then result:= true

end;

 

function Nextwheat1 : Boolean;

begin

if(FindColor(x, y, 708332, 0, 0, 800, 600))then result:= true

end;

 

function Nextwheat2 : Boolean;

begin

if(FindColor(x, y, 1061237, 0, 0, 800, 600))then result:= true

end;

 

 

 

Procedure Harvest;

begin

if (Targetwheat1)or(Targetwheat2) then

MoveMouseSmooth(x, y);

Wait(100+random(200));

HoldMouse(x, y, true);

Wait(20+random(50));

ReleaseMouse(x, y, true);

Wait(100+random(200));

MoveMouseSmooth(x+27, y+38);

 

Wait(100+random(200));

HoldMouse(x+27, y+38, true);

Wait(20+random(50));

ReleaseMouse(x+27, y+38, true);

Wait(3000+random(500));

Wait(12000); //<--- However long it takes you to chop wheat!

end;

 

function nowheat : Boolean;

begin

if(FindColor(x, y, 1683891, 0, 0, 800, 600))then result:= false

end;

 

function FindLevel : boolean;

begin

result := false;

If(FindColor( lvlx, lvly, 25087,0,0,500,500))then result := true

end;

 

 

 

Procedure LevelUp;

begin

If(FindLevel= true)then

MoveMouseSmooth(lvlx, lvly+2);

Wait(100+random(100));

ClickMouse(lvlx, lvly+2, true);

Wait(100+random(100));

end;

 

begin

harvest;

repeat

if (nowheat) then

harvest;

if(nextwheat1)or(nextwheat2)then

harvest;

if(FindLevel)then

LevelUp;

until(false);

end.

 

e tem uma outra coisa

 

function Targetwheat1 : Boolean;

begin

if(FindColor(x, y, 3524582, 0, 0, 800, 600))then result:= true //<--- copy color number over 1232117

end;

 

Aparentemente era um bot pra minerar. Preciso muito de ajuda para transformar em um bot para 2.0

 

Fonte:

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

• Entre
• ou
• Cadastre-se

[lukkas_fs 0]

Se conseguir me avisa nao entendo nada disso

[caio1997loco 2]

Se conseguir me avisa nao entendo nada disso

 

Se não entende, ve se não posta aki e para de post inutil seu retardaaaaa.

 

Desculpe amigo, eu não tenho ideia de como faz, nunca mexi com algo do tipo.

[Gustavolostforever 0]

Bom gente, eu peguei esse e editei bastante, até que cheguei a um resultado, nao tao satisfatório e talz. Eu consegui construir um Q fica em um mapa só para sadida combo com set de pelo menos 30 em danos em um mapa de incarnam, com o combo todo lvl 5, para resolução 1024x728, cofigurei pra entrar com 3 contas tambem. Eu testei e fikou bom, mas nao perfeito. Se kiserem eu posto depois, mas algum programador ae vai ter q me dar uma moral. Obrigado

[maniacosbr 0]

Bom gente, eu peguei esse e editei bastante, até que cheguei a um resultado, nao tao satisfatório e talz. Eu consegui construir um Q fica em um mapa só para sadida combo com set de pelo menos 30 em danos em um mapa de incarnam, com o combo todo lvl 5, para resolução 1024x728, cofigurei pra entrar com 3 contas tambem. Eu testei e fikou bom, mas nao perfeito. Se kiserem eu posto depois, mas algum programador ae vai ter q me dar uma moral. Obrigado

NOSSAAAAAAAAAAAA QUE MENTIRA --' APRENDE A MENTIR'.' :bebum:

[Gustavolostforever 0]

NOSSAAAAAAAAAAAA QUE MENTIRA --' APRENDE A MENTIR'.' :bebum:

 

 

Cara, com vc eu nem preciso discutir... vou colar só uma parte do meu q eu fiz aki pra vc fikar com inveja ok??

 

 

var

x, y: integer;

 

const

Button2= 1790395;

Magiausada1= 5796550;

magiausada2= 11514812;

magiausada3= 1131622;

cordosad= 2059414;

Monster1= 16574462;

Monster2= 793511;

Monster3= 9153470;

Monster4= 12750465;

Monster5= 11927023;

Monster6= 9043454;

Monster7= 2608632;

Monster8= 11231434;

Monster9= 7105782;

Monster10= 6813131;

//piwi rosa, rosa demoniaca, dandélio, piwi azul, piwi amarelo, tofu, girassol,piwi violeta, piwi vermelho, piwi verde;

barradedigitar= 2632239;

Botaopronto= 2521048;

botaopassar= 2831447;

escolhercasa= 8925;

escolhercasa2= 14492160;

Botaofechar= 1467377;

cordaespadinha= 12495776;

corbatalha= 2961460;

 

 

Function Variavel1 : Boolean;

begin

if(FindColor(x, y, Button2, 0, 0, 1024, 768))then result:= true

end;

 

Function huntral : Boolean;

begin

if(FindColor(x, y, cordaespadinha, 0, 0, 1024, 768))then result:= true

end;

 

Function acorbatalha2 : Boolean;

begin

if(FindColor(x, y, corbatalha, 115, 51, 911, 615))then result:= false

end;

 

Function Luta1 : Boolean;

begin

if(FindColor(x, y, escolhercasa, 0, 0, 1024, 768))then result:= true

end;

 

Function Luta3 : Boolean;

begin

if(FindColor(x, y, escolhercasa2, 0, 0, 1024, 768))then result:= true

end;

 

Function descansando : Boolean;

begin

if(FindColor(x, y, barradedigitar, 0, 0, 1024, 768))then result:= true

end;

 

Function fecharrecurso : Boolean;

Begin

if(FindColor(x, y, Botaofechar, 0, 0, 1024, 768))then result:= true

end;

 

Function acharminhacor : Boolean;

Begin

if(FindColor(x, y, cordosad, 0, 0, 1024, 768))then result:= true

end;

 

Function Passaravez : Boolean;

begin

if(FindColor(x, y, botaopassar, 0, 0, 1024, 768))then result:= true

end;

 

 

Ainda acha que to mentindo ??

Kero ajuda pra terminar pois nao sou suficientemente bom em programação pra terminar sozinho, se ajudarem talvez a gente consiga chegar em um resultado bom.

Flws