Quote:
procedure DepositOrbs;
var
Searched : integer;
Found: Boolean;
begin
if (not (LoggedIn)) then exit;
repeat
if (not (LoggedIn)) then exit;
wait(100 + random(100));
GetPizPoints;
Searched := Searched+1;
if FindObjCustom(x, y, ['sit', 'ole'], [1315861, 1315861], 5) then
begin
Found := True;
Status('Found orb deposit hole');
Mouse(x, y, 1, 1, True);
flag;
wait(500 + random(100));
Status('Orbs deposited');
ClickToContinue;
wait(400 + random(100));
ClickToContinue;
end;
until Found or (Searched > 20);
TripsDone := TripsDone + 1;
ReportVars[0] := ReportVars[0] + 1;
end;
SHOULD BE CHANGED TO
Quote:
procedure DepositOrbs;
var
Found: Boolean;
begin
if (not (LoggedIn)) then exit;
repeat
if (not (LoggedIn)) then exit;
wait(100 + random(100));
GetPizPoints;
if FindColorSpiralTolerance(x, y, 8685966, 5, 6, 511, 332, 4) then
MMouse(x, y, 1, 1);
if IsUpText('ole') then//if FindObjCustom(x,y,['osit', 'ole'],[1381654,2695457],10) then
begin
Found := True;
Status('Found orb deposit hole');
Mouse(x, y, 1, 1, True);
flag;
wait(500 + random(100));
Status('Orbs deposited');
ClickToContinue;
wait(400 + random(100));
ClickToContinue;
end;
until Found;
TripsDone := TripsDone + 1;
ReportVars[0] := ReportVars[0] + 1;
end;
something like the deposit hole, you should not use findobjcustom ...