lolkill you nub u didn't even try it.... how u know if its decent.![]()
lolkill you nub u didn't even try it.... how u know if its decent.![]()
Voice anti randoms dont work anymore?
also dont download the one above...download from first page in here![]()
IM BACK!!!!!!!!!!!!!!!!!
Imma try this later.
'chicken raper' isnt a real good name..
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
![]()
![]()
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
IM BACK!!!!!!!!!!!!!!!!!
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
IM BACK!!!!!!!!!!!!!!!!!
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
will update V7 now
IM BACK!!!!!!!!!!!!!!!!!
================================================== =
|| 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 WoWso ill try and get my net back up ASAP thanks again for proggy!**End of off topic**
IM BACK!!!!!!!!!!!!!!!!!
================================================== =
================================================== =
|| 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!
IM BACK!!!!!!!!!!!!!!!!!
finally with a proggy ill post 1 asap
There are currently 1 users browsing this thread. (0 members and 1 guests)