SRL Archive - RS3 Money Making/Collecting

you can follow the threads in forum how to setup simba64, and place the memory reading dll in plugin folder,
you can also refer to the memory reading threads for better understanding how to use it.

the link for memory reador .dll
//remove this –< github.com/pp9999/MemReading/releases/tag/0.1

the link to forum.
//remove this –<(/villavu.com/forum/showthread.php?t=116686

zoom completely and make the view like this

make the screen that way that your crystal chest and bank items button are in same place
[ATTACH=CONFIG]28856[/ATTACH]

program Test;
{$loadlib MemoryError}

procedure chest();
begin
repeat
MouseClick([808,627],true);
wait(random(1200,1500));
until(InvItemcount(989)=0);
end

procedure rchest();
begin

clickmaptile([2917+random(-1,1),3451+random(-1,1)]);

repeat
until(PlayerInArea(2917,4,3451,4,0));
end ;

procedure atchest();
begin
clicktile(2917,3451,0,0);
repeat
wait(800)
until(PlayerInArea(2917,1,3451,1,0));
end  ;

procedure ochest();
begin
repeat
MouseClick([808,627],true);
wait(random(1200,1500));
MouseClick([808,627],true);
wait(random(1200,1500));
until(InvItemcount(989)=0);
end


procedure tobank();
begin
 repeat
clickmaptile([2875+random(-1,1),3417+random(-1,1)]);
until(IsPlayersMoving('name')=true);
writeln('near bank');
end  ;

procedure bank();
begin
repeat
FindDobj([66666,66667,66665],3,10,0,true,0,'Bank');
wait(1800);
until(bankopen()=true);
keypress('1');
end  ;


begin
wait(100);
SetupRSReading(True,'namehere',-1,2);

repeat
 if((InvItemcount(989))>0) then
 begin
 rchest();
writeln('rchest');
wait(1500);
atchest();
writeln('achest');
wait(1500);

FindDobj([172],2,5,0,true,0,'Open');
ochest();
writeln('ochest');
wait(1500);
 wait(1500);
end

tobank();
writeln('to bank');
wait(1500);
writeln('bank');
bank();




until(False);
end.

happy botting :)

Is this decent money? Thank you btw!