SCAR Code:
function LocateBank(TheBank: string): Boolean;
var
bx, by, TheDTM: Integer;
WhichAngle: Extended;
begin
case TheBank of
'db': TheDTM := DTMFromString('78DA636C67626008644001FFFFFD63F80FA41' +
'9416C2060AC01AAF182C8B140D5FCF9C304A619A17CB09A204C35' +
'22E86AC2F09B0300F8811153');
end;
if FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05,
WhichAngle) then
begin
Mouse(bx, by, 0, 0, True);
// FTWait(8);
FFlag(0);
if OpenBankQuiet(TheBank) then
begin
Result := FindText(x, y, 'First', upchars, 175, 80, 212, 100);
end;
begin
if (PinScreen) then
begin
Result := True;
for iNumber := 1 to Length(pin) do
begin
MMouse(395, 175, 10, 10);
Wait(200 + Random(200));
ClickText(pin[iNumber], upchars, 1, 1, 512, 336, True);
Wait(500 + Random(500));
end;
repeat
Wait(100);
until BankScreen or not LoggedIn;
end;
end;
begin
FixBank;
Result := True;
FreeDTM(TheDTM);
Exit;
end
else Result := False;
end
else Result := False;
FreeDTM(TheDTM);
end;
begin
if (BankScreen) then
Deposit(2, 28, 2);
end.
var
i, Timer, Points: Integer;
begin
if(BankScreen)then
begin
MarkTime(Timer);
repeat
Mouse(485, 41, 4, 4, True);
for i := 0 to 30 do
begin
Wait(100);
Points := CountColorTolerance(2070783, 177, 30, 337, 52, 5);
if(Points < 170)then
begin
Result := True;
Break;
end;
end;
until(Points < 170)or(TimeFromMark(Timer) > 8000)
end;
end;