SRL Archive - SRL Archives

Here it is. It withdraws by index instead of column and row:

{By: Cut em2 it
 Description: Withdraws by index instead of column and row, same amount idea as
              the regular withdraw.
}
function WithdrawByIndex(Index, Amount: integer): boolean;
var
  colm, rown: integer;
begin
  Result := True;
  rown := Index div 10;
  if rown := 0 then rown := 1;
  colm := Index div 4;
  if colm := 0 then colm := 1;
  if colm > 10 then Result := False;
  if rown > 4 then Result := False;
  if not Result then Exit;
  Withdraw(colm, rown, Amount);
end;

Hope you like it!

Cut em2 it

function WithdrawByIndex(I, Amount : Integer) : Boolean;
var
  P : TPoint;
begin
  P := BankIndexToBankPoint(I);
  Result := Withdraw(P.x, P.y, Amount);
end;

Sorry, had to. :( Good idea though.

What's lol. I knew about BankIndexToMSBox or MSPoint, but this one :( Okay nvm. I'll do a different one next time lol.

Cut em2 it

From: Nava2

function WithdrawByIndex(I, Amount : Integer) : Boolean;
var
  P : TPoint;
begin
  P := BankIndexToBankPoint(I);
  Result := Withdraw(P.x, P.y, Amount);
end;

Sorry, had to. :( Good idea though.

You broke the poor guy's heart :(

Is the Index fixed for the new bank? Didn't even look. xD

From: Narcle
Is the Index fixed for the new bank? Didn't even look. xD

Yea Wizzup fixed everything.

@Cut em2 it, I think this is probably a bit too simple to be added to SRL. If needed, scripters can just convert the bank points to indices using BankIndexToBankPoint. Thanks for the effort though. Its greatly appreciated.