Results 1 to 7 of 7

Thread: Lumbridge East Chicken Killer

  1. #1
    Join Date
    Jan 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Lumbridge East Chicken Killer

    Code:
     History:
      - v0.1 Initial Release - First one of my scripts for SRL
      
     Instructions:
      - Set DeclarePlayers
      - Start in Lumbridge East Chicken Pen
      - Click start!
      
     Credits:
      - WhiteShadow: For parts from his scripts.
    SCAR Code:
    {
                      _________
    _______ _________ ______  /______ _________ _______
    __  __ `__ \  __ `/  __  /__  __ `__ \  __ `/_  __ \
    _  / / / / / /_/ // /_/ / _  / / / / / /_/ /_  / / /
    /_/ /_/ /_/\__,_/ \__,_/  /_/ /_/ /_/\__,_/ /_/ /_/
                      PRESENTS
             Lumbridge East Chicken Killer

     History:
      - v0.1 Initial Release - First one of my scripts for SRL
     
     Instructions:
      - Set DeclarePlayers
      - Start in Lumbridge East Chicken Pen
      - Click start!
     
     Credits:
      - WhiteShadow: For parts from his scripts.
    }


    program ChickenKiller;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Fighting.Scar}

    var
      Chicken : array[0..2] of Integer;
      StartMark, Report, CombStart: LongInt;
      Kills: Integer;


    const NoOfPlayers = 3; //How many players you will use
    const StartPlayer = 0; //The player to start with
    const RunTime = 120; //In minutes, how long to train each character
    const ReportTime = 10; //In minutes, how often to produce a progress report


    Procedure DeclarePlayers;
    begin

         NumberOfPlayers(NoOfPlayers);
         CurrentPlayer:=StartPlayer;

         Players[0].Name   :='';    //Username
         Players[0].Pass   :='';    //Password
         Players[0].Nick   :='';    //Nick
         Players[0].Integer1  := 1  //Fight Mode
         Players[0].Active :=True;
         
         Players[1].Name   :='';
         Players[1].Pass   :='';
         Players[1].Nick   :='';
         Players[1].Integer1  := 1
         Players[1].Active :=True;
         
         Players[2].Name   :='';
         Players[2].Pass   :='';
         Players[2].Nick   :='';
         Players[2].Integer1  := 1
         Players[2].Active :=True;
    end;

    procedure AntiBanStuff;
    begin
      LeaveScreenEvery(random(15));
      RandomRClickEvery(random(5));
      PickUpMouseEvery(random(10));
    end;

    function DoRandoms : boolean;
    begin
      if(FindNormalRandoms)then Result:= True;
      if(SolvePinball) then Result:= True;
    end;

    procedure WaitCombat;
    var
      Marker : LongInt;
    begin
      Status('In Combat...');
      if(not(InFight))then
      begin
        Exit;
      end
     
      MarkTime(Marker);
      repeat
        DoRandoms;
        Wait(50 + random(50));
      until(not(InFight))
      Kills:= Kills + 1;
    end;

    procedure Clickey(x, y : Integer);
    begin
      if(random(5) = 1)then
      begin
        Mouse(x, y, 1, 1, false);
        ChooseOption(x, y, 'Attack');
      end else
        Mouse(x, y, 0, 0, true);
    end;

    function FightChick : Boolean;
    var
      attempts: Integer;
      i: Integer;
    begin
      repeat
        if(not(LoggedIn))then
        begin
          Exit;
        end

        if(InFight)then
        begin
          Result:= True;
          Exit;
        end
        Status('Searching for chicken....');
        DoRandoms;
        MarkTime(CombStart);
        attempts:= attempts + 1;
        i:= random(2);
        if(FindObj(x, y, 'hicke', Chicken[i], 10))then
        begin
          Clickey(x ,y);
          Wait(50 + Random(50));
          Flag;
          FindTalk;
          Wait(1000 + random(500));
          FindNormalRandoms;
          if(InFight)then
          begin
            Result:= True;
            Exit;
          end
        end
        Wait(50 + Random(50));
      until(attempts = 5) or (TimeFromMark(CombStart) >= 10000);
    end;


    Procedure Setup;
    begin
      SetupSRL;
      DeclarePlayers;
     
      Chicken[0]:= 1121675;
      Chicken[1]:= 2160891;
      Chicken[2]:= 922989;
     
      BenMouse:= False;
      MouseSpeed:= Random(5) + 5;
      Kills:= 0;
     
      ClearDebug;
      Writeln('                  _________   ');
      Writeln('_______ _________ ______  /______ _________ _______');
      Writeln('__  __ `__ \  __ `/  __  /__  __ `__ \  __ `/_  __ \  ');
      Writeln('_  / / / / / /_/ // /_/ / _  / / / / / /_/ /_  / / /  ');
      Writeln('/_/ /_/ /_/\__,_/ \__,_/  /_/ /_/ /_/\__,_/ /_/ /_/   ');
      Writeln('                                                      ');
      Writeln('Starting script! Report will be shown in');
      Writeln(IntToStr(ReportTime)+' minutes!');
     
      ActivateClient;

    end;

    Procedure ProgReport;
    begin
      ClearDebug;
      Writeln('<!-------------------------------------!>');
      Writeln('  **    Chicken Killer by madman     **');
      Writeln('<--------------------------------------->');
      Writeln('      Running for ' + TimeRunning);
      Writeln('      Killed '+IntToStr(Kills)+' chickens!');
      Writeln('<!-------------------------------------!>');
      SRLRandomsReport;
    end;

    begin
      Setup;
      AntiBanStuff;
      if(not(LoggedIn))then
        LoginPlayer;

      Repeat
        if(LoggedIn)then
        begin
          MarkTime(StartMark);
          MarkTime(Report);
          SetFightMode(Players[CurrentPlayer].Integer1);
          SetRun(True);
          HighestAngle;
          MakeCompass('N');
        end
       
        Repeat
          if(not(LoggedIn))then break;
          Wait(50 + random(50));
          FightChick;
          Wait(50 + random(50));
          if(TimeFromMark(Report) >= ReportTime*60000)then
            ProgReport;
          WaitCombat;
        Until(TimeFromMark(StartMark) >= RunTime*60000);
     
        If(LoggedIn)then
        begin
          Logout;
          Wait(Random(3 * 60000) + 60000);
          NextPlayer(true);
          FindTalk;
        end
     
        If(not(LoggedIn))then
        begin
          Wait(Random(3 * 60000) + 60000);
          NextPlayer(false);
          FindTalk;
        end

      Until(false);
    end.

    Is my first script to start helping out the SRL community.

    Your feedback is very appreciated to help me become a better scripter

  2. #2
    Join Date
    Oct 2006
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do it pick the feathers to?

  3. #3
    Join Date
    Jan 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No, but someone should make one like that.

  4. #4
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Very nice for a first script. I say you should add feather picking. You can use findobj for a certain amount of time to pick them up after every kill.

  5. #5
    Join Date
    Jan 2007
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    ummm my guy just stands there he not atking -.-'
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly.

    www.facebook.com/AngeVashes

  6. #6
    Join Date
    Oct 2006
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It doesnt work good.

  7. #7
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    sry don't work good... nice try though...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Lumbridge Chicken Pwnage
    By Negaal in forum RS3 Outdated / Broken Scripts
    Replies: 143
    Last Post: 09-26-2008, 10:31 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. LCK - Lumbridge Cow Killer
    By Negaal in forum RS3 Outdated / Broken Scripts
    Replies: 37
    Last Post: 12-16-2007, 09:34 PM
  4. lumbridge to varrok east test please.
    By badandymitch in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 04-25-2007, 03:33 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
  •