Im trying to find oaklogs in the bank using DTM's but no matter how many i make they all seem to fail in the end
heres my procedure atm :
SCAR Code:
Procedure FindTheOak;
Var
Oaklog, OakLog2, OakLog3, x, y : Integer;
begin
if not LoggedIn then Exit;
OakLog := DTMFromString('78DA6394626060106540018D29360CFC409A1' +
'188FF0301232F9021C88006189148202D0324E408A85102120204' +
'D42802094E026A5481840C0135200FC8E257030036D50691');
OakLog2 := DTMFromString('78DA63DCCAC4C03087910119D4265A8169982' +
'8E36EA09A25A86A60B27035FB806A661050B314A8662E7E35005E' +
'7F0678');
OakLog3 := DTMFromString('78DA633CCCC8C070840105D42759836946289' +
'F711B907588010D30A2AAD904641D27A0E63490B59B809AF340D6' +
'29FC6A00CE2408C7');
If FindDTM(Oaklog, x, y, MBX1, MBY1, MBX2, MBY2) or
FindDTM(Oaklog, x, y, MBX1, MBY1, MBX2, MBY2) or
FindDTM(Oaklog, x, y, MBX1, MBY1, MBX2, MBY2) then
begin
MMouse(x, y, 0, 0);
Wait(50 + Random(50));
if (IsUpText('log')) then
begin
Writeln('Found Oak Logs!');
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(100 + Random(50));
ChooseOption('All');
FreeDTM(Oaklog);
FreeDTM(Oaklog2);
FreeDTM(OakLog3);
end else
begin
Writeln('No Logs Found!');
CloseBank;
Logout;
TerminateScript;
end;
end else
begin
Writeln('No Logs Found!');
CloseBank;
Logout;
TerminateScript;
end;
end;
3 dtms! and still it manages to fail finding the oak logs sometimes -.- and pointers to get it to work more?