SCAR Code:
procedure MineToBank;
var
xx,yy: Integer;
begin
if not (LoggedIn) then Exit;
if (invfull) then
activateclient;
wait(3000 + random(300));
makecompass('N');
HighestAngle;
Setrun(false);
gametab(4);
Roadcolor := FindRoadColor;
wait(500 + random(200));
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 64, 76, 67, -1, 0);
RadialRoadWalk(RoadColor, 337, 377, 58, -1, 0);
wait(3000);
repeat
RadialRoadWalk(RoadColor, 337, 377, 58, -1, 0);
until FindSymbol(x, y, 'Quest') or FindSymbol(xx, yy,'Clothes Shop')
MarkTime(Timer);
begin
if FindSymbol(x, y, 'Quest') or FindSymbol(xx, yy,'Clothes Shop')then
repeat
RadialRoadWalk(RoadColor, 332, 370, 35, -1, 0);
fflag(0)
until not (FindSymbol(x, y, 'Quest')) or (FindSymbol(xx, yy,'Clothes Shop'))or(TimeFromMark(Timer)>(38000))
if(TimeFromMark(Timer)>(48000)) then
begin
Logout;
Exit;
end;
if not (LoggedIn) then Exit;
RadialRoadWalk(RoadColor, 332, 370, 39, -1, 0);
MakeCompass('W')
RadialRoadWalk(RoadColor, 405, 336, 58, -1, 0);
RadialRoadWalk(RoadColor, 405, 336, 35, -1, 0);
Exit;
end;
end;