Repeating help DX

[pertinate]

I wrote this script for this Runescape Private Server I play, and it works fine, but when it repeats it again, it gets stuck on repeating the first procedure. Could anyone help me get it to repeat endlessly?

 

 

 

program New;
var
Count : Integer;
var
Counts : Integer;

procedure pots;
begin
Inc(Count);
begin
 sleep(200);
 ClickWindMouse(671, 469, 10, 10, true);
begin
sleep(200);
 ClickWindMouse(710, 473, 10, 10, true);
end;
end;
 end;

procedure bank;
begin
Inc(Counts);
begin
 sleep(1000);
 ClickWindMouse(279, 158, 10, 10, true);
begin
 sleep(1000);
 ClickWindMouse(583, 259, 10, 10, true);
begin
 sleep(1000);
 ClickWindMouse(98, 106, 10, 10, false);
begin
 sleep(1000);
 ClickWindMouse(95, 184, 10, 10, true);
begin
 sleep(1000);
 ClickWindMouse(490, 66, 10, 10, true);
end;
end;
end;
end;
end;
end;


begin
repeat
repeat
pots; 
until(Count = 27);
repeat
bank;
until(Counts = 1);
until(false);
end.

[LordJashin]

Add this before the until(false);

 

[sCAR]

Count := 0;

Counts := 0;

[/sCAR]

[pertinate]

...I... love you. <3