need script help

[Jfalko]

[Error] (69:4): Identifier expected at line 68
Compiling failed.
i know this is simple but i'm knew to scripting >.<

[Sockz]

More of the code is gonna be needed to help yuo with this :D

[Jfalko]

and yes this is a shitty script dont judge lol:)
its for a private server so... yeah
program Buyherbs;
Procedure walkdare;
begin
MoveMouse (943, 123);
ClickMouse (943, 123, 1);
Wait(7500);
MoveMouse (906, 114);
ClickMouse (906, 114, 1);
Wait(4000);

end;

Procedure trademan;

var
x, y:Integer;
begin
If FindColorSpiralTolerance (x, y ,65536, 420, 6, 716, 226, 3) or
FindColorSpiralTolerance (x, y ,874099, 420, 6, 716, 226, 3) or
FindColorSpiralTolerance (x, y ,1654094, 420, 6, 716, 226, 3) or
FindColorSpiralTolerance (x, y ,1851474, 420, 6, 716, 226, 3) then
begin
Movemouse(x, y);
clickmouse(x, y, 1);

end;
end;

Procedure buy;

begin
movemouse (507, 133);
clickmouse (507,133, 2);
movemouse (506, 203);
clickmouse (506, 203, 1);
movemouse (507, 133);
clickmouse (507,133, 2);
movemouse (506, 203);
clickmouse (506, 203, 1);
movemouse (507, 133);
clickmouse (507,133, 2);
movemouse (506, 203);
clickmouse (506, 203, 1);
movemouse (727, 40);
clickmouse(727, 40, 1);
wait (2000);
movemouse (837, 358);
clickmouse (837, 358, 1);
wait (2000);
movemouse (556, 415);
clickmouse (556, 415, 1);
wait (5000);
movemouse (895, 64);
clickmouse (895,64, 1);
wait (4000);





begin

repeat;
walkdare;
trademan;
buy;
until(false);
end.

[Jfalko]

oh nvm forgot an end lol