Which Version were you using, it depends.
Which Version were you using, it depends.
IM BACK!!!!!!!!!!!!!!!!!
lastest 1
Did it pick up the feathers? do you have reflection??
IM BACK!!!!!!!!!!!!!!!!!
yeah it picked up feathers and i do have reflection
nvm bro its because the gate was closed anyway i saw it do a bunch of randoms thx![]()
Hmmm. You could've just edited your post. But, meh.
And, Joelster, your welcome on the feather procedure xD
can u post how to type the stff in im new (minus the username and pass) i whana see where to put stff in and how
goodhope, read a tutorial or two on how to setup players.
i agree with The but just for you
inSCAR Code:Players[0].User:='Username';//type your name in between the ' ' eg : 'fred';
same with pass nick etc...nick (short for nickname is 3-4 letters of around ur middle part of ur username eg : retardsrus ('dsru')
that's all ..
Also i think it dosn't run for me because i don't have reflectionThe did ur feather procedure require reflection?
WEll after i got Reflection it ran fineGunna add in a proggy report soon so you guys can post errors etc!
guys if you wanna use feather picker get Reflection
SCAR Code:Program New;
Var
Download: TStringArray;
Downloaded: Array[0..10] Of String;
IHI, Files: Integer;
currentver, currentversion: string;
const
thisversion = 97;
Procedure DownloadFiles;
Begin
For IHI := 0 To High(Download) Do
Begin
Downloaded[ihi] := GetPage('http://scarreflection.googlecode.com/svn/trunk/' + Download[ihi]);
WriteLn(download[ihi]);
End;
End;
Procedure Install;
Begin
For Ihi := 0 To High(Download) Do
Begin
Files := RewriteFile(AppPath + '\Includes\SRL\SRL\Reflection\' + Download[ihi], False);
WriteFileString(Files, Downloaded[ihi]);
CloseFile(Files);
End;
End;
Procedure AutoUpdate;
begin
Download := ['Changelog.txt', 'Characters.Scar', 'Core.scar',
'Depreciated.scar', 'Hooks.Scar', 'Objects.Scar', 'README.txt',
'Reflection.Scar', 'Walking.Scar', 'Items.scar'];
currentver := GetPage('http://scarreflection.googlecode.com/svn/trunk/');
currentversion := Between('<title>Revision ', ': /trunk', currentver);
WriteLn('Our current version is: '+inttostr(thisversion)+' and the latest version is: '+currentversion);
If (thisversion = strtoint(currentversion)) then
begin
WriteLn('We got the latest Reflection !');
exit;
end else
begin
DownloadFiles;
Install;
end;
end;
Begin
AutoUpdate;
End.
run that to get reflection then download script! (on page 1 aswell)
IM BACK!!!!!!!!!!!!!!!!!
No, it uses DTM Finding.
Can someone help me add in a proggy..this is what ive got so far...WILL ADD TO CREDS + REP YOU!
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:6 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
/\ /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! + feather pickup! /\
/\ /\
/\ 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'; //username!
Players[0].Pass := 'password'; //password
Players[0].Nick := 'uga'; //Nick (3-4 letters of ur name
Players[0].Active := True; //is the player active?
players[0].Integers[0]:=1000; //Amount of chickens you wanna kill
{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 //
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);
5: HoverSkill('Smithing', 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;
//---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\
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 ProgressReport;
begin
writeLn('${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}$');
writeLn(' ChickenRaper V6 Feather Pickup');
writeLn(' Ran for: ' + TimeRunning);
Writeln(' ToTalChickensRaped: ' + IntToStr(ChickenCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' Chicken.');
writeLn('${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}$');
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
ProgressReport;
until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
end.
IM BACK!!!!!!!!!!!!!!!!!
Nice work Joel, the Speed of the mouse could be faster (which you can change in script tho) my first try it went for 15mins ( i stopped it) xp gained like 2.5k and got a few randoms![]()
Thanks for feedback mate...just increase mouse speed if you wantadding in a proggy so ppl can post on here soon
![]()
IM BACK!!!!!!!!!!!!!!!!!
K Cool PM when proggie is up so i can show how good your script is![]()
Will do add me to buddies![]()
IM BACK!!!!!!!!!!!!!!!!!
New Updates: MouseSpeed+ added in more Anti Randoms.![]()
IM BACK!!!!!!!!!!!!!!!!!
Cool its even better now with MORE anti randoms and anti ban
Thanks please post how it runs/if it diesi wanna make this as best as i can!
the more feedback the more ill update
IM BACK!!!!!!!!!!!!!!!!!
Need a good yew /banker for edgville and lumby flax spinner if you can help PM me or send me the ScriptTY
Bugs: Keeps right clicking on Raw chicken after icking up feathers...FIXED!
put this into SCAR i fixed the chicken colors+ mouse speed is slower (was to fast before)
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:6 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
/\ /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! + feather pickup! /\
/\ /\
/\ 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 := 'equ'; //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:= 10;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms //
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);
5: HoverSkill('Smithing', 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', 'chi', 'ken'], [4300721, 989558, 9812173, 3627895, 2047829], 3);
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
if not ChooseOption('ttack') then
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
if HPPercent < 25 then RunTo('N', true);
Wait(300);
AntiRandoms;
end;
//---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\
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
AntiRandoms;
begin
Flag;
Result := True;
AntiRandoms;
end;
end;
end;
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
AntiRandoms;
AntiBan;
until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
end.
IT RAN FOR A HOUR NO PROBLEMS(was at a school meeting and tested
)
IM BACK!!!!!!!!!!!!!!!!!
nice script![]()
Wow suspended..waht for if i may ask? also In2it if you want a Yew chopper/bank ask me on msn and i will discuss making one with you.
IM BACK!!!!!!!!!!!!!!!!!
The way you changed the mouse speed, I believe you made it move slower.
Try moving it to a higher number.
15 is SRL's default, try 20.
It doesn't really matter what mouse speed you use >.<
kk when it was on 20 it seemed really fast so i changed it and it slowed down.
IM BACK!!!!!!!!!!!!!!!!!
Oh. Well, 15 is SRL's default. So, just completely take MouseSpeed out of your script, if you want to use 15.
There are currently 1 users browsing this thread. (0 members and 1 guests)