SRL Archive - RS3 Script Requests

Hi! for about a day ive been trying to figure out how to bank at edgville bank using numerous methods (DTMs, ACA, openbankfast, open bank npc) and none of them works without messing up 1 in 3 time or working at all (openbankfast)

Im asking if someone could just make a part of a script that simply banks the edgeville banker (the one most north East) and deposit all.

(It might seem like asking to be spoon fed but i literally cant figure it out, check my posts if you want proof :])

Thanks help appreciated!

Simba Code:
Function DepositAllExcept(IgnoreSlots: TIntegerArray; FastDeposit: Boolean): Boolean;
Var
B: TBox;
i,T,X,Y: Integer;
Label
Start;
begin
Result := False;
if ((not BankScreen) and (not DepositScreen)) then Exit;

Start:
For i := 1 to 28 do
begin
if not InIntArray(IgnoreSlots, i) then
begin
if BankScreen then
begin
if ExistsItem(i) then
MouseItem(i, mouse_right)
end else if DepositScreen then
begin
B := DepositItemBox(I);
if (not(FindColor(X, Y, srl_outline_black, B.X1, B.Y1, B.X2, B.Y2))) then
Continue;
Mouse((B.X1 + B.X2) shr 1, (B.Y1 + B.Y2) shr 1, 0, 0, mouse_right);
end;

if FastDeposit then
begin
if ((GetSlotAmount(i) = 0) or (GetSlotAmount(i) = 1)) then
MenuOption(1)
else if ((GetSlotAmount(i) > 1) and (GetSlotAmount(i) < 6)) then
MenuOption(5)
else if (GetSlotAmount(i) > 5) then
MenuOption(6);

if (i = 28) then
Wait(RandomRange(300, 450));
end else
begin
WaitOptionMulti(['Deposit-All', 'All', 'osit'], 400);
T := GetSystemTime;
repeat
if BankScreen then
if (not(ExistsItem(I))) then Break;
if DepositScreen then
if (not(FindColor(X, Y, srl_outline_black, B.X1, B.Y1, B.X2, B.Y2))) then Break;
Wait(50);
until(GetSystemTime - T > 2000)
end;
end;
end;

{Possible infinate loop? Depends on the accuracy of your IgnoreSlots array}
if BankScreen then
if not (InvCount = Length(IgnoreSlots)) then
goto Start
else if DepositScreen then
if not (DBoxItemCount = Length(IgnoreSlots)) then
goto Start;

Result := True;
end;




This is from Flight - I claim no credit it for it, but he had this posted in a thread a while ago offered up to help anyone.. this might be hepful?

this is the thread if you wanna use it : http://villavu.com/forum/showthread.php?t=77999

From: Bennyp12
Simba Code:
Function DepositAllExcept(IgnoreSlots: TIntegerArray; FastDeposit: Boolean): Boolean;
Var
B: TBox;
i,T,X,Y: Integer;
Label
Start;
begin
Result := False;
if ((not BankScreen) and (not DepositScreen)) then Exit;

Start:
For i := 1 to 28 do
begin
if not InIntArray(IgnoreSlots, i) then
begin
if BankScreen then
begin
if ExistsItem(i) then
MouseItem(i, mouse_right)
end else if DepositScreen then
begin
B := DepositItemBox(I);
if (not(FindColor(X, Y, srl_outline_black, B.X1, B.Y1, B.X2, B.Y2))) then
Continue;
Mouse((B.X1 + B.X2) shr 1, (B.Y1 + B.Y2) shr 1, 0, 0, mouse_right);
end;

if FastDeposit then
begin
if ((GetSlotAmount(i) = 0) or (GetSlotAmount(i) = 1)) then
MenuOption(1)
else if ((GetSlotAmount(i) > 1) and (GetSlotAmount(i) < 6)) then
MenuOption(5)
else if (GetSlotAmount(i) > 5) then
MenuOption(6);

if (i = 28) then
Wait(RandomRange(300, 450));
end else
begin
WaitOptionMulti(['Deposit-All', 'All', 'osit'], 400);
T := GetSystemTime;
repeat
if BankScreen then
if (not(ExistsItem(I))) then Break;
if DepositScreen then
if (not(FindColor(X, Y, srl_outline_black, B.X1, B.Y1, B.X2, B.Y2))) then Break;
Wait(50);
until(GetSystemTime - T > 2000)
end;
end;
end;

{Possible infinate loop? Depends on the accuracy of your IgnoreSlots array}
if BankScreen then
if not (InvCount = Length(IgnoreSlots)) then
goto Start
else if DepositScreen then
if not (DBoxItemCount = Length(IgnoreSlots)) then
goto Start;

Result := True;
end;




This is from Flight - I claim no credit it for it, but he had this posted in a thread a while ago offered up to help anyone.. this might be hepful?

this is the thread if you wanna use it : http://villavu.com/forum/showthread.php?t=77999

That's nothing to do with opening the bank :S

One of my scripts banks in edgeville and I use findnpcbanker and it works fine.

I have no idea on how to include that in my script, when ever i add anything with function at the front like in the one above i get an error.

ill post if i got it working.

From: Ollybest
That's nothing to do with opening the bank :S

One of my scripts banks in edgeville and I use findnpcbanker and it works fine.

Can you tell me how you used that function, because i cant get it to work :pinch::pinch::pinch:

begin
Startup;
SetupChar;
LoadVars;
DoThePainting;
repeat
MarkTime(Z);
Repeat
Wait(500);
DoThePainting;
FindObjOnScreen(['Bank', 'ank', 'ooth'],['ank'],7567226,1,True,1.59,0.48);
Until DidRedClick or (TimeFromMark(Z) > 2500);
If DidRedClick then
repeat
Wait(50);
until BankScreen;
begin
Proggy;
DepositAll;
wait(50 + Random(250));
Proggy;
Withdraw(0, 0, 28);
wait(50 + Random(250));
Proggy;
Deposit(1,1,false);
wait(50 + Random(250));
Proggy;
CloseBank;
end;

From: Bennyp12


begin
Startup;
SetupChar;
LoadVars;
DoThePainting;
repeat
MarkTime(Z);
Repeat
Wait(500);
DoThePainting;
FindObjOnScreen(['Bank', 'ank', 'ooth'],['ank'],7567226,1,True,1.59,0.48);
Until DidRedClick or (TimeFromMark(Z) > 2500);
If DidRedClick then
repeat
Wait(50);
until BankScreen;
begin
Proggy;
DepositAll;
wait(50 + Random(250));
Proggy;
Withdraw(0, 0, 28);
wait(50 + Random(250));
Proggy;
Deposit(1,1,false);
wait(50 + Random(250));
Proggy;
CloseBank;
end;

That just gives me an error :/

Probley beacuse he has proggy in there like 5 times rofl.

check out the banking for the edgeville man killer. just make sure you give the person credit who wrote it

Urg. ACA the Banker, it'll be REALLY easy.

From: NKN
Urg. ACA the Banker, it'll be REALLY easy.

I didnt know how to use it in my script :/

From: ssshhhaaa
I didnt know how to use it in my script :/

Here you go

http://www.youtube.com/watch?v=98wVrr6GwyU&feature=plcp

I saw an ad, and it was Adam Sandler with another guy.
I was like "Dafuq YoHoJo doing with Adam"

From: NKN
I saw an ad, and it was Adam Sandler with another guy.
I was like "Dafuq YoHoJo doing with Adam"

Lol, trolled by and advert.

Sad Times :p

I know, I most go hang my head in shame…