You could use
SCAR Code:
Procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Leave this.
NumberOfPlayers(HowManyPlayers); // Leave this.
CurrentPlayer := 0; // Leave this.
Players[0].Name :=''; // Username
Players[0].Pass :=''; // Password
Players[0].Nick :=''; //3 letters of your username
Players[0].Pin := ''; // Bank Pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume'];
Players[0].Active:=True; // Leave this.
end;
Added Pin instead of declaring it as a const.
SCAR Code:
Procedure UseBank;
Var
T: Integer;
Begin
If Not OpenBankFast('veb') Then If Not OpenBankGlass('veb', True, True) Then
If Not OpenBankQuiet('veb') Then
Begin
Writeln('Failed to open bank!');
Logout;
Exit;
End;
If (PinScreen) Then
Begin
If (InPin) Then
Begin
MarkTime(T);
While Not BankScreen Do
Begin
Wait(Random(150));
If TimeFromMark(T) > 10000 Then
Begin
Writeln('Failed to open bank!');
Logout;
Exit;
End;
End;
End;
End;
End;