You would have to put
SCAR Code:
Procedure OpenAccount;
begin
Status('Opening bank account')
Counter:=0
Counter2:=0
repeat
repeat
Counter2:=Counter2+1
Counter:=Counter+1
Begin
if Not FindObj ((x,y,'Bank booth',BoothColor,15)) then
begin
mmouse(x,y,5,5)
getuptext;
if isuptext('Use Bank booth') then
begin
FindObj(x,y,'Bank booth',BoothColor,15);
Mouse(x,y,4,0,False);
FTWait(2)
ChooseOption('Use-quickly')
FTWait(2)
end;
until (BankScreen) or (PinScreen) or (Counter>=10);
if Counter>=10 then
begin
Status('Could not find the Banker, Logging out...')
Logout;
Login;
end;
until (BankScreen)or (PinScreen) or (counter2>=3)
begin
If PinScreen then
InPin(Pin)
end;
end;
end;
That should work... that is, if you have the boothcolor declared and whatnot...