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

zaa2394

Members
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

10 Good

About zaa2394

  • Rank
    Junior Member
  1. Hello Folks, In light of Ankama resurfacing Dofus 1.29 to all users, I'm starting fresh on a new server and I want to get farming leveled up. I've used this script in the past on previous versions of windows with no problems but I just can't seem to get it to work now. All of the script works fine, except I can't get it to actually click. The timing and movements are correct, it just won't click. Thanks in advance for your help. Here's the script I'm using: constResource1 = 1998707; // Color de tu Recurso - Pega el color del recurso Nº1Resource2 = 408389; // Color de tu Recurso - Pega el color del recurso Nº2Resource3 = 491900; // Color de tu Recurso - Pega el color del recurso Nº3CollectTime = 1200; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)varx, y, lvlx, lvly: Integer;function TargetResource1: Boolean;beginResult := FindColor(x, y, Resource1, 0, 0, 800, 600);end;function TargetResource2: Boolean;beginResult := FindColor(x, y, Resource1, 0, 0, 800, 600);end;function TargetResource3: Boolean;beginResult := FindColor(x, y, Resource3, 0, 0, 800, 600);end;function NextResource1: Boolean;beginResult := FindColor(x, y, Resource1, 0, 0, 800, 600);end;function NextResource2: Boolean;beginResult := FindColor(x, y, Resource2, 0, 0, 800, 600);end;function NextResource3: Boolean;beginResult := FindColor(x, y, Resource3, 0, 0, 800, 600);end;procedure Collect;beginif (TargetResource1 or TargetResource2 or TargetResource3) thenbeginMoveMouse(x, y);Wait(100 + Random(200));MouseBtnDown(x, y, mbLeft);Wait(20 + Random(50));MouseBtnUp(x, y, mbLeft);Wait(100 + Random(200));MoveMouse((x + 25), (y + 25));Wait(100 + Random(200));MouseBtnDown((x + 25), (y + 25), mbLeft);Wait(20 + Random(50));MouseBtnUp((x + 25), (y + 25), mbLeft);Wait(3000 + Random(500));Wait(CollectTime); end;end;function NoResource: Boolean;begin Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);end;function FindLevel: Boolean;beginResult := FindColor(lvlx, lvly, 25087, 0, 0, 500, 500);end;procedure LevelUp;beginif FindLevel thenbeginMoveMouse(lvlx, (lvly + 2));Wait(100 + Random(100));ClickMouse(lvlx, (lvly + 2), mbLeft);Wait(100 + Random(100)); end;end;beginCollect;repeatif NoResource thenCollect;if (NextResource1 or NextResource2 or NextResource3) thenCollect;if FindLevel thenLevelUp; until False;end.
×
×
  • Create New...