I made DTM for edge bank, it rights clicks the bank booth and ye, but when it gets to the bankscreen it stops... For about 10 sec then goes to the walking proc.
SCAR Code:
function OpenBank12: Boolean;
begin
Wait(1000);
repeat
if DTMRotated(BankBooth, x, y, MSx1, MSy1, MSX2, MSY2) then
begin
MMouse(x, y, 0, 0);
if Isuptext('ank') then
begin
Mouse(x, y, 1, 1, false);
wait(100 + random(200));
ChooseOption('uickly');
end;
end;
until (Bankscreen) or (Pinscreen);
// if OpenBankQuietBH('eb') then
// begin
if (PinScreen) then
begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
Wait(500 + Random(250));
if (BankScreen) then
begin
wait(200);
FixBank;
CountItemDTM(Yew);
ReportVars[1] := CountItemDTM1(Yew);
Deposit(2, 28, 2);
CloseBank;
Players[CurrentPlayer].Loc := 'Bank, Just banked.';
Banked := Banked + 1;
Bankedd := Bankedd + 1;
Wait(1);
ReportVars[0] := 1;
SendSRLReport;
Disguise('Done [' + IntToStr(Banked) + '/' + IntToStr(Players[CurrentPlayer].Integers[1]) + '] Loads');
Exit;
end else
if not BankScreen then
begin
Result := False;
Writeln('Player coulnt find the bank');
Players[CurrentPlayer].Active := False;
Logout;
end;
end;
end;
hmm, I want a DTm because it works like 100% on the bank and OpenBankQuite looks around for aleast 30 seconds.