[SRL 4]ChickenEater

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;

SCAR Code:

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:

SCAR Code:

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:

SCAR Code:

procedure attackchicken;
var
  ChickenFound: boolean;
Begin
..

Than you check: (posted explanation above)

SCAR Code:

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:

SCAR Code:

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;

SCAR Code:

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; : "

SCAR Code:

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 ;)

Quote:

---

Originally Posted by 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

Quote:

---

"Marktime(Name_Of_Of_The_Variable_Timer)"

---

and

Quote:

---

"TimeFromMark(Name_Of_Of_The_Variable_Timer_You_Us ed_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!

Quote:

---

Originally Posted by 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

Quote:

---

Originally Posted by 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.

Quote:

---

Originally Posted by 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

Quote:

---

Originally Posted by 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