Help with wood cutter

[Dill cats]

Hi i made a wood cutter for a private server. What it does is clicks a magic tree, gathers the logs and burns them. as you can see i have copied and pasted all of the move mouse click mouse functions 28 times or so just to get it to burn the logs that many times. could somebody please show me how to make it like this and make it run the click mouse move mouse go 28 times without copying and pasting.

program New;
var
x,y: Integer;

begin
repeat
FindColor(x,y,11926527,4,24,766,521);
wait(200);
MoveMouseSmooth(x,y);
wait(950);
ClickMouse(x,y,true);
wait(53000);



MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);

MoveMouse(713,444);
Wait(150);
ClickMouse(713,444,true);

MoveMouse(667,444);
Wait(150);
ClickMouse(667,444,true);
until (false);
end.

 

[jdubb]

You could use a for loop:

for i := 1 to 28 do
begin
  //insert code here
end;

If this wasnt a private server i would wag my finger at you using
blind clicking instead of color searches. If you really want to get
into scar scripting at a pro level, I would suggest checking out
villavu.com They have an awesome tutorial section.

-jdubb