My First ever script!!!

[pee on me]

sry for sounding nooby, but i made my first ever script and wanted to share it...it's and autoclicker, and i didn't make it from a tut or anything, no copy & paste!

program AutoClicker;

var
i: Integer;

begin
 i:= 0;
repeat
 i:= i + 1;
 clickmouse(x,y,true);//coordinates
 wait(integer)//wait time
 until(i >= 25);//how many times you click
end.

plz rate out of 10 for it being my first script

 

[tkmstr1009]

3/10; It works but it laggs/hangs sometimes

Good job and keep on trucking

 

[pee on me]

what is hanging?
and i just learned how to use procedures so I tried them out with a game called Invasion 3...here is the code

program Invasion3;

var
i: Integer;

procedure ArcherBuy;
begin
i:= 0;
wait(1000)
repeat
 i:= i + 1;
 clickmouse(96,253,true);
 wait(1);
until(i >= 150);
end;

procedure StartGame;
begin
movemouse(393,296);
wait(700);
clickmouse(393,296,true);
end;

procedure ArcherSend;
begin
i:= 0;
repeat
 i:= i + 1;
 clickmouse(153,322,true);
until(i >= 100);
wait(43000)
end;

procedure SaveAndCont;
begin
wait(1000)
movemouse(273,292)
wait(1000)
clickmouse(273,292,true)
wait(1000)
movemouse(266,316)
wait(500)
clickmouse(266,316,true)
wait(500)
end;

procedure WholeThing;
begin
ArcherBuy
wait(1000)
StartGame
wait(1000)
ArcherSend
wait(1000)
SaveAndCont
wait(2500)
end;

begin
i:= 0
repeat
 i:= i + 1
 WholeThing
until(i >= 5)
end.

at the end, the part where i actually run WholeThing, i programmed it to repea but every time i run it, it will work fine, and then when it comes to the last part it will finish and not repeat...Could someone tell me if i am doing the repeat thing wrong