fearlesskiller
01-19-2012, 12:59 PM
Since i cannot use radialwalking because it doesnt work for me, i tried using findcolortolerence, though it gives me a compile error. Here's my procedure:
procedure GetInTheBoat;
var x, y:integer;
begin
FindNormalRandoms;
if FindObj(x, y, 'ross', 3958665, 5) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('ross');
repeat
wait(3000+random(25)) until
FindColorTolerance(x, y, 2381413, MMX1, MMY1, MMX2, MMY2, 10) then
Mouse(x, y, 0, 0, True);
end;
end;
procedure GetInTheBoat;
var x, y:integer;
begin
FindNormalRandoms;
if FindObj(x, y, 'ross', 3958665, 5) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('ross');
repeat
wait(3000+random(25)) until
FindColorTolerance(x, y, 2381413, MMX1, MMY1, MMX2, MMY2, 10) then
Mouse(x, y, 0, 0, True);
end;
end;