wow... i am failing miserably... Please help me with these because they are not working!
SCAR Code:
procedure Withdraws;
var I : Integer;
begin
if not LoggedIn then Exit;
if (CountBarsInInv >= Items.Bars) then Exit;
if not (Players[CurrentPlayer].Loc = 'Bank') then WalkBank;
I := 0;
repeat
if not BankScreen then
if OpenBankFast('vwb') then ScreenWait(BankScreen, 8);
Inc(I);
until (BankScreen) or (I >= 10);
I := 0;
repeat
FindBar(True, True)
Wait(1500+random(500));
Inc(I);
until (InvFull) or (I >= 8);
if CloseBank then WalkAnvil;
end;
procedure Deposits;
var I : Integer;
begin
if not LoggedIn then Exit;
if not (Players[CurrentPlayer].Loc = 'Bank') then WalkBank;
I := 0;
repeat
if not OpenBankFast('vwb') then
if OpenBankReflection('vwb') then WriteLn('Banking');
Inc(I);
until (ScreenWait(BankScreen, 10)) or (I >= 10);
I := 0;
repeat
if ScreenWait(BankScreen, 10) then
Deposit(2, 28, True);
Inc(I);
until (HammerOnly) or (I >= 8);
CloseBank;
Inc(Loads);
end;