Code:
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