Here is full code works perfectly and tellies back! How could I make it not take over my mouse?
Code:
program PkHonor;
{$i srl/srl.simba}
const
LOGS = 100;
Procedure ClickTree;
var
X,Y:Integer;
begin
repeat
if FindColorTolerance(X, Y, 14678264, 1, 5, 760, 502, 1) or
FindColorTolerance(X, Y, 12187896, 1, 5, 760, 502, 1) or
FindColorTolerance(X, Y, 11661552, 1, 5, 760, 502, 1) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait(10000+random(5000));
KeyDown(39);
wait(RandomRange(50,100));
KeyUp(39);
end else
begin
KeyDown(39);
wait(RandomRange(100,200));
KeyUp(39);
wait(RandomRange(500,1000));
PressKey(118);
wait(500);
mmouse(648, 400, 1, 1);
wait(100)
ClickMouse(X, Y, mouse_Left);
wait(500);
mmouse(263, 447, 1, 1);
wait(100);
ClickMouse(X, Y, mouse_Left);
wait(10000);
end;
until (LOGS > 100);
end;
Begin
SetupSRL;
MouseSpeed := 30;
ClickTree;
end.