begin
Counter := 1;
FailSafe := 0;
a := 580;
b := 230;
writeln('Cleaning Herbs')
repeat
Writeln('Counter = ' + IntToStr(Counter));
if (counter = 2, 3, 4, 10, 11, 12, 18, 19, 20, 26, 27, 28) then
a := a + 40;
if (counter = 6, 7, 8, 14, 15, 16, 22, 23, 24) then
a := a - 40;
if (counter = 5, 9, 13, 17, 21, 25) then
b := b + 35;
end;
x := a;
y := b;
writeln('Cleaning Herbs')
MMouse(x, y, Random(30), Random(30));
GetMousePos(x, y);
wait(random(270)+random(70)+random(70)+random(70)) ;
HoldMouse(x, y, mouse_Left);
wait(random(150)+random(75)+random(50));
ReleaseMouse(x, y, mouse_Left);
wait(random(150));
Counter := Counter + 1;
Until(Counter = 29);
end.