But it doesn't click the chicken... instead it just sits there as if it isn't even running!
SCAR Code:
program ChickenKiller;
{.include srl/srl.scar}
var x,y: integer;
Const
ChickenColor = 2048088;
TimeToPlay = 600000;//IN MILISECONDS//
Procedure CheckIfLoggedIn;
begin
Writeln('You are running ChickenKiller by wade007')
wait(1000)
If(Not(loggedin)) then
begin
Writeln('Please login before running script')
end;
end;
Procedure AttackChicken;
begin
If (FindColorTolerance(x,y, ChickenColor , 495, 166 , 991, 478,30)) then
begin
If IsUptextMulti('cken','hicken','chic')
then
begin
Mouse(x,y,1,1, true)
end;
end;
end;
procedure Debug;
begin
writeln(' Thank you for using my ChickenKiller')
wait(400)
Writeln(' It is still in beta, so don''t be too harsh')
end;
begin
SetupSrl;
ActivateClient;
MakeCompass('N')
repeat
AttackChicken
Until(false)
end.
See what you can do with it!
Thanks In Advance