SRL Archive - SRL Archives

Just sharing some more quick-writes… ;D

-Description
Deposits everything except for the DTM. So if you were mining
it could be able to bank all but your pickaxe.

-Parameters
DTM of the item you don't want banked.

procedure DepositAllExcept(TheDTM : Integer);
var
  f : TPoint;
  i : Integer;
  box : array[0..3] of Integer;
begin
  if(not(BankScreen))then
    Exit;
  for i:= 1 to 28 do
  begin
    f:= ItemCoords(i);
    box[0]:= f.x - 25;
    box[1]:= f.y - 25;
    box[2]:= f.x + 25;
    box[3]:= f.y + 25;
    if(not(FindDTM(TheDTM, x, y, box[0], box[1], box[2], box[3])))then
      if(ExistsItem(i))then
      begin
        Mouse(f.x, f.y, 5, 5, false);
        Wait(200 + random(100));
        ChooseOption(x, y, 'All');
      end;
  end;
end;

Thankies
-WhiteShadow.