SCAR Code:
procedure WalkToBank;
begin
if(not(LoggedIn))then Exit;
if invfull then
begin
MakeCompass('w');
FindColorTolerance(x, y, BanksymbolCol, MMX1, MMY1, MMX2, MMY2, 35);
WriteLn('Using AutoColor...');
begin
Wait(600+random(120));
Mouse(x, y, 3, 3, True);
end;
if not FindColorTolerance(x, y, BanksymbolCol, MMX1, MMY1, MMX2, MMY2, 35) then
begin
WriteLn('Couldnt Use AutoColor...Using DTM''S');
BankDTM := DTMFromString('78DA63FCC3C4C07093010CB82014C31FA0182' +
'B906604E2FF40C0F81DA8E616030A00A96180AA01D33F80FC0B04' +
'D4B0316398F3F52B038A1A0042671243');
if (FindDTMRotated(BankDTM, x, y, MMx1, MMy1, MMx2, MMy2, -80, 180, (1/360)*Pi, DTMAngle)) then
Mouse(x, y, 3, 3, True);
begin
Wait(600+random(120));
Mouse(x, y, 3, 3, True);
end;
if not (FindDTMRotated(BankDTM, x, y, MMx1, MMy1, MMx2, MMy2, -80, 180, (1/360)*Pi, DTMAngle)) then
begin
writeln('Couldnt Use DTM''s...Using Symbols');
LoadSymbolBitmapColor('bank');
symbolaccuracy := 4.5;
if findsymbol(x,y,'bank') then
WriteLn('Found Bank');
wait(500+random(600));
mouse(x,y,2,2,true);
Wait(4000+random(500));
begin
if not findsymbol(x,y,'bank') then
WriteLn('Couldnt Find Bank Symbol...Logging Out');
LogOut;
TerminateScript
end;
DepositLogs;
end;
FreeDtm(BankDTM);
end;
end;
end;