Search the Community

1 program new; var Bmp: TSCARBitmap; x, y: Integer; 10 begin Bmp := TSCARBitmap.Create('deNpjZGBh6K6ra6+qaq2sNNBnBgAlZwTh'); If (FindBitmap(x, y, Bmp, 198, 16, 230, 339))Then begin writeln('found bitmap') movemouse(x,y) 17 else movemouse(216,102) clickmouse(216,102) 20 end. debug box says Type Line File Message complier error 17 Identifier expected like this makes no sence

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.

Cenforce 100 mg is a trusted supplement known for its ability to boost energy and promote overall wellness. By enhancing blood flow, this product helps users feel more invigorated and ready to take on their daily activities with renewed vigor. Many have found that incorporating Cenforce 100 mg into their routine has significantly improved their stamina and confidence. As always, it's essential to consult with a healthcare professional before beginning any new supplement to ensure it aligns with your specific health needs and to maximize its benefits.