Script clicks top right

[HarryJames]

program UCAuto;
var x,y,Bitmap,clicks:integer;

procedure DeclareBMPS;
begin
Bitmap := BitmapFromString(15, 5, 'beNozj1q9erWOOQoJQVhFCC' +
'pGA0SajCZIoTOQXaIDAOzxYSQ=');
end;


procedure ClickBMPS;
begin
movemousesmooth(x,y)
clickmouse(x,y,true)
end;


Procedure FindBMPS;
begin
if(FindBitmap(Bitmap,x,y))then
ClickBMPS;
clicks:=clicks + 1;
Writeln('Total clicks = ' + IntToStr(clicks) + '.')
end;

begin
repeat
DeclareBMPS;
FindBMPS;
wait(80000)
until(false)
end.




After about 4 clicks it just goes to the top right of the screen. Its for a game called unification wars and has an antiscript. Sometimes it just replacesthe button with a new one saying click here if your a script. That stops just static clicking...

[tls]

oops... didn't fully read...

[noidea]

It didn't find the bitmap.

[isaiah6660]

if you selected the screen and then it got closed out or something similar then that will happen

[noidea]

Try this instead,
program UCAuto;
var
x, y, Bitmap, clicks : integer;

procedure DeclareBMPS;
begin
Bitmap := BitmapFromString(15, 5, 'beNozj1q9erWOOQoJQVhFCC' +
'pGA0SajCZIoTOQXaIDAOzxYSQ=');
end;


procedure ClickBMPS(var x, y: Integer);//c what i did?
begin
movemousesmooth(x,y)
clickmouse(x,y,true)
end;


Procedure FindBMPS;
begin
if(FindBitmap(Bitmap,x,y))then
begin//neead another begin here
ClickBMPS;
clicks:=clicks + 1;
Writeln('Total clicks = ' + IntToStr(clicks) + '.')
end;
end;

begin
repeat
DeclareBMPS;
FindBMPS;
wait(80000)
until(false)
end.

[supersayian2224]

When it goes to the top right to the exit part sometimes it's because you haven't identified the client window.