Here's the script verbatim:
program Cursebot;
var
x, y: Integer;
begin
repeat;
clickmousebox(1035,317,1045,329,true);
if(FindColor(x, y, 3423400,329,3,840,338))then;
ClickMousebox(x, y,x+1,y+1, true);
wait(x+600);
else(clickmousebox(1074,2,1086,16,true)...