Code:
program RSPS_ShittyStealer;
{$I SRL-OSR/SRL.simba}
const
////////////////////////////
/////////SETTINGS///////////
stealamount = 1500;
//////END OF SETTINGS///////
////////////////////////////
var
closeBmp,stealFrom,numberOfWaits,numberOfRandoms,numberOfMisclicks:integer;
procedure steal();
var
x,y: integer;
begin
if findBitmapToleranceIn(stealFrom, x,y,3,57,514,390,145) then
begin
mmouse(x,y,1,1);
wait(150);
clickMouse(x,y,MOUSE_LEFT);
wait(250);
inc(numberOfWaits);
end;
//findStall();
end;
procedure findStall();
var
x,y: integer;
begin
//findColorTolerance(x,y,552966,192,132,347,270,0);
findColorTolerance(x,y,2373181,192,132,347,270,0);
mmouse(x,y,2,2);
wait(150);
clickMouse(x,y, MOUSE_RIGHT);
wait(100);
steal();
end;
function checkInvalidStall():boolean;
var
marketBMP,x,y: integer;
begin
marketBMP := BitmapFromString(60, 6, 'meJyVU0EOwCAI43f7wK77/zN0CQk' +
'h2BY0HAi2gAXN7Hm/ua1lv9mMdQWes+LKkW6FnoORsEWy4NkeLCFS' +
'ec/hl2YyLCNhkNHjMD3zgaySH+oM38JeUabJ/FZnvRsTnVnRdnBQf' +
'7G9YjpwIq04gi52AOo//3eiqPsb56+n9A==');
result := findBitmapToleranceIn(marketBMP, x,y,3,57,514,390,145);
freeBitmap(marketBMP);
end;
procedure cancelOption();
var
cancelBMP,x,y: integer;
begin
if checkInvalidStall then
begin
mmouse(10,10,5,5);
inc(numberOfMisclicks);
//numberOfWaits = numberOfWaits-1
end;
end;
function checkRandom():boolean;
var
randomDTM,x,y: integer;
begin
randomDTM := DTMFromString('mbQAAAHicY2VgYDjHyMCwGYi/A/FhIH4JxN4MCOwH' +
'xK5A/P8/JmZlwMSMWDAYAAA7+w+3');
result := findDTM(randomDTM, x,y, 413,59,514,85);
freeDTM(randomDTM);
end;
procedure closeRandom();
var x,y: integer;
begin
mmouse(467, 73, 5, 2);
wait(100);
clickMouse(x,y,MOUSE_LEFT);
wait(250);
end;
function misclick():boolean;
var noOption,x,y: integer;
begin
noOption := BitmapFromString(12, 40, 'meJy9klEKwDAIQ3u7XWC/u/8x3E' +
'Amklixm5v40cojDTVjYG37cTWNHzLWOZNo+nmdYc2QAcHKW98VuAq' +
'7S6erRQSuMNGhd6UM+OxlzAYwcpcx/uD5hFnVgbIdMQ8Af2my5Z/3' +
'Xo9HGAleYoL5P5klnJNQZ3hBM5OchJc64lIKjJ5Pl7zviA==');
result := findBitmapToleranceIn(noOption, x,y,3,57,514,390,145);
freeBitmap(noOption);
end;
begin
stealFrom := BitmapFromString(72, 7, 'meJy9VEEOwCAI83d+YNf9/xldopE' +
'sIBVxWeOBEEJbRAGUhnrdEqChx7kT74CBNBdpm1Z16EvK/rGGF3iS' +
'F8d91bEtaWpyQZbObqaa7TLP2a19qYlTq4BY8+imr09pntYUg+VFq' +
'/62redLLQlRNRXvDXPr5+EuTnz1WXlqvc2MDzP+vr719QBvV/cz');
closeBmp := BitmapFromString(67, 6, 'meJydlN0KwjAMhXM1fMQxxvyZcyI' +
'i4pvqjY9Ts532NGsrDsuhhIwm52vKqmpTLSXOicjz9e66M7XdXcbx' +
'QQ2n+0/1xxu1P1wTaRfdtSxl21nBT9sOqqbpi6rrvXc+KwfhJwvCp' +
'Iq2mbH+ISStfx+LIKPFcbaAAAUQZojAGP4lLIKgzrRjOUeKybZZoI' +
'jJjAUFk5hEvCic5YBi9wCiwbSHLhFNBCDwnzwtzpRlNU4mshhHZjU' +
'BASBi798EaMSORKON5I1ZOg+7AsSbn0G883Atybvybr+AcM9B4nRM' +
'0t5hEYSD+BvEDoIBV/FprQexo8lBkj8Ay34ApIa7xQ==');
clearDebug();
//setupSRL();
mouseSpeed := 20;
repeat
if checkRandom then
begin
closeRandom();
inc(numberOfRandoms);
//numberOfWaits = numberOfWaits-1
end;
if misclick then
begin
mmouse(10,10,5,5);
inc(numberOfMisclicks);
end;
cancelOption();
wait(540);
findStall();
wait(500);
//inc(numberOfWaits);
clearDebug();
writeLn('---------------------------------------');
writeLn(' Stocky''s Shitty Stealer ');
writeLn('+++++++++++++++++++++++++++++++++++++++');
writeLn('Steal Attempts: ' + intToStr(numberOfWaits) + '/' + intToStr(stealamount));
writeLn('Guaranteed Misclicks: ' + intToStr(numberOfMisclicks));
writeLn('Random Events: ' + intToStr(numberOfRandoms));
writeLn('---------------------------------------');
until numberOfWaits = stealamount;
freeBitmap(stealFrom);
end.