Janilabo | RS07 DepositEverything() [SCAR Divi]

function DepositEverything: Boolean;
var
  i, t, m, s, w: Integer;
begin
  Result := False;
  if RS07_BankOpen then
  begin
    s := GetSystemTime;
    for i := (RS07_BANK_SLOT_COUNT - 1) downto 0 do
    begin
      if (((GetSystemTime - s) > 300000) or not RS07_BankOpen) then
        Exit;
      w := GetSystemTime;
      while RS07_InventorySlotUsed(i) do
      begin
        if (not RS07_BankOpen or ((GetSystemTime - w) > 30000)) then
          Exit;
        if ((GetSystemTime - t) > 1500) then
        begin
          if RS07_DepositEx(i, -1) then
          begin
            MSSL_Wait(350 + Random(100));
            m := GetSystemTime;
            while (((GetSystemTime - m) < 3000) and RS07_InventorySlotUsed(i)) do
              MSSL_Wait(0);
          end;
        end;
        MSSL_Wait(0);
      end;
    end;
    Result := ((i < 0) and (RS07_UsedInventorySlots = 0));
  end;
end;