SCAR Code:
procedure walktothebank;
begin
RoadColor:=FindRoadColor;
GetSymbolColor(x,y,'mining site');
mmouse(x,y,3,3);
cmouse(x,y,3,3,true);
wait(5000+random(500));
RadialWalk(roadcolor,0,90,72,-2,2);
RadialWalk(roadcolor,380,340,50,-2,2);
RadialWalk(roadcolor,380,340,50,-2,2);
RadialWalk(roadcolor,380,340,50,-2,2);
//massive freak out happens here or close to here
RadialWalk(roadcolor,380,340,50,-2,2);
RadialWalk(roadcolor,270,540,72,-2,2);
RadialWalk(roadcolor,260,280,72,-2,2);
GetSymbolColor(x,y,'bank');
mmouse(x,y,3,3);
cmouse(x,y,3,3,true);
end;
procedure depositwachagot;
begin
OpenBank;
DepositAll;
CloseBank;
end;
begin
setupsrl;
walktothebank;
depositwachagot;
end.