SRL Archive - Bugs

OpenBankNPC error


ssshhhaaa

2012-04-26 16:22:22

OpenBankNPC function works very well, it can find banks and open them but when ever i add this into a script it works but then straight after it stops the script (even if there are more stuff later in the script)
After this it opens up the bank srl file and highlights the line

[ if (Result) then Exit; ]
with the error
[ Error: Out Of Range at line 1664 ]

Heres a picture of the error;

And heres the script (not fully made by me):
program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}


var
x, y : integer;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL;
ObjDTM_Setup;
sps_setup(RUNESCAPE_SURFACE,['10_6','10_5']);


repeat
OpenBankNPC;
until BankScreen;
if BankScreen then
begin
DepositAll;
CloseBank;
end;

end.

Any help on this will be very appreciated :))

Abu

2012-04-27 11:03:36

Replace your actual scripting part with:


repeat
if not BankScreen then
OpenBankNPC;

if BankScreen then
begin
DepositAll;
CloseBank;
end;
until (InvCount = 0);

ssshhhaaa

2012-04-28 03:37:30

From: abu_jwka
Replace your actual scripting part with:


repeat
if not BankScreen then
OpenBankNPC;

if BankScreen then
begin
DepositAll;
CloseBank;
end;
until (InvCount = 0);


Yeh right after posting this thread i worked it out :/
Thanks anyway