
Originally Posted by
Elip007
I don't believe that is really necessary. For the RSPS that I use, Mining is done on one ore and I just add that anti every minute and it does the trick. As long as the mouse moves every now and then, the server wont disconnect you.
System updates, lag out, null, Anyway Here it is:
Simba Code:
function IsloggedIn(): boolean;
var
Login, X, Y: Integer;
begin
Login := BitmapFromString(85, 9, 'meJzNVTEOwjAMTL+RiTXdkRALIx+' +
'AlZ0Nib0zAxsbEnt5AS/gBbygP+Eqo6ImtnEFAaIbmuZi3yVx0tRu' +
's3De+6nQMARCUz+BbuE0nKsef1L2uoA+PUIIQdLGymMz3k7xH2A5e' +
'9hBkCA01r7CN9pHhPnYHbctWQetgF0em7EcMfZpTX5inyLjA1twPT' +
'DaIvKb9ikRG58OsxcahtjDr/CNu9/xSVs0iyVb5CnlVq1E+wq+Vvt' +
'gohyMZEmenjFd5P+xT8hqH4hqbb9u+RJwaUTxcYR0PZfdCzFKOtyH' +
'ue3DEfsQsMBWpvEHIRUzCB+3X8jXIGuffTWMwDojXVrRRuAg5bDfz' +
'boDWTiihw==');
Result := true;
if FindBitmapToleranceIn(Login, X, Y, 284, 346, 480, 387, 195) then
begin
Result := false;
end;
FreeBitmap(login);
end;
Procedure LoginMyPlayer;
var
Button, X, Y: Integer;
begin
Status := ('Logging in');
Button := BitmapFromString(85, 9, 'meJzNVTEOwjAMTL+RiTXdkRALIx+' +
'AlZ0Nib0zAxsbEnt5AS/gBbygP+Eqo6ImtnEFAaIbmuZi3yVx0tRu' +
's3De+6nQMARCUz+BbuE0nKsef1L2uoA+PUIIQdLGymMz3k7xH2A5e' +
'9hBkCA01r7CN9pHhPnYHbctWQetgF0em7EcMfZpTX5inyLjA1twPT' +
'DaIvKb9ikRG58OsxcahtjDr/CNu9/xSVs0iyVb5CnlVq1E+wq+Vvt' +
'gohyMZEmenjFd5P+xT8hqH4hqbb9u+RJwaUTxcYR0PZfdCzFKOtyH' +
'ue3DEfsQsMBWpvEHIRUzCB+3X8jXIGuffTWMwDojXVrRRuAg5bDfz' +
'boDWTiihw==');
if FindBitmapToleranceIn(Button, X, Y, 284, 346, 480, 387, 195) then
begin
mmouse(373, 362, 1, 1);
wait(randomrange(100, 150));
clickmouse2(mouse_Left);
wait(6000 + Random(2500));
end;
end;
Just change the bitmaps and mouse coords
To use in your script before each main thing in procedure you can do:
Simba Code:
if not IsLogged on then
begin
LoginMyPlayer;
end;