for I := High(BankBoothTPA) downto 0 do
begin
  PrintProgress;
  MoveMouse(BankBoothTPA[I].X, BankBoothTPA[I].Y);
  if WaitUpText('ank', 500) then
  begin
  ClickMouse2(False);
  PrintProgress;
  WriteLn('Found bank booth, interacting.');
  if ChooseOption('uickly') then
  begin
    PrintProgress;
    Wait(1000);
    if WaitFunc(@PinScreen, 15, 500) then
    begin
      PrintProgress;
      if InPin(Players[0].Pin) then
      begin
        PrintProgress;
        if WaitFunc(@BankScreen, 15, 500) then
        begin
          PrintProgress;
          DepositAll;

          if CountLogs = 0 then
          begin
            Inc(LoadsDoneNew);
            StatsIncrease;
            PrintProgress;
          end;
          ProgressReport;
        end;
      end;
    end else
    begin
      if WaitFunc(@BankScreen, 15, 500) then
      begin
        PrintProgress;
        DepositAll;
        if CountLogs = 0 then
        begin
          Inc(LoadsDoneNew);
          StatsIncrease;
          PrintProgress;
        end;
        ProgressReport;
      end;
    end;
  end;

  Result := True;
  PrintProgress;
  Break;
  end else
    WriteLn('Did not find bank booth, trying again..');
end;