SRL Archive - First Scripts

Ive made these procedures which allow you to bank any item in draynor.

The point of the script: walks from south of the bank to the bank, deposits everything in your inventory and walks back somewhere near the trees.

Procedure WalkToBank;
var x,y : Integer;
begin
  SymbolAccuracy := 0.5;
  if FindSymbol(x,y,'bank') then
  Mouse(x,y,5,5,True);
  SymbolAccuracy := 0.8;
  //flag;
end;

Procedure BankItems;
begin
  OpenBankFast('db');
  wait(100);
  //DepositAll;
  Deposit(2,28,2);
  wait(100);
  CloseBank;
end;

Procedure WalkToFish;
var
  x,y : Integer;
begin
  //
  MakeCompass('N');
  wait(500);
  if RadialWalk(150057,200,160,70,0,1) then
  begin
    Writeln('found radial walk 1');
    //RadialWalk(150057,200,160,70,0,1);
    exit;
  end;
  if FindSymbol(x,y,'fish') then
     begin
     Mouse(x,y,5,5,True);
     Writeln('found symbol');
     exit;
     end;
  if RadialWalk(14356,200,160,70,0,1) then
  begin
    Writeln('found radial walk 2');
    //RadialWalk(14356,200,160,70,0,1);
    exit;
  end;
    if RadialWalk(2503471,200,160,70,0,1) then
  begin
    Writeln('found radial walk 3');
    //RadialWalk(2503471,200,160,70,0,1);
    exit;
  end;
  //flag;
end;

Procedure BankingProc;
begin
  wait(100);
  WalkToBank;
  wait(15000);
  BankItems;
  wait(1000);
  WalkToFish;
  wait(12000);
end;

comment please :)

Nice :)
I am still learning the banking procedures by going through the tutorials. I plan to make a mining + banking script as my first script. :D

Nice Script im learning too and this is good too have and FEAR i thinking of that too, i have started but it doesnt goes to well. But really good to know if im back on track for scripting :)