You don't want people who spam to get free Jr. Member running your script.
They'll never post proggies.
How's it looking so far, Joelster?
Printable View
You don't want people who spam to get free Jr. Member running your script.
They'll never post proggies.
How's it looking so far, Joelster?
Chicken raper is good name yeah better then Darando
:f: :f:
Quote:
Originally Posted by TheVoiceInYourHead
True but they can post feedback/SRL randoms report...thats if randoms are still up after update:confused:
Randoms still work after the update :]
I think a few of them [box, etc] are having difficulties though.
kk i prolly didnt set my nick right....
VERSION 7 RELEASED NOW YOU GUYS CAN POST PROGGIES!!
Note: it counts feathers in bag...so plz start with none there..
================================================== =
|| Chickenz Killed: 2 ||
|| Featherz Gathered: 1270 ||
|| Ran For: 1 Minutes and 54 Seconds ||
================================================== =
thats what i mean
You don't have some of your functions set up right.
EDIT: Use this as your KillChicken procedure:
SCAR Code:function KillChicken: boolean;
var
X, Y, Mark, Check: Integer;
begin
Check := ChickensKilled;
if FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3) then
begin
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
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);
AntiRandoms;
Inc(ChickensKilled);
if ChickensKilled>Check then
Result := True;
end;
end;
It will result true if it kills a chicken. It will also increase ChickensKilled every time it clicks a chicken. This is because I used your FindObjCustom as a boolean, instead of a procedure as you did.
yea i knowz ill fix up laters helpin in2it atm
Also, the feather counting procedure won't be efficient enough. You need to have it count the feathers at the beginning, then have it count them at the end.
EDIT: Here's the script with a working feather counter, a few standards fixed, and a few other things I thought might help you. If you don't understand something in it, PLEASE ASK!
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)/\
/\Creds also to d1s3l for Counting/proggy!!!!!!!!!!!!!!!!!!!!1 /\
/\ /\
/\ /\
/\ 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}
var
ProggyTimer, ChickensKilled,
FeathersDTM, FeatherCountStart: Integer;
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 := 'sdef'; //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;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
FeathersDTM:= DTMFromString('78DA637461626078C28002D62C5CC06003A41' +
'981F83F1030FA02D55C6740038C482490F600AA794E408D0D50CD' +
'5B026AEC806A1EE257030001080C01');
SetRun(True);
FeatherCountStart := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
FreeDTM(FeathersDTM);
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 Report;
var
FeathersPicked: Integer;
begin
FeathersPicked := FeatherCountStart - Players[CurrentPlayer].Integers[1];
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
WriteLn(Padr('|| Feathurs: ' + IntToStr(FeathersPicked), 49) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
WriteLn('===================================================');
end;
function InventoryCount: Integer;
var
i: Integer;
begin
GameTab(4);
Result := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
FreeDTM(FeathersDTM);
for i := 1 to 28 do
if (ExistsItem(i)) then
Result := Result + 1;
end;
function KillChicken: boolean;
var
X, Y, Mark, Check: Integer;
begin
Check := ChickensKilled;
if FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3) then
begin
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
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);
AntiRandoms;
Inc(ChickensKilled);
if ChickensKilled>Check then
Result := True;
end;
Players[CurrentPlayer].Integers[1] := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
FreeDTM(FeathersDTM);
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;
Report;
until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
SendSRLReport;
if (GetSystemTime >= ProggyTimer) then
begin
Report;
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
end;
end.
Pretty good script thx when I have proggie will post
Ok thanks TheVoice and bob im looking forward to your proggy :D
will update V7 now
================================================== =
|| Chickenz Killed: 56 ||
|| Featherz Gathered: 680 ||
|| Ran For: 5 Minutes and 34 Seconds ||
================================================== =
yippe, good for non members to get money. =] besides clay i mean
Wow. Good to see that the feather counter works!
GREAT to see that this script is actully working! thanks for proggy will look back later
**off topic** My coms net has crashed using dads/deleting his history so he dosnt find this site (im not sposed to be playing RUnescape or anything to do with it because i play WoW :D so ill try and get my net back up ASAP thanks again for proggy!**End of off topic**
================================================== =
================================================== =
|| Chickenz Killed: 4 ||
PROBLEM: inv interface not open
|| Featherz Gathered: 25 ||
|| Ran For: 5 Minutes and 32 Seconds ||
================================================== =
Didn't run very well.. It hovered over the chicken but never clicken "Attack"
in2it, get the newest version.
Thevoice i get this error:
ROBLEM: inv interface not open
[Runtime Error] : Exception: Access violation at address 006D66D1 in module 'scar.exe'. Read of address 0000001C in line 163 in script C:\Documents and Settings\Lisa\Desktop\Scripts\Chicken Raper V7.scar
Mkai. Here it is fixed. I accidentally had it freeing the DTM everytime it used it, instead of at the end of the script. Here's the fixed script:
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:7 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
/\Creds also to d1s3l for Counting/proggy!!!!!!!!!!!!!!!!!!!!1 /\
/\ /\
/\ /\
/\ 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}
var
ProggyTimer, ChickensKilled,
FeathersDTM, FeatherCountStart: Integer;
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 := 'sdef'; //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;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
FeatherCountStart := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
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 Report;
var
FeathersPicked: Integer;
begin
FeathersPicked := FeatherCountStart - Players[CurrentPlayer].Integers[1];
WriteLn('===================================================');
WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
WriteLn(Padr('|| Feathurs: ' + IntToStr(FeathersPicked), 49) + '||');
WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
WriteLn('===================================================');
end;
function InventoryCount: Integer;
var
i: Integer;
begin
GameTab(4);
Result := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
for i := 1 to 28 do
if (ExistsItem(i)) then
Result := Result + 1;
end;
function KillChicken: boolean;
var
X, Y, Mark, Check: Integer;
begin
Check := ChickensKilled;
if FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3) then
begin
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
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);
AntiRandoms;
Inc(ChickensKilled);
if ChickensKilled>Check then
Result := True;
end;
Players[CurrentPlayer].Integers[1] := ItemAmount('inv', 'dtm', FeathersDTM, [0]);
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 ScriptTerminate;
begin
FreeDTM(FeathersDTM);
end;
procedure MainLoop;
var
Mark : Integer;
begin
FeathersDTM:= DTMFromString('78DA637461626078C28002D62C5CC06003A41' +
'981F83F1030FA02D55C6740038C482490F600AA794E408D0D50CD' +
'5B026AEC806A1EE257030001080C01');
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
AntiRandoms;
AntiBan;
Report;
until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
SendSRLReport;
if (GetSystemTime >= ProggyTimer) then
begin
Report;
ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
end;
end.
Thanks man... Add me to bud list.
Do you have or know of any good working Fletchers and Stringers if you do Post here OR msn or Email me
Ty man
script fixed download V7 (page 1) PLEASE PSOT PROGGIES!
finally with a proggy ill post 1 asap
Thanks :D
i get this error :(
[Runtime Error] : Exception: Access violation at address 006D72AA in module 'scar.exe'. Read of address 00000000 in line 294 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Amount.scar
try reading through SRl public test centre they have fixes there..im stumped on that 1
aw ok =[
Please don't spam, guys.
It fills up the thread with unneeded posts.
Joelster, how's the script going?
Yea good im working on it atm
I could help you if you would get TeamViewer :]
No installation required!
Proggies ^^
================================================== =
|| Chickenz Killed: 227 ||
|| Feathurs: -330 ||
|| Ran For: 1 Hours, 12 Minutes and 15 Seconds ||
================================================== =
Woops. I put the vars in backwords on the feather counter =P
Holysht :P
thanks man!!!
gonna try this tonight! :D
hey dude it worked wen i took of the line you told me 2 take out but it doesnt find the feathers it picked up but it doesnt matter :D it works xD btw it kept clicking on the same raw chicken like 50 times can u fix that thx :D
anyway heres a proggy:
============================
|| Chickenz Killed: 168 ||
|| Feathers: 705 ||
|| Ran For: 59 Minutes and 8 Seconds ||
============================
ok thanks for proggies :D will update soon
Don't take the line out, Joelster.
In the Proggy function, I had it subtract 2 numbers.
Just switch those numbers around.
ok thanks will try now
this is a first script? nice
actully my first ever script (when i first joined) was even worse...this was my second attempt as i thought my first script shouldn't even be counted as a script :) ty for feedback and post proggies if you use it :p
Version 8 Released!!
Well it does what it says on the tin, but somehow im not satisfied with it.
Oxxyde, it'd be helpful if you explained why you're not satisfied instead of making a general roundabout statement.
thank you.. been looking for one of these.. looking forward to using it :)
ill let you know of anything that goes wrong :P
Thanks 1nsan1ty looking forward to your proggy/feedbackQuote:
Originally Posted by 1nsan1ty
lets take alook at your first script then eh? andplease be specificQuote:
Originally Posted by Oxxyde
OH WAIT YOU DONT HAVE A FIRST SCRIPT?! guess that means stop winging and make your own see what its like :D