I have managed to add S.M.A.R.T. to it:
SCAR Code:
program ChickenKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\fighting.scar}
const
SmartWorld = 11;
Signed = True;
const
ChickenColor1 = 8167863 ;//set white chicken color, to get specific color I suggest you go to runehq and find chicken under monsters
ChickenColor2 = 2972796 ;//set brown chickens color, and ditto
KillsPerPlayer = 500 ; //sets kills before switching to next player
KillTime = 6750 ;// estimate time it takes you to kill a chicken
var
x, y, CurrentPlayerKills : integer;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure SetupSmart;
begin
SmartSetupEx(Smartworld,false,signed,false); //extra false is for the detail
ClearDebug;
WriteLn('Setting up Smart... Please Hold...');
Wait(10000 + random(5000));
SetTargetDC(SmartGetDC);
While not(SmartActive) do Wait(100); //smartactive instead of smartready
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
5: HoverSkill('attack', False);
11: RandomMovement;
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Gametab(4);
end;
30: SleepAndMoveMouse(300);
end;
end;
Procedure DeclarePlayers;
begin
NumberOfPlayers(8);
CurrentPlayer := 0;
Players[0].Name :='chromo 1';
Players[0].Pass :='****';
Players[0].Nick :='chro';
Players[0].Active :=True;
end;
procedure AttackChicken1;
begin
if not Loggedin then Exit;
if FindObj(x, y, 'ttack', ChickenColor1,10) then
begin
Mouse(x, y, 2, 3, False);
if ChooseOption('ttack') then
begin
wait(KillTime);
Inc(CurrentPlayerKills);
Exit;
end;
end;
end;
procedure AttackChicken2;
begin
if not Loggedin then Exit;
if FindObj(x, y, 'ttack', ChickenColor2,10) then
begin
Mouse(x, y, 2, 3, False);
if ChooseOption('ttack') then
begin
wait(KillTime);
Inc(CurrentPlayerKills);
Exit;
end;
end;
end;
procedure FindFeathers;
begin
if not LoggedIn then exit;
if (FindObjCustom(x, y, ['eat', 'ther'], [403205,403717,12632520], 5)) then
begin
Mouse(x, y, 2, 2, False)
if not(ChooseOption('ake')) then
wait(500);
Exit;
end else
end;
begin
SetupSRL;
SetupSmart;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
AttackChicken1;
FindFeathers;
AttackChicken2;
FindFeathers;
AntiRandoms;
Antiban;
if CurrentPlayerKills = KillsPerPlayer then
begin
NextPlayer(true);
end;
if not Loggedin then NextPlayer(False);
until(false)
end.
There ^^^^^ see what you think!?
Dani B x