{
This script picks color of wheat and map point in Dofus every 32 minutes.
It helps to make advanced scripts avoiding ankama anti-bot system of color changing.
To avoid disconnecting this script also spams some message every 4 minutes.
You may run it during night time and collect all color changes for wheat and map points during this time.

1. Start Dofus.
2. Make changes in constant part.
3. Run script.
4. In the morning look at bottom part of SCAR you will see a lot of color pickers, make your conclusions.
5. enjoy :)
}
program Color_Picker_map_points_and_wheat;
var
j : integer;

const
x = 33;  // x coordinate of message line in DOFUS
y = 599; // y coordinate of message line in DOFUS
picker_x = 100; // x coordinates of color picker button in SCAR
picker_y = 100; // y coordinates of color picker button in SCAR
map_x = 100; // x coordinates of moving map point in DOFUS
map_y = 100; // y coordinates of moving map point in DOFUS
wheat_x = 100; // x coordinates of wheat
wheat_y = 100; // y coordinates of wheat

label
start;

procedure map_points; // picking map point color
begin
     movemousesmooth(picker_x, picker_y);
     wait(100+random(50));
     clickmouse(picker_x, picker_y, true);
     wait(1000+random(200));
     movemousesmooth(map_x, map_y);
     wait(500+random(50));
     clickmouse(map_x, map_y, true);
     wait(1000+random(200));
end;

procedure wheat; // picking wheat color
begin
     movemousesmooth(picker_x, picker_y);
     wait(100+random(50));
     clickmouse(picker_x, picker_y, true);
     wait(1000+random(200));
     movemousesmooth(wheat_x, wheat_y);
     wait(500+random(50));
     clickmouse(wheat_x, wheat_y, true);
     wait(1000+random(200));
end;

procedure message; // just to disable disconnecting
begin
     movemouse(x,y);
     wait(1000+random(200));
     clickmouse(x,y, true);
     wait(1000+random(200));
     sendkeys('k'); // your message
     wait(1000+random(200));
     sendkeys(chr(13));
     wait(1000+random(200));
end;


begin
ClearDebug;
start:
WriteLn('Wheat color');
wheat;
WriteLn('Map point color');
map_points;
for j:=1 to 8 do
   begin
        message;
        wait(240000+random(2000)); // 4 minutes of waiting between two messages
   end;

goto start;
end.