Simba Code:
program KillChicken;
{$I SRL-6/SRL.simba}
procedure ClickChicken;
var
x, y: integer;
begin
if FindColorTolerance(x, y, 8168377, 225, 185, 274, 234, 5) then
begin
MoveMouse(x, y);
wait(gaussRangeInt(100, 200));//make these numbers higher if you want it to wait longer before clicking the chicken
ClickMouse(x, y, MOUSE_LEFT);
end;
end;
begin
setupSRL();
repeat
ClickChicken;
until not isLoggedIn();
end.
Just a little improvement.
I saw you wanted it to only click a certain amount of chickens. If so you could do something like this
Simba Code:
program KillChicken;
{$I SRL-6/SRL.simba}
var
chickenClick: integer;
procedure ClickChicken;
var
x, y : integer;
begin
if FindColorTolerance(x, y, 8168377, 225, 185, 274, 234, 5) then
begin
MoveMouse(x, y);
wait(gaussRangeInt(100, 200));//make these numbers higher if you want it to wait longer before clicking the chicken
chickenClick + 1;
ClickMouse(x, y, MOUSE_LEFT);
writeln('Chickens clicked:', chickenClick);
end;
end;
begin
setupSRL();
repeat
ClickChicken;
until (chickenClick >= 5000);//edit 5000 to how many clicks you want to click at chickens
end.
Anyways welcome to SRL!
I'm pretty sure that the include SRL wont work on a private server @scob;