Working on Metagen's edit...
SCAR Code:
program ChickenDestroyer;
{.Include SRL\SRL.SCAR}
const
ChickenHeadColor=265312;
FeatherColor=9408669;
var
Procedure KillChicken;
var x,y: integer;
stopper: boolean;
begin
if FindColorTolerance(x,y,ChickenHeadColor,8,10,515,3 36,30) then
begin
Mouse(x, y, 1, 1, true);
end;
end;
begin
SetupSRL;
KillChicken;
end.
Put the includes in...
----------------------------------------------
I'm not a perfect scripter either, but I think this will help.
And if you want to make it multiplayer (makes it alot better)
Add this in.
SCAR Code:
procedure DeclarePlayers;
begin
HowManyPlayers:= 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := 'Username'; //UserName
Players[0].Pass := 'Password'; //Password
Players[0].Nick := 'Nick'; //2-4 letters of username
Players[0].Active := True; //Active
Players[1].Name := 'Username'; //UserName
Players[1].Pass := 'Password'; //Password
Players[1].Nick := 'Nick'; //2-4 letters of username
Players[1].Active := True;
Players[2].Name := 'Username'; //UserName
Players[2].Pass := 'Password'; //Password
Players[2].Nick := 'Nick'; //2-4 letters of username
Players[2].Active := True; //Active
Players[3].Name := 'Username'; //UserName
Players[3].Pass := 'Password'; //Password
Players[3].Nick := 'Nick'; //2-4 letters of username
Players[3].Active := True; //Active
Players[4].Name := 'Username'; //UserName
Players[4].Pass := 'Password'; //Password
Players[4].Nick := 'Nick'; //2-4 letters of username
Players[4].Active := True; //Active
Players[5].Name := 'Username'; //UserName
Players[5].Pass := 'Password'; //Password
Players[5].Nick := 'Nick'; //2-4 letters of username
Players[5].Active := True; //Active
end;
And this.
SCAR Code:
if (not (loggedIn)) then
begin
LoginPlayer;
end;
Like so.
SCAR Code:
begin
SetupSRL;
if (not (loggedIn)) then
begin
LoginPlayer;
end;
KillChicken;
end.
I believe that will also help.