Results 1 to 4 of 4

Thread: Help with Chicken killer and feather picker

  1. #1
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with Chicken killer and feather picker

    This script was originally from Chicken Raper v4 i wanted to add in a feather pickup...but for somereason its not working properly..heres the script will add you to credit's if you can get this working/help me get this running!


    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:5                                           /\
            /\                                                             /\
            /\ Credits: Joelster134, TheVoiceInYourHead (Feather pickup    /\
            /\                                                             /\
            /\ pLEASE REP ME AND POST BUGS/SUGGESTIONS!                   /\
            /\                                                            /\
            /\ Features: Anti-randoms+Anti-Ban!                            /\
            /\                                                             /\
            /\ Run:Setup lines 39-56     select window hit run!            /\
            /\                                                             /\
            /\ Disadvantage: New scripter...Made need to grease it up a bit/\
            /\                                                             /\
            /\       NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT!           /\
            /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}


             

    program ChICkEn_RaPeR;


    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Fighting.scar}

    const
          {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
          [Lines 43 from TheVoiceInYourHead!]
          [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

          ChickensToKill = 10000;
          ChickenColor1 = 857704; // change if you need to
           ChickenColor2 = 3430256; //change if you need to
            CHickenColor3 = 4897230;//change if you need to
         
    var
      ChickensKilled, FeatherColor: Integer; //Made by TheVoiceInYourHEad
      ChickenColors: TIntegerArray;  //TheVoiceinYourHead
         
    procedure DeclarePlayers;

    begin
     HowManyPlayers := 1;   //how many players
      NumberOfPlayers(HowManyPlayers);
       CurrentPlayer := 0;   //current player
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
    [Lines 60-62 from TheVoiceInYourHead]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}


    ChickenColors := [857704, 3430256, 4897230]; // Choose a few colors off of the chickens and put them here.
      FeatherColor := 65536; // Choose a color off of the "stem" of the feather.

    Players[0].Name   := ''; //username!
    Players[0].Pass   := ''; //password
    Players[0].Nick   := ''; //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; //SPeed of mouse change if you want (20 maybe)
    end;

    procedure PreparePlayer;
    begin

     if not LoggedIn then LoginPlayer;
      SetRun(true);

    end;




    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case (Random(30)) of
        1:  RandomRClick;
        5:  HoverSkill('Woodcutting', False);
        11:  RandomMovement;
        15: BoredHuman;
        21: DoEmote(400 +Random(90));
        24:  PickUpMouse;
        27: begin
             Gametab(1 + Random(12));
             Wait(3220 + Random(2415));
             Gametab(4);
            end;
        30: SleepAndMoveMouse(3600);
      end;
    end;


    {Made by The Voice In YourHead (replacing mine}

    function KillChickens: boolean;
    var
      l, i: Integer;
      ChickenPointsATPA: T2DPointArray;
      ChickenPoints: TPointArray;
      ChickenPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      l := High(ChickenColors);
      FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      if Length(ChickenPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, ChickenPoints, ChickenColors[Random(l)], MSX1, MSY1, MSX2, MSY2, 5);
      ChickenPointsATPA := SplitTPA(ChickenPoints, 3);
      SortATPASize(ChickenPointsATPA, True);
      for i := 0 to High(ChickenPointsATPA) do
      begin
        ChickenPoint := MiddleTPA(ChickenPointsATPA[i]);
        Mouse(ChickenPoint.x, ChickenPoint.y, 0, 0, False);
        Wait(750);
        if ChooseOption('hicken') then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    {feather Pickup by TheVoiceInYourHead}

    function PickupFeathers: boolean;
    var
      i: Integer;
      FeatherPoints: TPointArray;
      FeatherPointsATPA: T2DPointArray;
      FeatherPoint: TPoint;
    begin
      if not LoggedIn then TerminateScript;
      FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 5);
      if Length(FeatherPoints)=0 then
        FindColorsSpiralTolerance(MSCX, MSCY, FeatherPoints, FeatherColor, MSX1, MSY1, MSX2, MSY2, 10);
      if Length(FeatherPoints)=0 then
        TerminateScript;
      FeatherPointsATPA := SplitTPA(FeatherPoints, 3);
      SortATPASize(FeatherPointsATPA, True);
      for i := 0 to High(FeatherPointsATPA) do
      begin
        FeatherPoint := MiddleTPA(FeatherPointsATPA[i]);
        MMouse(FeatherPoint.x, FeatherPoint.y, 0, 0);
        Wait(750);
        if IsUpText('eather') then
        begin
          Mouse(FeatherPoint.x, FeatherPoint.y, 0, 0, False);
          Wait(750);
          if ChooseOption('eather') then
          begin
            Result := True;
            Exit;
          end;
        end;
      end;
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Chickens Killed: ' + IntToStr(ChickensKilled));
    end;

    begin
      SetupSRL;
      LoginPlayer;
      repeat
        FindNormalRandoms;
        if KillChickens then
          Inc(ChickensKilled);
        PickupFeathers;
        ProgressReport;
      until(ChickensKilled=ChickensToKill)
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  2. #2
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Why don't you try out Reflection if it's for personal use.


    Really good when it works and if it's just for you, it's fine (Check it out under the S.M.A.R.T Section. Another time where you should thank Benland)

    -Ashur
    Exam period.

  3. #3
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe check out forefeathers if its only for personal use im sure munk wouldn't mind :P and his works perfectly


  4. #4
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay thanks ..i just don't know how to add reflection into scripts and i just wanted to make my own you know for acheivements..anyway will look into the S.M.A.R.T section
    IM BACK!!!!!!!!!!!!!!!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Chicken Killer and Feather Picker!
    By Fruity-Lo0py in forum First Scripts
    Replies: 26
    Last Post: 03-25-2008, 04:52 AM
  2. x i o i l x's chicken slaughterer & feather picker
    By x i o i l x in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 12-29-2007, 06:13 PM
  3. Chicken killer + bone picker/burier or feather picker?
    By codx1 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 07-01-2007, 01:17 PM
  4. anyone have chicken killer with feather picker??HELP!!
    By mitch453 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-08-2007, 02:09 PM
  5. chicken killer feather picker and maybe...bone buryer
    By ason in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 05-18-2007, 12:09 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
  •