SRL Archive - OSR Help

 Procedure Banking;
 Var
Coal ,x, y:integer;
 Begin
  Coal := DTMFromString('mAAEAAHic42FgYBAAYiYGCOACYj4glgRiKSCWB2JpIBYDYiEg5gZifigtDsWyUBokzgnErFDzYGYqKUnBRZxMVZFkcWHSACOJGBkAAM+KAo4=');
  If FindDTM(Coal, X, Y, MSX1, MSY1, MSX2, MSY2) then
  WriteLn('We Found it');
  MMouse(x, y, 7, 7);
  Mouse(x, y, 0, 0, False);
  If IsUpText('All') then
  ChooseOption('All');
  End;   

Basically it right click on coal What should i do next to make it deposit all?
anyone help ?

I know I'm no help atm but if a public script you know does this, why don't you check out the source of it to see?

Be sure to identify your var's:

var
  X, Y, T:integer;

You need it to open up the deposit box so:

OpenDepositBox;
begin
  result := false;
  If(not(LoggedIn)) then exit;
  begin
    if FindObjTPA(x, y, 7108477, 10, -1, 30, 30, 200, ['deposit']) then

You also need to use the function:

DepositAll;

Deposit(fromslot,toslot,type) would be the way to go if you wanted the option to hold the pickaxe