procedure PathToBank2;
var
  BankTimer, tmpCTS : Integer;
begin
  FTab(tab_Inv);
  MarkTime(BankTimer);
  if FindDTM(PathToBankFailDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
  begin
    Writeln('Found #1');
    Mouse(x, y, 0, 0, true);
    Flag;
    Wait(1000);
    Players[CurrentPlayer].Loc := 'Banking';
    Writeln('Set to banking1');
  end else
  if FindDTM(PathToBankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
  begin
    Writeln('Found #2');
    Mouse(x, y, 0, 0, true);
    Flag;
    Wait(1000);
    Players[CurrentPlayer].Loc := 'Banking';
    Writeln('Set to banking2');
  end else
  begin
    Writeln('Radialwalking');
    tmpCTS := GetColorToleranceSpeed;
    SetColorToleranceSpeed(2);
    SetColorspeed2Modifiers(8.27, 0.97);
    Writeln('Clicking on radialwalk');
    RadialWalkTolerance(5987660, 285, 290, 60, 5, 5, 6);
    Writeln('Setting to banking3');
    Players[CurrentPlayer].Loc := 'Banking';
    Writeln('Set to banking3');
    Exit;
  end;
end;