SRL Archive - FAQ

Script:

program nrbones;
  {$i srl/srl.simba}

 function Bank: boolean;
  var
  x, y:Integer;

  begin
      if FindColorSpiralTolerance(x, y, 3162200 , 208, 69, 298, 166, 20) then
      begin
        MoveMouse(x, y);
        ClickMouse(x, y, 1);
        ReleaseMouse(x, y, 1);
        MoveMouse(x, y);
        ClickMouse(x, y, 2);
        Withdraw(7, 2, 0);
        Result := true;
      end;
      Result := false;
   end;

 procedure Bury;
  var
    x, y:Integer;

  begin
      if FindColorSpiralTolerance(x, y, 11843006 , 554, 253, 741, 517, 20) or
         FindColorSpiralTolerance(x, y, 11579578 , 554, 253, 741, 517, 20) then
      begin
        MoveMouse(x, y);
        ClickMouse(x, y, 1);
        releaseMouse(x, y, 1);
        Wait(1250);
      end;
  end;

begin
  repeat
    if not Bank then
    Bury;
  until(false);
end.     

I'm trying to write a script that will bury bones and once the inv is empty it will bank, unfortunately it's throwing some weird error at me.. Not sure how to deal with it or causing it. The only thing I do know is that it's coming from the Bank function.

Error:
Error: Out of Proc Range at line 385

(p.s. this script is to bury bones on a private server)

Please bare in mind this is my first script. :(