Wanna fix this up and add it? I know it's not the standard format of a bank function but I just made it.. and it's missing too..
Simba Code:
Function OpenBankZanaris :Boolean;
var
B: TBox;
TPA: TPointArray;
ATPA, ATPA2: T2DPointArray;
CTS, L, X, Y, I, T: Integer;
begin
Result := (LoggedIn and BankScreen);
if (Result) then
Exit
else
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.15, 0.50);
FindColorsTolerance(TPA, 9872045, MSX1, MSY1, MSX2, MSY2, 5); //Bank Booth color..
SetColorSpeed2Modifiers(0.2, 0.2);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, 20, 20);
L := High(ATPA);
SetArrayLength(ATPA2, L+1);
for i := 0 to L do
begin
B := GetTPABounds(ATPA[I]);
with B do
begin
ColorToleranceSpeed(2);
begin
SetColorSpeed2Modifiers(0.02, 3.08);
FindColorsTolerance(ATPA2[I], 7920871, B.X1, B.Y1, B.X2, B.Y2, 9); //Yellow Colour on booth..
ColorToleranceSpeed(CTS);
end;
ColorToleranceSpeed(CTS);
Result := (Length(ATPA2[i]) > 0);
if Result then
begin
MiddleTPAEx(ATPA2[i], X, Y);
MMouse(X, Y, 0, 0);
wait(500);
if isUptextMultiCustom(['Bank', 'Booth', 'ank', 'ooth']) then
begin
ClickMouse2(MOUSE_RIGHT);
ChooseOptionMulti(['uickly', 'uick', 'ickly', 'ckl', 'se-q']);
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
Exit;
end;
end;
end;
end;