I'm fixing the standards, and I'll try to add a Feather Picker Upper.
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, /\
/\ /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! /\
/\ /\
/\ Run:Setup lines 39-56 select window hit run! /\
/\ /\
/\ /\
/\ /\
/\ NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT! /\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}
program Chicken_Raper;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
const
ChickenColor1 = 857704; // change if you need to
ChickenColor2 = 3430256; //change if you need to
ChickenColor3 = 4897230;//change if you need to
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //current player
Players[0].Name := ''; //username!
Players[0].Pass := ''; //password
Players[0].Nick := 'uga'; //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? }
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms thanks//
//to Ocean's 1 willow choppa //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
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(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure KillChicken;
var
X, Y, Mark: Integer;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
if HPPercent < 25 then RunTo('N', true);
Wait(300);
if HPPercent <100 then FindNormalRandoms;
end;
function PickupFeathers: boolean;
var
x, y, FeatherDTM: integer;
begin
FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C401' +
'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A433B' +
'77A0A80100CAC20B42');
if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('eather') then
begin
Flag;
Result := True;
end;
end;
end;
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
end.
Added a feather picker upper, fixed standards, removed unnecessary things, added things that needed implemented, added SetupSRL;.
You made the AntiRandoms; procedure, but never called it =]