jakey does it really matter that it moves from booth to booth? its a really easy/simple banking procedure that is flawless 
Heres the current code:
SCAR Code:
function OpenPCBank : boolean;
var
x, y, i : integer;
BankPnts: TPointArray;
begin
MakeCompass('n');
BankPnts := FindPcBank;
For i := 0 to high(bankPnts) do
begin
MMouse(bankPnts[i].x, bankPnts[i].y, 3, 3);
wait(600 + random(400));
if IsUpTextMultiCustom(['ank', 'ooth']) then
begin
getMousePos(x, y);
Mouse(x, y, 0, 0, false);
wait(600 + random(600));
if ChooseOption('uick') then
begin
wait(600);
FFlag(0);
break;
end;
end;
end;
Result := BankScreen;
end;