procedure Bank;
var
  BankTimer, i : Integer;
begin
  if(not(LoggedIn))then Exit;
  if(not(FindNormalRandoms))then
  MarkTime(BankTimer);
  FTab(tab_Inv);
  if DecayedPouch then
  begin
    //Writeln('fixing pouch');
    Players[CurrentPlayer].Loc := 'Contact';
    Exit;
  end;
  if FindDTMRotated(BankBoothDTM, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    repeat
      FindDTMRotated(BankBoothDTM, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound)
      Mouse(x, y, 2, 2, true);
      For i := 0 to 20 do
        Wait(150);
        if BankScreen or Pinscreen then
        Break;
    until BankScreen or PinScreen;
  end;
  if PinScreen then
  begin
    If (Players[CurrentPlayer].Pin <> '') then
    InPin(Players[CurrentPlayer].Pin);
  end;
  if BankScreen then
  begin
    If (HPPercent < 50) then
    begin
      Eat;
    end;
    WithdrawEss;
    Exit;
  end;
end;