Page 1 of 2 12 LastLast
Results 1 to 25 of 32

Thread: IMF's Chicken Killer

  1. #1
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default IMF's Chicken Killer

    SCRIPT STATUS: OUTDATED AND NOT BEING UPDATED

    Heres a chicken killer. I'd appreciate it if you posted a idea of how to improve it.

    It has SMART, a autoresponder(to things like asking combat levels), disguises itself, Picks up feathers, antiban, antirandoms.

  2. #2
    Join Date
    Feb 2008
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you add SMART support for this? It would be way better.

  3. #3
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There, updated to work with SMART.

  4. #4
    Join Date
    Feb 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow this works so smooth

  5. #5
    Join Date
    Feb 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is the first script i have acctualy had work!

  6. #6
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for feedback, but don't double post. Use the edit button.

  7. #7
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good work ! learn standars


  8. #8
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is a very good script for your first one. I only saw a few problems.

    your attack mode procedures can be condensed in to a case:

    SCAR Code:
    procedure SetAttackMode;
    begin
      Case Players[CurrentPlayer].Skill Of
        'Strength' :
          SetFightMode(2);
        'Attack' :
          SetFightMode(1);
        'Defence' :
          SetFightMode(4);
      end;
    end;

    Your main loops standards are a bit odd. I fixed them up a bit:
    SCAR Code:
    begin
      SetupSRL;
      SmartSetupEx(World, false, false);
      wait(10000+random(5000));
      SetTargetDC(SmartGetDC);
      repeat
        wait(100);
      until(SmartGetColor(253, 233)<>1118604);
      DisguiseIt;
      DeclarePlayers;
      MarkTime(NextPlayerTime);
      SetUpPlayers;
      repeat
        KillChicken;
        SetAttackMode;
        Wait(200 + Random(32));
        ClearDebug;
        Proggie;
        AntiBan;
        If (TimeFromMark(NextPlayerTime) > 14 * 10000) then
        begin
          Wait(7000 + Random(5000));
          Logout;
          NextPlayer(True);
        end;
     Until(False);
    end.

    You should make a separate procedure for your antiban instead of just having it in your main loop:
    SCAR Code:
    procedure AntiBan;
    begin
      case random(250) of
        0: OutOfScreen(4000 + Random(2000));
        1: RandomRClick;
        2: BoredHuman;
      end;
    end;

    Another thing is that the functions that you made should be made into procedures since you never use the result.

    Also cases start at 0:, not 1:.

    One more thing, I noticed that some of your standards were off in a few of your other procedures. I fixed them for you:
    SCAR Code:
    Procedure KillChicken;
    begin
      If not LoggedIn then exit;
      If (InFight = False) then
      begin
        If FindObjCustom(x, y, ['ttack', 'hicken'], [3628151, 6521491], 5) then
        begin
         Mouse(x,y,2,2,true);
         PickupFeathers;
         Chickens:= Chickens + 1;
         FindNormalRandoms;
        end;
      end;
    end;
    SCAR Code:
    Procedure SetUpPlayers;
    begin
      If not LoggedIn then LoginPlayer;
      GameTab(4);
      SetAngle(true);
       case random(3) of
        0: HoverSkill('strength',false);
        1: HoverSkill('attack',false);
        2: HoverSkill('defence',false);
       end;
    end;

  9. #9
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    LMAO

    {.Script Info:
    # ScriptName = PowerWillowCutter
    # Author = Iron man ftw
    # Description = Cuts Willows and drops them
    # Version = 0.01
    # Date = Feb 28, 2008
    # Comments =
    /Script Info}

  10. #10
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol @ P1nky

  11. #11
    Join Date
    Feb 2008
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added working SMART? I love you.

  12. #12
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by p1nky View Post
    LMAO

    {.Script Info:
    # ScriptName = PowerWillowCutter
    # Author = Iron man ftw
    # Description = Cuts Willows and drops them
    # Version = 0.01
    # Date = Feb 28, 2008
    # Comments =
    /Script Info}
    Lol sorry i was going to make a powercutter but then i made a chicken killer instead.

    Thanks a lot for helping, skilld u. You helped me a lot.

    EDIT: updated script thanks to skilld u's help.

  13. #13
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    np, if you ever need any more help you can pm me.

  14. #14
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks.

    Updated with a few fixes to things, and added a autoresponder which i'm not sure if it would work or not, but it should. I think i did correct standards on it, but i'm not sure. I'm still getting used to using the actual standards and not my own.

  15. #15
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you should do something like this so that you can say your actual level in the responder
    SCAR Code:
    procedure GetTheLevel;
    begin
      TheLevel := GetSkillInfo('woodcutting', false);
      Writeln('Your Wc Level is ' + IntToStr(TheLevel));
    end;

  16. #16
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Why with the woodcutting again :]

    Nice script here aswell. Like people have said though, your standards need to be tidied.

    And instead of pasting the thread in the post, attach it (When you post a thread scroll down and see "Manage Attatchments", find your SCAR script, attatch it and then post your thread.

    Means you can see how many downloads your script has got :]
    Jus' Lurkin'

  17. #17
    Join Date
    Feb 2008
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    workin with 2players 4 about 2hrs now very nice

  18. #18
    Join Date
    Nov 2007
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey,

    that's a pretty nice first script
    but then again, chickens are quite small, and there are alot of people around that area, so wouldn't a colourpicker like scar missclick/be too slow for chicken? :/ If that is not a problem, then I just say gratz on your script I'm sure it'll get a lot better.

  19. #19
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated to auto respond with your actual levels, thanks, skilld u.

    Edit: hamster, its not to much of a problem, it will just not get as many chickens as a usual player would, but it can play for a lot longer making it get more chickens, so it all evens out.

  20. #20
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was just reading through again and I saw your feather counting thing. I think that there is a procedure in SRL that counts stacked items for you. Ill post what it is in a sec.

    edit:
    SCAR Code:
    AmountColor(area: String; color, tol: Integer)

    you would use it like this:
    SCAR Code:
    AmountColor('inv',  Chickencolor, 10)

    edit 2:
    your antiban is really short, you should make it have more options for each one.
    Here is a little piece from my script.
    SCAR Code:
    procedure MyAntiBannage;
    begin
      case Random(20) of
        0: begin
             RandomRClick;
             Wait(40 + Random(20));
             Mouse(40 - Random(20), 30 + Random(20), 5, 5, False);
             Wait(10 + Random(55));
             MMouse(5 + Random(60),5 + Random(60),5,5);
           end;
        1: begin
             BoredHuman;
             Wait(40 + Random(30));
             MMouse(20,49,10,10);
           end;
        2: begin
             RandomMovement;
             Wait(40 + Random(25));
             MMouse(403 - Random(45), 200 - Random(35), 5, 5);
           end;
        3: AlmostLogout;
           etc...

    your standards were a bit off in your responder. i fixed them.
    SCAR Code:
    procedure RespondToMessages;
    begin
      If InChat('tr lev') or
      InChat('trength lev') then
       begin
         StrLev := GetSkillInfo('strength',false);
         case Random(2) of
           0: TypeSend('my str level is' + IntToStr(StrLev));
           1: TypeSend('str lvl is' + IntToStr(StrLev) + ' lol');
           2: TypeSend('strength level... uhhh...' + IntToStr(StrLev));
         end;
         if InChat('tt lev') or
         InChat('ttack lev') then
         begin
           AttLev := GetSkillInfo('attack',false);
           case Random(2) of
             0: TypeSend('attack level is' + IntToStr(AttLev));
             1: TypeSend(IntToStr(AttLev) + 'hehe');
             2: TypeSend('uhhh' + IntToStr(AttLev));
             3: TypeSend(' ');
           end;
         end;
         if InChat('ef lev') or
         InChat('efence lev') then
         begin
           DefLev := GetSkillInfo('defence',false);
           case Random(2) of
             0: TypeSend('my defence level is ' + IntToStr(DefLev));
             1: TypeSend('mine is ' + IntToStr(DefLev));
             2: TypeSend('uhh, ' + IntToStr(DefLev));
             3: TypeSend('def lev for me is' + IntToStr(DefLev));
           end;
        end;
      end;
    end;

  21. #21
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm thanks, i'll do some fixes to things than post another update to it. Btw, rep'd you.

  22. #22
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, thanks. I think that you should make an InFight; function so that if the chicken is already under attack then it wont attack it. I'm gonna test your script and I'll post a short proggy in a few minutes.

  23. #23
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it has a few kinks in the actual finding of the chickens, but i think different colors from what i picked might help.

    I'm thinking of adding a bitmap of if it gets into the certain area where it seems to click alot with the colors i picked, it will click on the middle of the chicken coop.

    I try to use standards, but i just can't get them right lol

  24. #24
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  25. #25
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah i read that tut last night, it helped my standards a bit, still getting used to it though.

    Btw, would this work for my counting feathers function:

    SCAR Code:
    function CountTheFeathers:integer;
    begin
      Feathers := AmountColor('inv',  ColorOfFeather, 10);
    end;
    and now my proggie is
    SCAR Code:
    procedure Proggie;
    begin
      WriteLn('***********************************************');
      WriteLn('***********************************************');
      WriteLn('*********Chicken Killer by Iron man ftw********');
      WriteLn('Worked for ' + TimeRunning );
      WriteLn('Killed about ' + IntToStr(Chickens)+' chickens');
      WriteLn('Gathered about ' + IntToStr(Feathers) + ' feathers');
      WriteLn('***********************************************');
      WriteLn('***********************************************');
    end;


    Also, once i get this script working fully, do you think i should post this in junior section, or make another?

    EDIT: Still thinking of ways to help my antiban procedure to make it better, then i will post the update.

    EDIT#2: AntiBan so far:
    SCAR Code:
    procedure AntiBan;
    begin
      case random(250) of
        0: begin
            OutOfScreen(4000 + Random(2000));
            Mouse(x,y,300,300,false);
            Wait(100 + Random(50));
            ChooseOption('lose');
           end;
        1: begin
            Wait(100 + Random(100));
            GetMousePos(x, y);
            RandomRClick;
            Mouse(x, y, 300, 300, false);
            ChooseOption('lose');
           end;
        2: begin
            Wait(100 + Random(100));
            GetMousePos(x,y);
            BoredHuman;
            Wait(100 + Random(500));
            MMouse(x,y,200,200);
           end;
     end;
    end;

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Chicken Killer (yet another one)
    By dontpanic in forum RS3 Outdated / Broken Scripts
    Replies: 122
    Last Post: 04-20-2008, 05:12 PM
  2. Chicken killer
    By me_ntal in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-17-2007, 04:56 AM
  3. chicken killer?
    By bilbobaggins in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 02-24-2007, 06:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •