Hermen Okey 
Main_Ftw I don't wanna 
Problems with Tick (when get error image).
Code:
program skriptas;
procedure ScriptTerminate;
begin
GetSelf.WindowState := wsNormal;
end;
Var
R, New_Tab, Tick, x, y: Integer;
begin
New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
'8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
'lQlng=');
Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
'7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
repeat
GetSelf.WindowState := wsMinimized;
Wait(3000);
HoldMouse(515, 145, False);
ReleaseMouse(515, 145, False);
Wait(800);
If FindBitmap(New_Tab, X, Y) Then
ClickMouse(X, Y, True);
Wait(19000);
HoldMouse(395, 62, True);
ReleaseMouse(395, 62, True);
Inc(R);
If FindBitmap(Tick, X, Y) Then // This part don't work when it's writed after "Inc(R);"//
ClickMouse(970, 570, True);
ClickMouse(690, 705, True);
Until(R=90000);
end.
This works, but...
Code:
program skriptas;
procedure ScriptTerminate;
begin
GetSelf.WindowState := wsNormal;
end;
Var
R, New_Tab, Tick, x, y: Integer;
begin
New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
'8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
'lQlng=');
Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
'7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
repeat
GetSelf.WindowState := wsMinimized;
Wait(3000);
HoldMouse(515, 145, False);
ReleaseMouse(515, 145, False);
Wait(800);
If FindBitmap(New_Tab, X, Y) Then
ClickMouse(X, Y, True);
Wait(19000);
HoldMouse(395, 62, True);
ReleaseMouse(395, 62, True);
If FindBitmap(Tick, X, Y) Then
ClickMouse(970, 570, True); // It press this always. I need to press this only if Tick found. //
ClickMouse(690, 705, True); // It press this always. I need to press this only if Tick found. //
Inc(R);
Until(R=90000);
end.
I use this:
If FindBitmap(Tick, X, Y) Then
ClickMouse(970, 570, True);
ClickMouse(690, 705, True);
Because this don't press error image that I needed. Maybe this is because of Tick image change color when mouse cursor is on error image.
If FindBitmap(Tick, X, Y) Then
ClickMouse(X, Y, True);