Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal

davi

Members
  • Content Count

    5
  • Joined

  • Last visited

Community Reputation

0 Neutral

About davi

  • Rank
    Junior Member
  1. no soy tan habilidoso en las pc no se como enviarte un video asi xd
  2. 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.
  3. 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
×
×
  • Create New...