NCDS
2009-09-18 09:12:03
Do you guy's think this (or something similar) would be an effective way to go about opening the bank:
{******************************************************************************}
{ Function MSI_OpenBank(Bank, tPin: string): Boolean; }
{ By: NCDS }
{ Rev: 1 }
{ Date: 18 Sep 09 }
{ Description: Opens any bank supported by SRL. tPin = RS Bank Pin. Set to '0' if you don't have one. }
{******************************************************************************}
function MSI_OpenBank(Bank, tPin: string): Boolean;
var i, t: Integer;
begin
for i := 0 to 3 do
begin
if OpenBankFast(Bank) then
Break;
end;
if not BankScreen and not PinScreen then Exit;
if PinScreen and (Length(tPin) > 1) then
InPin(tPin);
MarkTime(t);
while not BankScreen do
begin
Wait(600);
if TimeFromMark(t) > 5000 then
Exit;
end;
Result := BankScreen;
end;
or do you think we should just use SRL's and write it out custom each time?