necesito la ayuda de alguien para mejorar mi programa

[davi]

Hola gente un saludo, espero puedan ayudarme tengo un programa el cual uso en dofus para recolectar mineral un bot en pocas palabras el cual me gustaria poner mas rapido por favor si alguien puede ayudarme se lo agradeceria 

 

[Wanted]

Do you have a video of the actions you're trying to replicate?

[davi]

tengo el programa el cual quisiera que fuera mas rapido sacar todo su potencial ya que muchos me han dicho que puede ser mas rapido de lo que es, un programa de recoleccion automatica y en el ambito donde lo uso no solo yo uso este tipo de programas si no otros usuarios ......... este es el programa del cual te hablo, te agradeceria que lo editaras por mi.                                                                                                                                                                                                                                                                                                                                                                                                                    

const
Resource1 = 13679268; // Color de tu Recurso - Pega el color del recurso Nº1
Resource2 = 13680040; // Color de tu Recurso - Pega el color del recurso Nº2
Resource3 = 11970197; // Color de tu Recurso - Pega el color del recurso Nº3
CollectTime = 20000; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)

var
x, y, lvlx, lvly: Integer;

function TargetResource1: Boolean;
begin
Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource2: Boolean;
begin
Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource3: Boolean;
begin
Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

function NextResource1: Boolean;
begin
Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function NextResource2: Boolean;
begin
Result := FindColor(x, y, Resource2, 0, 0, 800, 600);
end;

function NextResource3: Boolean;
begin
Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

procedure Collect;
begin
if (TargetResource1 or TargetResource2 or TargetResource3) then
begin
MoveMouse(x, y);
Wait(700 + Random(700));
MouseBtnDown(x, y, mbLeft);
Wait(1 + Random(1));
MouseBtnUp(x, y, mbLeft);
Wait(1 + Random(1));
MoveMouse((x + 1), (y + 1)); 
Wait(1 + Random(1)); 
MouseBtnDown((x + 25), (y + 25), mbLeft); 
Wait(1+ Random(1)); 
MouseBtnUp((x + 25), (y + 25), mbLeft);  
Wait(1 + Random(1));
Wait(CollectTime); 
end;
end;

function NoResource: Boolean;
begin 
Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);
end;

begin
Collect;
repeat
if NoResource then
Collect;
if (NextResource1 or NextResource2 or NextResource3) then
Collect;
until False;
end.
 

[Wanted]

Sube un video en algún lugar de esto en acción

[davi]

On 6/19/2021 at 11:59 AM, Wanted said:

Sube un video en algún lugar de esto en acción

 

[davi]

no soy tan  habilidoso en las pc no se como enviarte un video asi xd

[davi]

On 6/16/2021 at 7:53 PM, davi said: