Page 2 of 10 FirstFirst 1234 ... LastLast
Results 26 to 50 of 242

Thread: Chicken Raper V4 Released!

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

    Default

    Which Version were you using, it depends.
    IM BACK!!!!!!!!!!!!!!!!!

  2. #27
    Join Date
    Sep 2008
    Posts
    352
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lastest 1

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

    Default

    Did it pick up the feathers? do you have reflection??
    IM BACK!!!!!!!!!!!!!!!!!

  4. #29
    Join Date
    Sep 2008
    Posts
    352
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah it picked up feathers and i do have reflection

  5. #30
    Join Date
    Sep 2008
    Posts
    352
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nvm bro its because the gate was closed anyway i saw it do a bunch of randoms thx

  6. #31
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmmm. You could've just edited your post. But, meh.

    And, Joelster, your welcome on the feather procedure xD

  7. #32
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can u post how to type the stff in im new (minus the username and pass) i whana see where to put stff in and how

  8. #33
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    goodhope, read a tutorial or two on how to setup players.

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

    Default

    i agree with The but just for you


    in
    SCAR Code:
    Players[0].User:='Username';//type your name in between the ' ' eg : 'fred';

    same with pass nick etc...nick (short for nickname is 3-4 letters of around ur middle part of ur username eg : retardsrus ('dsru')


    that's all ..

    Also i think it dosn't run for me because i don't have reflection The did ur feather procedure require reflection?

    WEll after i got Reflection it ran fine Gunna add in a proggy report soon so you guys can post errors etc!

    guys if you wanna use feather picker get Reflection

    SCAR Code:
    Program New;
     
    Var
      Download: TStringArray;
      Downloaded: Array[0..10] Of String;
      IHI, Files: Integer;
      currentver, currentversion: string;
     
    const
      thisversion    = 97;
     
     
     
    Procedure DownloadFiles;
    Begin
      For IHI := 0 To High(Download) Do
      Begin
        Downloaded[ihi] := GetPage('http://scarreflection.googlecode.com/svn/trunk/' + Download[ihi]);
        WriteLn(download[ihi]);
      End;
    End;
     
    Procedure Install;
    Begin
      For Ihi := 0 To High(Download) Do
      Begin
        Files := RewriteFile(AppPath + '\Includes\SRL\SRL\Reflection\' + Download[ihi], False);
        WriteFileString(Files, Downloaded[ihi]);
        CloseFile(Files);
      End;
    End;
     
    Procedure AutoUpdate;
     
    begin
      Download := ['Changelog.txt', 'Characters.Scar', 'Core.scar',
      'Depreciated.scar', 'Hooks.Scar', 'Objects.Scar', 'README.txt',
      'Reflection.Scar', 'Walking.Scar', 'Items.scar'];
      currentver     := GetPage('http://scarreflection.googlecode.com/svn/trunk/');
      currentversion := Between('<title>Revision ', ': /trunk', currentver);
      WriteLn('Our current version is: '+inttostr(thisversion)+' and the latest version is: '+currentversion);
      If (thisversion = strtoint(currentversion)) then
      begin
        WriteLn('We got the latest Reflection !');
        exit;
      end else
      begin
        DownloadFiles;
        Install;
      end;
    end;
     
    Begin
      AutoUpdate;
    End.

    run that to get reflection then download script! (on page 1 aswell)
    IM BACK!!!!!!!!!!!!!!!!!

  10. #35
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No, it uses DTM Finding.

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

    Default

    Can someone help me add in a proggy..this is what ive got so far...WILL ADD TO CREDS + REP YOU!

    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:6                                            /\
            /\                                                             /\
            /\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
            /\                                                             /\
            /\                                                             /\
            /\ Features: Anti-randoms+Anti-Ban! + feather pickup!          /\
            /\                                                             /\
            /\ Run:Setup lines 39-56     select window hit run!            /\
            /\                                                             /\
            /\                                                             /\
            /\                                                             /\
            /\       NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT!           /\
            /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}




    program Chicken_Raper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Fighting.scar}

    const
      ChickenColor1 = 857704; // change if you need to
      ChickenColor2 = 3430256; //change if you need to
      ChickenColor3 = 4897230;//change if you need to


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;   //how many players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;   //current player

      Players[0].Name   := 'username'; //username!
      Players[0].Pass   := 'password'; //password
      Players[0].Nick   := 'uga'; //Nick (3-4 letters of ur name
      Players[0].Active := True; //is the player active?
      players[0].Integers[0]:=1000; //Amount of chickens you wanna kill

      {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? }


    end;

    procedure PreparePlayer;
    begin
      if not LoggedIn then LoginPlayer;
      SetRun(True);
    end;

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //Anti-ban and randoms       //

    procedure AntiRandoms;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
    end;


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


    procedure KillChicken;
    var
      X, Y, Mark: Integer;
    begin
      FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
      Mouse(x, y, 2, 2, False);
      Wait(25 + Random(100));
      if not ChooseOption('ttack') then Exit;
      Flag;
      MarkTime(Mark);
      Wait(2 * 5000 + Random(1000));
      AntiBan;
      AntiRandoms;
      if HPPercent < 25 then RunTo('N', true);
      Wait(300);
      if HPPercent <100 then FindNormalRandoms;
    end;

    //---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\


    function PickupFeathers: boolean;
    var
      x, y, FeatherDTM: integer;
    begin
      FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C401' +
           'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A433B' +
           '77A0A80100CAC20B42');
      if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        Mouse(x, y, 0, 0, False);
        Wait(250 + Random(150));
        if ChooseOption('eather') then
        begin
          Flag;
          Result := True;
        end;
      end;
    end;
    procedure ProgressReport;
    begin
      writeLn('${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}$');
      writeLn('                     ChickenRaper V6 Feather Pickup');
      writeLn('                 Ran for: ' + TimeRunning);
      Writeln('                 ToTalChickensRaped: ' + IntToStr(ChickenCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' Chicken.');
      writeLn('${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}${}$');


    procedure MainLoop;
    var
      Mark : Integer;
    begin
      repeat
        MarkTime(Mark);
        repeat
          if not LoggedIn then Exit;
          KillChicken;
          PickupFeathers;
          ProgressReport;
        until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
      until(False);
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      PreparePlayer;
      MainLoop;
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  12. #37
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice work Joel, the Speed of the mouse could be faster (which you can change in script tho) my first try it went for 15mins ( i stopped it) xp gained like 2.5k and got a few randoms

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

    Default

    Thanks for feedback mate...just increase mouse speed if you want adding in a proggy so ppl can post on here soon
    IM BACK!!!!!!!!!!!!!!!!!

  14. #39
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    Will do add me to buddies
    IM BACK!!!!!!!!!!!!!!!!!

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

    Default

    New Updates: MouseSpeed+ added in more Anti Randoms.
    IM BACK!!!!!!!!!!!!!!!!!

  17. #42
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    Thanks please post how it runs/if it dies i wanna make this as best as i can!

    the more feedback the more ill update
    IM BACK!!!!!!!!!!!!!!!!!

  19. #44
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Need a good yew /banker for edgville and lumby flax spinner if you can help PM me or send me the Script TY

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

    Default

    Bugs: Keeps right clicking on Raw chicken after icking up feathers...FIXED!

    put this into SCAR i fixed the chicken colors+ mouse speed is slower (was to fast before)


    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:6                                            /\
            /\                                                             /\
            /\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
            /\                                                             /\
            /\                                                             /\
            /\ Features: Anti-randoms+Anti-Ban! + feather pickup!          /\
            /\                                                             /\
            /\ Run:Setup lines 39-56     select window hit run!            /\
            /\                                                             /\
            /\                                                             /\
            /\                                                             /\
            /\       NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT!           /\
            /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}




    program Chicken_Raper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Fighting.scar}

    const
      ChickenColor1 = 857704; // change if you need to
      ChickenColor2 = 3430256; //change if you need to
      ChickenColor3 = 4897230;//change if you need to


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;   //how many players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;   //current player

      Players[0].Name   := '***********'; //username!
      Players[0].Pass   := '**************'; //password
      Players[0].Nick   := 'equ'; //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:= 10;

    end;

    procedure PreparePlayer;
    begin
      if not LoggedIn then LoginPlayer;
      SetRun(True);
    end;

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //Anti-ban and randoms       //

    procedure AntiRandoms;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
    end;


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


    procedure KillChicken;
    var
      X, Y, Mark: Integer;
    begin
      FindObjCustom(x, y, ['tta', 'ack', 'chi', 'ken'], [4300721, 989558, 9812173, 3627895, 2047829], 3);
      Mouse(x, y, 2, 2, False);
      Wait(25 + Random(100));
      AntiRandoms;
      if not ChooseOption('ttack') then
      Flag;
      MarkTime(Mark);
      Wait(2 * 5000 + Random(1000));
      AntiBan;
      AntiRandoms;
      if HPPercent < 25 then RunTo('N', true);
      Wait(300);
      AntiRandoms;
    end;

    //---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\


    function PickupFeathers: boolean;
    var
      x, y, FeatherDTM: integer;
    begin
      FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C401' +
           'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A433B' +
           '77A0A80100CAC20B42');
      if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        Mouse(x, y, 0, 0, False);
        Wait(250 + Random(150));
        if ChooseOption('eather') then
        AntiRandoms;
        begin
          Flag;
          Result := True;
          AntiRandoms;
        end;
      end;
    end;

    procedure MainLoop;
    var
      Mark : Integer;
    begin
      repeat
        MarkTime(Mark);
        repeat
          if not LoggedIn then Exit;
          KillChicken;
          PickupFeathers;
          AntiRandoms;
          AntiBan;
        until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
      until(False);
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      PreparePlayer;
      MainLoop;
    end.

    IT RAN FOR A HOUR NO PROBLEMS (was at a school meeting and tested )
    IM BACK!!!!!!!!!!!!!!!!!

  21. #46
    Join Date
    Oct 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script

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

    Default

    Wow suspended..waht for if i may ask? also In2it if you want a Yew chopper/bank ask me on msn and i will discuss making one with you.
    IM BACK!!!!!!!!!!!!!!!!!

  23. #48
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The way you changed the mouse speed, I believe you made it move slower.

    Try moving it to a higher number.

    15 is SRL's default, try 20.

    It doesn't really matter what mouse speed you use >.<

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

    Default

    kk when it was on 20 it seemed really fast so i changed it and it slowed down.
    IM BACK!!!!!!!!!!!!!!!!!

  25. #50
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh. Well, 15 is SRL's default. So, just completely take MouseSpeed out of your script, if you want to use 15.

Page 2 of 10 FirstFirst 1234 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Goblin Stealthz V1 and Chicken Raper V3
    By joelster134 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 10-07-2008, 05:41 AM
  2. Draynor Willow Raper :)
    By kooldude in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 04-14-2007, 09:26 AM
  3. How to use the mining raper 0.39?
    By peacewar in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-16-2007, 11:01 PM
  4. ~ChArM's Willow Raper~ v2.1
    By kingstun in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-19-2007, 07:23 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
  •