SCAR Code:
procedure BankToMine;
var TempMouse: integer;
begin
Activateclient;
wait(1000 + random(300));
if not (LoggedIn) then Exit;
TempMouse := MouseSpeed
mousespeed := 7 + random(3)
makecompass('N');
HighestAngle;
wait(500 + random(750))
Setrun(false);
gametab(4);
MouseSpeed := TempMouse;
Roadcolor := FindRoadColor;
wait(500 + random(200));
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
Roadcolor := FindRoadColor;
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 39, 72, 70, -1, 0);
wait(2000+random(800))
fflag(0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 78, 100, 66, -1, 0);
fflag(0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 168, 131, 62, -1, 0);
wait(1700+random(800))
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 195, 145, 58, -1, 0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 191, 157, 62,-1, 0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 189, 153, 58, -1, 0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 188, 139, 60, -1, 0);
if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 195, 148, 60, -1, 0);
FFlag(0)
If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
begin
Mouse(x, y, -1, 0, true)
FFlag(0)
SetRun(true)
Exit;
end;
if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
begin
RadialRoadWalk(RoadColor, 196, 148, 50, -1, 0);
If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
begin
Mouse(x, y, -1, 0, true)
FFlag(0)
SetRun(true)
Exit;
end;
if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
begin
RadialRoadWalk(RoadColor, 196, 130, 40, -1, 0);
If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
begin
Mouse(x, y, -1, 0, true)
FFlag(0)
SetRun(true)
Gametab(4)
Exit;
if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
begin
Logout;
Exit;
end;
end;
end;
end;
end;