SCAR Code:
{=====================================]
[Procedure TailsBank - Opens the bank ]
[using RandomBankColor for the color. ]
[=====================================}
procedure TailsBank;
begin
If Not(LoggedIn) Then
begin
LoginPlayer;
Exit;
end;
BTries := 0;
//MakeCompass('e');
//LowestAngle;
Repeat
//if FindColorSpiralTolerance(tx, ty, RandomBankColor, 0, 0, 515, 337, 3) then
begin
BTries := BTries + 1;
Status('Finding Bank Booth Try #: '+ IntToStr(BTries));
OpenBankQuiet('db');
//MMouse(tx, ty, 2, 2);
//if IsUpTextMulti('use','ank','ooth') then
//begin
// wait(100 + random(300));
// Mouse(tx, ty, 2, 2, false);
// Wait(1000 + Random(400));
// if (ChooseOption('quickly')) or (ChooseOption('bank')) then
// begin
// BTries := 0;
// end;
//end;
end;
until (BankScreen) or (BTries > 50)
Repeat
If(FindDTM(NormalLog, tx, ty, 550, 210, 730, 462)) or (FindDTM(OakLog, tx, ty, 550, 210, 730, 462)) or (FindDTM(WillowLog, tx, ty, 550, 210, 730, 462))Then
Begin
Mouse(tx, ty, 5, 5, False);
wait(100+Random(200));
ChooseOption('ll');
wait(500+Random(400));
end;
until Not (FindDTM(NormalLog, tx, ty, 550, 210, 730, 462)) or (FindDTM(OakLog, tx, ty, 550, 210, 730, 462)) or (FindDTM(WillowLog, tx, ty, 550, 210, 730, 462))
If BTries > 50 Then
Begin
WriteLn('Changing characters - Didn''t find bankbooth.');
Nextplayer(True);
BTries := 0;
Exit;
end;
CloseBank;
MakeCompass('n');
HighestAngle;
end;
