SCAR Code:
{ [-----------------------] o o o o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [-----------------------] o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e L L SSSSSSSSSSS ')
writeln(' [ ] o o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SS')
writeln(' [------------] o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SSSSSSSSSSS SCRIPTS (c) (jOELSTER134)')}
{ [------------]') }
{Start in LUMBRIDGE NORTH CHICKEN COUPE Select window hit run! /\
/\ /\
/\ Version number:5 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead (Feather pickup /\
/\ /\
/\ pLEASE REP ME AND POST BUGS/SUGGESTIONS! /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! /\
/\ /\
/\ Run:Setup lines 39-56 select window hit run! /\
/\ /\
/\ Disadvantage: New scripter...Made need to grease it up a bit/\
/\ /\
/\ NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT! /\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
program ChICkEn_RaPeR;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
const
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
[Lines 43 from TheVoiceInYourHead!]
[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
ChickensToKill = 10000;
ChickenColor1 = 857704; // change if you need to
ChickenColor2 = 3430256; //change if you need to
CHickenColor3 = 4897230;//change if you need to
var
ChickensKilled, FeatherColor: Integer; //Made by TheVoiceInYourHEad
ChickenColors: TIntegerArray; //TheVoiceinYourHead
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //current player
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
[Lines 60-62 from TheVoiceInYourHead]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
ChickenColors := [857704, 3430256, 4897230]; // Choose a few colors off of the chickens and put them here.
FeatherColor := 65536; // Choose a color off of the "stem" of the feather.
Players[0].Name := ''; //username!
Players[0].Pass := ''; //password
Players[0].Nick := ''; //Nick (3-4 letters of ur name
Players[0].Active := True; //is the player active?
{Players[1].Name := 'Username'; //username!
Players[1].Pass := 'password'; //password
Players[1].Nick := ''; //Nick (3-4 letters of ur name
Players[1].Active := True; //is the player active?
Players[2].Name := 'Username'; //username!
Players[2].Pass := 'password'; //password
Players[2].Nick := ''; //Nick (3-4 letters of ur name
Players[2].Active := True; //is the player active? }
Mousespeed := 20; //SPeed of mouse change if you want (20 maybe)
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(true);
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3220 + Random(2415));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
{Made by The Voice In YourHead (replacing mine}
function KillChickens: boolean;
var
l, i: Integer;
ChickenPointsATPA: T2DPointArray;
ChickenPoints: TPointArray;
ChickenPoint: TPoint;
begin
if not LoggedIn then TerminateScript;
l := High(ChickenColors);
FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
if Length(ChickenPoints)=0 then
FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
SortATPASize(ChickenPointsATPA, True);
for i := 0 to High(ChickenPointsATPA) do
begin
ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
Wait(750);
if ChooseOption('hicken') then
begin
Result := True;
Exit;
end;
end;
end;
{feather Pickup by TheVoiceInYourHead}
function PickupFeathers: boolean;
var
i: Integer;
FeatherPoints: TPointArray;
FeatherPointsATPA: T2DPointArray;
FeatherPoint: TPoint;
begin
if not LoggedIn then TerminateScript;
FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 5);
if Length(FeatherPoints)=0 then
FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 10);
if Length(FeatherPoints)=0 then
TerminateScript;
FeatherPointsATPA := SplitTPA(FeatherPoints, 3);
SortATPASize(FeatherPointsATPA, True);
for i := 0 to High(FeatherPointsATPA) do
begin
FeatherPoint := MiddleTPA(FeatherPointsATPA[i]);
MMouse(FeatherPoint.x, FeatherPoint.y, 0, 0);
Wait(750);
if IsUpText('eather') then
begin
Mouse(FeatherPoint.x, FeatherPoint.y, 0, 0, False);
Wait(750);
if ChooseOption('eather') then
begin
Result := True;
Exit;
end;
end;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
end;
begin
SetupSRL;
LoginPlayer;
repeat
FindNormalRandoms;
if KillChickens then
Inc(ChickensKilled);
PickupFeathers;
ProgressReport;
until(ChickensKilled=ChickensToKill)
end.