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

Dofus 1.29 Farming Script on Windows 10

Recommended Posts

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.

 

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...