simple auto thiever

[zluo]

well i basically made a simple auto thiever that would work on servers that are like grinderscape. it depends on co-ordinates so here it is.

i was gonna go in depth with a simple random event detection, picking selective stalls and compass fixing but meh
{$i SRL/SRL.simba}

const
(* Thiever Settings *)
StallX = 277;
StallY = 93;
StallRespawnsEvery = 3400;

(* MainScreen *)
MainX1 = 5;
MainY1 = 5;
MainX2 = 518;
MainY2 = 338;

var
x, y, Steal, Moving:integer;
A:extended;


procedure load;
begin
Steal := BitmapFromString(18, 6, 'meJxjYGCYuuMYHDEgAazimILEs3H' +
'JoinAqguXS4ixC9NTeNj4rcPqQgCctoCb');

Moving := BitmapFromString(4, 22, 'meJzj4BXg4BVQ0tCNyypg4eIEIgi' +
'bmZ0DiDDFmTjYgYh4cWlNLSCCsJ09w2y9giBsGXXtQcUGAPMC OGA=');
end;

procedure free;
begin
FreeBitmap(Steal);
FreeBitmap(Moving);
end;

procedure Thieve;
begin
repeat
Mouse(StallX, StallY, 0, 0, False);
if not FindDeformedBitmapToleranceIn(Steal, x, y, MainX1, MainY1, MainX2, MainY2, 2, 0, false, A) and
(FindBitmapToleranceIn(Moving, x, y, MainX1, MainY1, MainX2, MainY2, 2)) then
MMouse(x+(15), y, 0,2);
until FindDeformedBitmapToleranceIn(Steal, x, y, MainX1, MainY1, MainX2, MainY2, 10, 0, false, A);
Mouse(x+(9), y+(3), 0, 0, True);
MMouse(StallX, StallY,0,0);
writeln('Successful thieve.')
wait(StallRespawnsEvery);
end;
end;

procedure Main;
begin
repeat
Thieve;
until(false);
end;

begin
ClearDebug;
SetUpSrl;
ActivateClient;
load;
addonterminate('free');
Repeat
Main;
Until(false);
end.

[alw98]

nice script. better than mine:S

[SHUM]

Mouse just stays there and doesn't do anything?

[zluo]

Mouse just stays there and doesn't do anything?

please dont use this script anymore lol. this is possibly the worst script i have ever made and might be out of date. might as well remove it soon. and i think there are better theivers out there for rsps