procedure WalkBank;
var
Tol, c, f, p: Integer;
begin
if (not (LoggedIn)) then Exit;
MarkTime(f);
if (MMFlax = 0) then
begin
MMFlax := 11884646;
For Tol := 20 to 50 do
begin
if (FindColorSpiralTolerance(x, y, MMFlax, 631, 49, 727, 151, Tol)) then Break;
end;
MMFlax := GetColor(x, y);
end;
if (not (LoggedIn)) then Exit;
MarkTime(f);
if (FindColorTolerance(x, y, MMFlax, 601, 20, 727, 151, 20)) then
begin
Mouse(x, y, 4, 4, true);
Flag;
end;
repeat
Mouse(55, 50, 8, 8, true);
Flag;
c := c + 1;
until (FindColor(x, y, MMTree, 584, 0, 642, 83)) or (c > 4);
FFlag(5);
if (FindColor(x, y, MMTree, 584, 0, 642, 83)) then
begin
case Random(4) of
0: Mouse(x, y, 1, 1, true);
1: Mouse(x + 5, y + 5, 1, 1, true);
2: Mouse(x + 3, y - 3, 1, 1, true);
3: Mouse(x + 3, y + 3, 1, 1, true);
end;
Wait(1000 + Random(1000));
FFlag(5);
if (not (FindColor(x, y, MMTree, 622, 1, 713, 50))) then
begin
if (FindColor(x, y, MMTree, 619, 72, 686, 102)) then
begin
case Random(2) of
0: Mouse(x, y - 15, 1, 1, true);
1: Mouse(x, y - 20, 1, 1, true);
end;
Wait(1500 + Random(1500));
FFlag(10);
if (FindColor(x, y, MMTree, 622, 1, 713, 50)) then
begin
Mouse(x, y, 1, 1, true);
Wait(3000 + Random(2000));
FFlag(5);
end;
end;
end else Mouse(x, y, 1, 1, true);
Wait(1500 + Random(1500));
Flag;
if (FindColorSpiral(x, y, MMTree, 615, 42, 685, 117)) then
begin
Wait(500 + Random(1000));
Mouse(x - 18, y - 48, 1, 1, true);
Wait(1500 + Random(1000));
MarkTime(p);
repeat
Wait(100);
until (not (FlagPresent)) or (not (LoggedIn)) or (TimeFromMark(p) > 20000);
if (Players[0].Booleans[1]) then WriteLN('Flax To Bank In ' + IntToStr(TimeFromMark(f) / 1000) +
' Seconds');
end;
end;
end;