Simba Code:
procedure BankCustom;
var
TPAA: T2DPointArray;
CTS, L, I, X, Y, Tries, BankFound: Integer;
TPA: TPointArray;
begin
repeat
PlayerProtection;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.11, 2.93);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2051676, MSX1, MSY1, MSX2, MSY2, 4);
TPAA := TPAToATPAEx(TPA, 200, 100);
DebugATPA(TPAA,'');
L := High(TPAA);
ColorToleranceSpeed(CTS);
for I := 0 to L do
begin
MiddleTPAEx(TPAA[i], X, Y);
MMouse(X, Y, 3, 3);
if WaitUptext('th', 300) then
begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
Wait(2500 + Random(500));
BankFound := 1;
Break;
end;
end;
if not BankScreen then
begin
if not WaitUptext('th', 300) then
begin
MakeCompass(randomrange(-20, 20));
blindwalk(Point(3254 + random(1), 3420 + random(1)));
PlayerProtection;
inc(Tries)
WriteLn('Attempt number: ' + IntToStr(Tries));
end;
end;
if Tries > 5 then
begin
WriteLn('Failed finding the bank too many times. Exiting Script.');
Logout;
TerminateScript;
end;
until(BankFound = 1);
if PinScreen then
begin
InPin(BANKPIN);
end;
repeat
if BankScreen then
begin
if finddtm(EssDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
QuickDeposit('inv');
WriteLn('Commencing Banking');
MMouse(X, Y, 3, 3);
wait(randomrange(10, 30));
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, mouse_right);
wait(randomrange(10, 30));
ChooseOption('Withdraw-All')
wait(randomrange(10, 30));
CloseBank;
Writeln('Banking Complete');
PlayerProtection;
Exit;
end else
begin
WriteLn('Could not find the Essence DTM. Consider making another one.');
Logout;
TerminateScript;
end;
end;
until (False);
end;