Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
Sign in to follow this  
davi

necesito la ayuda de alguien para mejorar mi programa

Recommended Posts

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 

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

 

Share this post


Link to post
Share on other sites
On 6/19/2021 at 11:59 AM, Wanted said:

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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...