SRL Archive - RS3 Outdated / Broken Scripts

CHICKENEATER V2.0

This is my SECOND script EVER made in scar..


*** WHAT IT DOES? ***

** Kills chickens below Falador OR near Lumbridge.
-
** Picks up feathers.
-
** Antiban (AUTORESPONCE!!)
-
** Antirandom

++++++++++++++++++++++++++++++++++++++++

Remind this is my Second script made…

please post tips + progress reports ( that doesn't work sometimes (please tell me why) )

DON'T LEECH IT ATLEAST POST THANKS OR SOMETHING….

woot first post :D iil test it out tonight on lappy:p

popmun.

will test!
(second post)
ill edit this w/ a proggy/errors

alright, Good luck with it

Looks great, need it to train and get feathers for my fishing acc. :)
Will post proggy soon I hope.

I hope also that it works :)

nice 'second' script dude ;) keep it up!

/// Credits to Masterkill for helping me on some parts /// :)

thanks :)

you helped me alot with the basics to get it untill here :P

nice scripts dumpje works great;) keep going

nice second script dude, keep it up!
Let's help you a bit :)

procedure AttackChicken;

procedure attackchicken;
Begin
  If FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
  begin
    Mouse(x, y, 0, 0, False);
    Wait(100 + random(100));
    if ChooseOption('ttack') then
    begin
      attacktimes := attacktimes + 1;
      WriteLn('attacking a chicken time ' + inttostr(attacktimes));
      Wait(3000 + random(1000));
      exit;
    end else
    repeat
  If not FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
     NotFound := NotFound + 1;
if FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then NotFound := 0
until (NotFound > 15)
 writeln('Cannot find any chicken, switching player');
  Logout;
   NextPlayer(True);
  Exit;
    end;
  end;

Let's look closer to this:

end else
    repeat
  If not FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
     NotFound := NotFound + 1;
if FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then NotFound := 0
until (NotFound > 15)

So what you actually want to do is:
When it doesn't finds the chicken it will try again and repeat trying for 15 tims. Right?

Why not adding a boolean to it and result it as true when you the chicken is found?
Something like this:

You add the boolean var:

procedure attackchicken;
var
  ChickenFound: boolean;
Begin
..

Than you check: (posted explanation above)

end else
repeat
  If FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
  begin
    Writeln('Found the chicken.');
    ChickenFound:= true;
    Mouse(x, y, 0, 0, True);
  end else
  begin
    NotFound := NotFound + 1;
    Writeln(inttostr(NotFound)+'/'15 tries.');
  end;
until (ChickenFound) or (NotFound > 15)

You can also make it a function instead of a procedure, than you'll have something like this:

function attackchicken: boolean;
var
  ChickenFound: boolean;
Begin
  If FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
  begin
    Mouse(x, y, 0, 0, False);
    Wait(100 + random(100));
    ChooseOption('ttack');
    Flag;//if the chicken isn't near you, you will have to walk, so Flag is needed.
    result:= true;
    attacktimes := attacktimes + 1;
    WriteLn('attacking a chicken time ' + inttostr(attacktimes));
    Wait(3000 + random(1000));
    exit;
  end else
  repeat
    If FindObjCustom(x, y, ['Chicken', 'cken', 'hick'], [Chickencolor1,Chickencolor2,Chickencolor3], 4) then
    begin
      Writeln('Found the chicken.');
      ChickenFound:= true;
      Mouse(x, y, 0, 0, False);
      Wait(100 + random(100));
      ChooseOption('ttack')
      Flag;//if the chicken isn't near you, you will have to walk, so Flag is needed.
      result:= true;
      attacktimes := attacktimes + 1;
      WriteLn('attacking a chicken time ' + inttostr(attacktimes));
      Wait(3000 + random(1000));
      exit;
    end else
    begin
      NotFound := NotFound + 1;
      Writeln(inttostr(NotFound)+'/15 tries.');
    end;
  until (ChickenFound) or (NotFound > 15)
  if NotFound > 15 then
  begin
    writeln('Cannot find any chicken, switching player');
    NextPlayer(True);
    result:= false;
    Exit;
  end;
end;

if you understand what's up here then you're on the good way bro, then you can look through it and make those things by yourself by logicly thinking ;)

procedure RespondChat;

procedure Respondchat;
begin
if (InChat('att lvl?') or
      InChat('att level?') or
      InChat('attack level?') or
      InChat('attack lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
      RespondAmount := RespondAmount + 1;

if (InChat('str lvl?') or
      InChat('strenght level?') or
      InChat('str level?') or
      InChat('strenght lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

if (InChat('def lvl?') or
      InChat('defence level?') or
      InChat('def level?') or
      InChat('defence lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

if (InChat('hp lvl?') or
      InChat('hitpoints level?') or
      InChat('hp level?') or
      InChat('hitpoints lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

if (InChat('Ranged lvl?') or
      InChat('ranged level?') or
      InChat('range level?') or
      InChat('ranged lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

if (InChat('pray lvl?') or
      InChat('prayer level?') or
      InChat('pray level?') or
      InChat('prayer lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

if (InChat('mage lvl?') or
      InChat('magic level?') or
      InChat('mage level?') or
      InChat('magic lvl?')) then
      begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;

   end;
end;
end;

A golden rule: every "begin" has got an "end; : "

procedure Respondchat;
begin
if (InChat('att lvl?') or
    InChat('att level?') or
    InChat('attack level?') or
    InChat('attack lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('str lvl?') or
    InChat('strenght level?') or
    InChat('str level?') or
    InChat('strenght lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('def lvl?') or
    InChat('defence level?') or
    InChat('def level?') or
    InChat('defence lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('hp lvl?') or
    InChat('hitpoints level?') or
    InChat('hp level?') or
    InChat('hitpoints lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('Ranged lvl?') or
    InChat('ranged level?') or
    InChat('range level?') or
    InChat('ranged lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('pray lvl?') or
    InChat('prayer level?') or
    InChat('pray level?') or
    InChat('prayer lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
if (InChat('mage lvl?') or
    InChat('magic level?') or
    InChat('mage level?') or
    InChat('magic lvl?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('strenght')))
      RespondAmount := RespondAmount + 1;
    end;
end;

There are still other things that I can tell, but I 'fixed' your script and i put info over there too ;)

P.S. It's an attachment in this post:)

Ill take a look thanks! can you also tell me why my progress report doesn't work?

EDIT: I currently started on an Autofighter.. I will use your tips to make it better ;)

From: Dumpin
Ill take a look thanks! can you also tell me why my progress report doesn't work?

EDIT: I currently started on an Autofighter.. I will use your tips to make it better ;)

Thanks ;)
The progress Report, because you only call it once before the script starts, so it always will be an empty progress report ;)
Put it while you're fighting or just use a timer and do like every 3 mins printing the progress report.
Experiment a bit how to work with it you'll have to use

"Marktime(Name_Of_Of_The_Variable_Timer)"

and

"TimeFromMark(Name_Of_Of_The_Variable_Timer_You_Used_In_MarktTime)"

variable has to be an integer/longint (just use integer ;))

In my opinion it's better to experiment in these things, but if you still have some problems, PM me ;)

ok I will try..

( spreken we de zelfde taal? ) :P

"until(kills=>HowManyKills)" gives syntax error in the fixed version.

make it:

until(kills = HowManyKills)

new version posted!!! V.2

Thanks alot. making bot army:stirthepot: :f: and no lvl 3 n00bs with crappy names lvl 40 bots with cool names.

that's how to auto ;) good luck!

From: scarn00b
Thanks alot. making bot army:stirthepot: :f: and no lvl 3 n00bs with crappy names lvl 40 bots with cool names.

No. We do not bot, we auto, if there's really any difference :P.

will test tonight and post proggy tomorrow

From: hey321
No. We do not bot, we auto, if there's really any difference :P.

ok… so i call em autos? =P btw auto = car in finnish
…or autoer army? ok so autoers they are, but can u call a char autoer when u can call some1 who autos autoer… or can you?:confused:

Ok, that was a lot of offtopic all related to topik under this line.
—————————————————————————–
I had to chance chiken color to get this to work(in lummy haven't tryed under fally). The red from the chicken and yellow from the leg. Also logs out too soon if cant find chicken. But its getting better all the time and works for me now. Best chicken killer that i have found. So its good or I am blind.

From: scarn00b
ok… so i call em autos? =P btw auto = car in finnish
…or autoer army? ok so autoers they are, but can u call a char autoer when u can call some1 who autos autoer… or can you?:confused:

Ok, that was a lot of offtopic all related to topik under this line.
—————————————————————————–
I had to chance chiken color to get this to work(in lummy haven't tryed under fally). The red from the chicken and yellow from the leg. Also logs out too soon if cant find chicken. But its getting better all the time and works for me now. Best chicken killer that i have found. So its good or I am blind.

thanks!! I tested it in falador because it is with less people so much more kills.

Ok think im going to fally. Lummy so full.

yes I know, good luck with it!! people please post something!!

or are you just some retards that are just junior member and still don't post a D*mn

From: Dumpin
yes I know, good luck with it!! people please post something!!

or are you just some retards that are just junior member and still don't post a D*mn

A lot better now, congratz with your new scripting ;)
Also thanks for adding me in credits that I helped ya;)

EDIT: You lef tyour username and password in it!
I pm'ed you the new details!:)

ooh crap, lucky it where that onces.. otherwise one of you guys where a little richer :P

:(h): Alright here it is

It did kill chickens but it is not recording it

it does not wait long enough after selecting a chicken to kill it if you have a low lvl player.

it does not pic up all feathers you get from kill just some

I had to reset the colors to make it work( no problem)

it does not loop back to the 0 player after going thru the other 5

Coolluke:(h):

%%CHICKEN%%%EATER%%
%%%%BY%%%DUMPIN%%%%
%%%%%%%%%%%%%%%%%%%
Chicken(s) killed: 0
%%%%%%%%%%%%%%%%%%%

__ |__ o __ |__, ___ __ |__, o | | ___ __
(___ | ) | (___ | \ (__/_ | ) | \ | |_, |_, (__/_ |
BY DUMPIN —– POST PROGRESS REPORT OR DIE =) ———-
1/15 tries.
2/15 tries.
3/15 tries.
4/15 tries.
5/15 tries.
6/15 tries.
7/15 tries.
8/15 tries.
9/15 tries.
10/15 tries.
11/15 tries.
12/15 tries.
13/15 tries.
14/15 tries.
15/15 tries.
16/15 tries.
Cannot find any chicken, switching player
NextPlayer

Successfully executed

uhm

ok… did Jagex change chickencolors again? cause like last week it worked fine for me

From: Dumpin
uhm

ok… did Jagex change chickencolors again? cause like last week it worked fine for me

is that the function that I posted?
If so, the color in it isn't from a chicken, It's just something I made, so check the color :)

I tested it for few minutes, worked great :)

Ok last report (hopefully). now works perfectly. Only I wish my internet w-lan adapter would be better. Has canceled the connection allways I come back to chek the bot. But the bot is perfect and solved cap and hand for me=)

If so, the color in it isn't from a chicken, It's just something I made, so check the color :)

ooh yes… LOL thought it where the same chicken colors.. Updating it now!

EDIT: hmm, you did full in the const Value.. It was good… ]

Could someone post the new colors?
bit busy atm so can't look for it ;)

thanks for comments ;)

Great Script. Works flawlessly. I would post proggy but theres always too many people at chickens so I'm going to go to some other monsters.

ok thanks, I will do an update soon

Worked for 36minutes, no problems.
Thanks :)

I was about to flame your ass off for not having standards.. then I actually looked at your script, I was like 'woah, nice standards'.

Good job, although there are some problems with the script… for 1, if it can't find the chicken after one shot, it logs off? Thats a bit silly, you should use a loop… example:

procedure AttackChickens;
var R : Integer;
begin
  MarkTime(R);
  repeat
    //Your chicken finding stuff...
    if (FoundChicken) then MarkTime(R);
  until(TimeFromMark > 30000) or (Not(LoggedIn));
end;

What that basically does, is if it can't find a chicken for 30 seconds, then it'll log out. But if it finds one, then it has another 30 seconds to find another.

Also, why right clicking and doing chooseoption? You could always use IsUpText.

lol ok thanks for comments when I am not to lazy Ill update it

thank you for the script can u add bone burying to it

I could, but…
that will get alot of randoms, use an bone burier instead ;) my script will rune much longer then

Thanks i gonna test it tonight :)

OKI thanks :P

Awsome script! Only one problem what looks funny; when the chicken went to cow field (near it) your "Chiken eater" changed to "Cow eater" :D

realy? does it attack the cows? funny.