edit: Now i'm having trouble finding the bank,
edit2: Updated the banking bit, but all the OpenBank.. commands don't seem to work very well, anyone know another way i can easily, quickly and accurately open the bank? :S
help appreciated as usual
SCAR Code:Procedure DepositClay;
var
Ai : Integer;
begin
wait(500 +random(500));
status('Finding banker and depositing clay.');
WriteLn('Finding banker.');
wait(150 +random(300));
repeat
OpenBankFast('vwb');
Ai:= Ai + 1;
until(Bankscreen)Or (Ai > 10)
if (Ai > 10) then
begin
WriteLn('Failed to find the bank.');
wait(1000);
WriteLn('User will logout and script will terminate in one second.');
wait(1000);
Logout;
wait(1000);
TerminateScript
end else
wait(150 +random(100));
if BankScreen then
begin
WriteLn('Depositing all clay.');
Deposit(2, 28, true);
WriteLn('Successfully banked all clay.');
wait(100 +random(150));
AntiRandoms1;
end;
end;



Reply With Quote

















