Footy
07-19-2012, 10:59 PM
Im working on a failsafe for my banking procedure in a script, and I want the script to try banking again if it cant find the uptext DTM, How do I do that? This is what I have so far.
Procedure Bank;
var
BankDTM:integer;
begin
BankDTM := DTMFromString('mbQAAAHicY2VgYPABYksgjgLiRCBWBmJHIH YBYmcobQ/EktePM0jdOA6mQVj4ynEGbIARCwYDAMlQC0U=');
Writeln('Time To Bank');
wait(randomrange(200, 300));
MMouse(259, 170, 4, 4);
wait(randomrange(200, 400));
if FindDTM(BankDTM, x, y, 1, 1, 1000, 1000) then
begin
Clickmouse2(1);
wait(randomrange(1500, 2000));
Mouse(583, 277, 2, 2, Mouse_right);
Chooseoption('ll')
wait(randomrange(400, 500));
Mouse(102, 159, 2, 2, Mouse_right);
wait(randomrange(300, 400));
Chooseoption('ll');
wait(randomrange(200, 400));
Mouse(490, 84, 2, 2, 1);
wait(randomrange(400, 600));
Fletched := Fletched + 28
end else
begin
Fails := Fails + 1
Retry Banking procedure???
end;
end;
Procedure Bank;
var
BankDTM:integer;
begin
BankDTM := DTMFromString('mbQAAAHicY2VgYPABYksgjgLiRCBWBmJHIH YBYmcobQ/EktePM0jdOA6mQVj4ynEGbIARCwYDAMlQC0U=');
Writeln('Time To Bank');
wait(randomrange(200, 300));
MMouse(259, 170, 4, 4);
wait(randomrange(200, 400));
if FindDTM(BankDTM, x, y, 1, 1, 1000, 1000) then
begin
Clickmouse2(1);
wait(randomrange(1500, 2000));
Mouse(583, 277, 2, 2, Mouse_right);
Chooseoption('ll')
wait(randomrange(400, 500));
Mouse(102, 159, 2, 2, Mouse_right);
wait(randomrange(300, 400));
Chooseoption('ll');
wait(randomrange(200, 400));
Mouse(490, 84, 2, 2, 1);
wait(randomrange(400, 600));
Fletched := Fletched + 28
end else
begin
Fails := Fails + 1
Retry Banking procedure???
end;
end;