Results 1 to 20 of 20

Thread: [SRL][RS2] Chicken Killer

  1. #1
    Join Date
    Oct 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [SRL][RS2] Chicken Killer

    This script kills chickens and takes and buries the bones. No anti-randoms as of yet, probably never will be either because I am already working on a new script.

    SCAR Code:
    ////////////////////////////////////////////////////////////////////////////////
    //                                                                            //
    //                           Maxcore's Chicken Killer                         //
    //                                                                            //
    //   Directions:                                                              //
    //        1) Go to any place that has chickens.                               //
    //        2) Press play                                                       //
    //                                                                            //
    //   Credits: Everyone at Mopar and the SRL forums, keep owning everyone!     //
    ////////////////////////////////////////////////////////////////////////////////


    program ChickenKiller;
         {.include SRL\SRL.scar}
         {.include SRL\SRL\Skill\Fighting.scar}
    var
         intKilled, intXP, BonesMenu, intPXP : integer;
    const
         intChicken = 1121677; // Color of the chickens.
         intBones = 14803428; // Color of the bones.
         
    procedure DeclarePlayers;
    var
         i : integer;
    begin
         Disguise('Norton Anti-Virus');

         HowManyPlayers := 1;
         CurrentPlayer := 0;
         NumberOfPlayers(HowManyPlayers);
         Players[0].Name := 'Username';
         Players[0].Pass := 'Password';
         Players[0].Nick := 'Baird';
         Players[0].Active := True;
         for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Integers, 4);
         for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Strings, 1);
         for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Booleans, 1);
    end;

    procedure ProgressReport;
    begin
         Writeln('==========================================>');
         Writeln('Script running for ' + TimeRunning);
         Writeln('You have killed ' + IntToStr(intKilled) + ' for ' + IntToStr(intXP) + ' XP.');
         Writeln('You have gained ' + IntToStr(intPXP) + ' prayer XP.');
         Writeln('==========================================>');
         Writeln('');
         Writeln('');
    end;

    procedure Login;
    begin
         Mouse(464, 293, 10, 20, true);
         TypeSend(Players[CurrentPlayer].Name);
         Wait(200 + Random(78));
         TypeSend(Players[CurrentPlayer].Pass);
         Wait(300 + Random(78));
         Mouse(303, 323, 10, 20, true);
         Wait(3500 + Random(2500));
         Mouse(401, 338, 10, 20, true);
    end;

    procedure LoadMenuImages;
    begin
         BonesMenu := BitmapFromString(10, 11, 'beNpjYPg/wQEZMaACZEF' +
           'MBZTLYrUXTRCTTWtZXK5iwAMA/Y1f3A==');
    end;

    procedure FindChicken;
    var
         found : boolean;
         changeDir, x, y : integer;
    begin
         found := false;
         changeDir := 1;
         while(not found) do
         begin
              found := FindColorSpiralTolerance(x, y, intChicken, 5, 5, 515, 337, 15);
              if found then
              begin
                   MMouse(x, y, 0, 0);
                   if IsUpText('Chicken') then
                   begin
                        Mouse(x, y, 0, 0, true);
                   end else
                   begin
                        found := false;
                   end;
              end else
              begin
                   if changeDir = 1 then
                   begin
                        MakeCompass('n');
                        changeDir := 2;
                        wait(400 + Random(1000));
                   end else
                   begin
                        MakeCompass('s');
                        changeDir := 1;
                        wait(400 + Random(1000));
                   end;
              end;
         end;
    end;

    procedure PickUpBones;
    var
         found : boolean;
         changeDir, x, y : integer;
    begin
         changeDir := 0;
         repeat
         found := FindColorSpiralTolerance(x, y, intBones, 203, 117, 292, 223, 15);
         if found then
         begin
              Mouse(x, y, 0, 0, false);
              LoadMenuImages;
              if FindBitmapToleranceIn(BonesMenu, x, y, 5, 5, 515, 337, 15) then
              begin
                   Mouse(x, y, 0, 0, true);
                   FreeBitmap(BonesMenu);
                   wait(2500 + Random(1500));
                   Mouse(576, 227, 15, 15, true);
                   wait(1000);
                   intPXP := intPXP + 10;
              end;
         end;
         case changeDir of
              0: MakeCompass('N');
              1: MakeCompass('S');
              2: MakeCompass('E');
              3: MakeCompass('W');
         end;
         if changeDir = 3 then
         begin
              found := true;
         end;
         changeDir := changeDir + 1;
         until(found);
    end;

    procedure FightChicken;
    var
         fought : boolean;
    begin
         fought := false;
         if InFight then
         begin
              intKilled := intKilled + 1;
              intXP := intXP + 28;
              ProgressReport;
              fought := true;
         end;
         while(InFight) do
         begin
              wait(2000);
         end;
         if fought then
         begin
              PickUpBones;
         end;
    end;

    begin
         SetUpSRL;
         Cleardebug;
         GetSelf.WindowState := wsMinimized;
         DeclarePlayers;
         ProgressReport;
         Login;
         wait(4000);
         while(not IsFKeyDown(10)) do
         begin
              FindChicken;
              wait(4000);
              FightChicken;
         end;
         GetSelf.WindowState := wsMaximized;
    end.

  2. #2
    Join Date
    Aug 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    you left your password in there, and your nickname is set the wrong way.
    SCAR Code:
    for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Integers, 4);
         for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Strings, 1);
         for i := 0 to Length(Players) - 1 do
              SetArrayLength(Players[i].Booleans, 1);
    can be shortened into:
    SCAR Code:
    for i := 0 to Length(Players) - 1 do
         begin
           SetArrayLength(Players[i].Integers, 4);
           SetArrayLength(Players[i].Strings, 1);
           SetArrayLength(Players[i].Booleans, 1);
         end;

    SCAR Code:
    end else
              //     begin  --> not needed, only 1 command
                        found := false;
             //      end;   --> no begin, no end.

    if IsUpText('Chicken') then your better off looking only for hicken.

    SCAR Code:
    begin
      fought := false;
      if InFight then
      begin
        intKilled := intKilled + 1;
        intXP := intXP + 28;
        ProgressReport;
        fought := true;
        while(InFight) do wait(1000+Random(1000));
        PickUpBones;  
      end;
    end;
    shortened version, i do like your fighting procedure.

    SCAR Code:
    FindChicken;
              wait(4000);// this might be too much, by the time you
                               // get to fight chicken it might already be dead.
              FightChicken;


    RMagician

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  4. #4
    Join Date
    Oct 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey thanks, I am looking at your corrections and they are so stupid on my part. Thanks for the tips, and the password thing was just stupid lol

    Also, what is the correct way to set a nickname?

  5. #5
    Join Date
    Oct 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice but does it takes the feathers???

  6. #6
    Join Date
    Oct 2007
    Location
    Finland
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice just what i needed

  7. #7
    Join Date
    Oct 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was going to make it take feathers, but then I decided not to because making it takes bones would just be easier. With a little modification (just changing the bitmap of the take feathers option) you can have it take feathers.

  8. #8
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    here's the username thing:
    kaltrigalt --> alt
    maxcore ---> axc
    cio38daf75 --> daf

    just simply 3/4 letters from your username. What i corrected wasn't stupid from you, it was jsut lack of experience. Keep on going, your on the right way

    ~RMagician

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  9. #9
    Join Date
    Oct 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea thanks, I had no idea what that did so I looked it up on the forums and found a tut by Wizzup and that explained it pretty well

  10. #10
    Join Date
    Oct 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey i have been useing this often thanks for the script it runs well!

  11. #11
    Join Date
    Nov 2007
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im about to try it it looks like a good script!

  12. #12
    Join Date
    Oct 2006
    Location
    Sin City , USA
    Posts
    115
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hm, I'll test it out to see how it works for you.

  13. #13
    Join Date
    Nov 2007
    Location
    Kouvola , Finland
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think it would be better if it would pick feathers

  14. #14
    Join Date
    Nov 2007
    Location
    NZ
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script thanks

  15. #15
    Join Date
    Aug 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Wipe Ur Ass View Post
    I think it would be better if it would pick feathers
    Agreed! burry bones is a good feat if u you prayer.. (not all do)!

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

    Default

    its the only chickenkiller that works for me but i found it freezes when using compass- the compass dosent do much

  17. #17
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i got 30 lvls and 30000 feathers

  18. #18
    Join Date
    Aug 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looking good

  19. #19
    Join Date
    Sep 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works pretty good.
    not to good at detecting the chicken
    though

  20. #20
    Join Date
    Dec 2007
    Location
    Durham, NC
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice man but its hard finding chickens and i didnt pick up the bones.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with chicken killer
    By D1zl3 in forum OSR Help
    Replies: 2
    Last Post: 10-04-2008, 10:11 PM
  2. Chicken Killer (yet another one)
    By dontpanic in forum RS3 Outdated / Broken Scripts
    Replies: 122
    Last Post: 04-20-2008, 05:12 PM
  3. Chicken Killer
    By Electron Man in forum First Scripts
    Replies: 19
    Last Post: 11-19-2007, 12:32 PM
  4. Chicken killer
    By me_ntal in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-17-2007, 04:56 AM

Posting Permissions

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