SCAR Code:
{-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-)
( ---------------I'm new to SRL, and hopefully, this--------------- )
( ----------------will be my first functional script--------------- )
(-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-)
( ------ v1: Features: Chicken finder------------------------------ )
( ---------------------Feather picker------------------------------ )
(-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-)
( Lines of Setup: 20-24,28-45-------------------------------------- )
(-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
program FeatherFarmer;
var
i,x,y,k,f
FeatherDTM, feathertext, chickencolor1, chickencolor2,
chickencolor3, chickenkills, antibans: integer
const MySRLID = '';
const MySRLPassword = '';
const chickencolor1 = ''; //crest
const chickencolor2 = ''; //dark shadow
const chickencolor3 = ''; //another dark shadow
Procedure AntiRandoms;
Begin
Status('Doing AntiRandoms');
for i:=0 to 3 do
begin
FindNormalRandoms;
Wait(30+random(50));
end;
end;
procedure Antiban;
begin
if not LoggedIn then Exit;
case Random(68) of
0:
begin
HoverSkill('Hitpoints', False);
Antibans:=Antibans+1;
end;
1:
begin
HoverSkill('Defence', false);
Antibans:=Antibans+1;
end;
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
Antibans:=Antibans+1;
end;
3:
begin
BoredHuman;
Antibans:=Antibans+1;
end;
end;
Procedure LoadDTM;
begin
FeatherDTM := DTMFromString('78DA630C60606030634001AC1A6C609A11CA6' +
'70C0412A6A86AB6AE5A89AAC60753CDCEF5EB50D5780209735435' +
'270F1D4455E30B242C08A809C4547374EF5E5435C184FD0500665' +
'30F0E');
end;
procedure findfeather;
begin
if (FindDTM(FeatherDTM: x, y, MSX1, MSY1, MSX2, MSY2)then
begin
wait(800 + random(600));
Mouse(x, y, 2, 2, True);
break
end else
f:=f+1
end
procedure chickenfight;
begin
if NotLoggedIn then exit
case Random(3) of
1:
Begin
if FindColorSpiralTolerance(x, y, chickencolor1, MSX1, MSY1, MSX2, MSY2, 15) then
Mouse(x, y, 2, 2, True);
end else
writeln('cannot find chicken...attempting again');
k:= k + 1
if k > 10 then writeln('chickens out of range...stopping script');
exit else
chickenfight;
end;
2:
Begin
if FindColorSpiralTolerance(x, y, chickencolor2, MSX1, MSY1, MSX2, MSY2, 15) then
Mouse(x, y, 2, 2, True);
end else
writeln('cannot find chicken...attempting again');
k:= k + 1
if k > 10 then writeln('chickens out of range...stopping script');
exit else
chickenfight;
end;
3:
Begin
if FindColorSpiralTolerance(x, y, chickencolor3, MSX1, MSY1, MSX2, MSY2, 15) then
Mouse(x, y, 2, 2, True);
end else
writeln('cannot find chicken...attempting again');
k:= k + 1
if k > 10 then writeln('chickens out of range...stopping script');
exit else
chickenfight;
end;
wait(9999 + 1 + random(5000));
repeat
findfeather;
if f > 5 then break
until(false)
chickenkills:= chickenkills + 1
end;
procedure Proggy;
begin
cleardebug;
writeln('+++++++++++++++++++++++++++++++++++++');
writeln('Killed ' +IntToStr(chickenkills)+' Chickens!');
writeln('Performed ' +IntToStr(Antibans)+ ' Antibans');
writeln('Ran for ' +TimeRunning);
writeln('+++++++++++++++++++++++++++++++++++++');
end;
procedure SRLStats;
begin
SRLID := MySRLID;
SRLPassword := MySRLPassword;
end;
begin
SetupSRL
SRLStats;
repeat
AntiRandoms;
Antiban;
LoadBitmap;
ColorPicker;
k:=0
f:=0
chickenfight;
FreeDTM(FeatherDTM);
until(TimeRunning:=60)
Proggy;
end.