Results 1 to 11 of 11

Thread: [SCAR 3.12/3.14][SRL 4 #12/13]Auto raw chicken buyer!

  1. #1
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default [SCAR 3.12/3.14][SRL 4 #12/13]Auto raw chicken buyer!

    Hello,

    I've made this (simple) Raw Chicken buyer as first script
    I got it to do no more then once, it seems to bumm up the walking on 2nd try.

    Will this ban me fast?

    It has:

    1)
    Walk to the store (Located north of the silk trader).

    2)
    Buy the chickens.

    3)
    Walk back to bank.

    4)
    Repeat.

    I am not 100% done, but i need more AntiBan, etc.
    I dont think it needs AntiRandom..

    Why Chickens?
    Buy for 9gp ea, sell for ±7 times more!

    SCAR Code:
    program RawCkickenZ;
    {.include SRL\SRL.scar}

    var x, y, Loads : Integer;

    const
    ToDo = 10;  //How much loads?

    procedure WalkStone;
    begin
    Mouse(672, 39, 10, 10, true);
    Flag;
    end;

    procedure WalkMore;
    begin
    if (FindSymbol(x, y, 'scimitar shop')) then
     begin
     Mouse(x, y, 25, 5, true);
     Flag;
     end else
     Writeln('Couldnt find sword icon');
     Exit;
    end;

    procedure WalkSilk;
    begin
    if (FindSymbol(x, y, 'Silk stall')) or FindColorTolerance(x, y, 7478692, 0, 0, 1280, 1024, 15) then
    begin
     Mouse(x, y, 5, 5, true);
     Flag;
     End else
     begin
     Writeln('Silktrader not found');
     Exit;
     end;
    end;

    procedure FindQ;
    begin
    if (FindSymbol(x, y, 'quest')) or FindColorTolerance(x, y, 13670550, 0, 0, 1280, 1024, 15) then
    begin
     Mouse(x, y, 5, 5, true);
     Flag;
     Wait(500+random(500));
     End else
     Writeln('Ali symbol not found!');
     Exit;
    end;

    procedure ClickAli;
    begin
    if (FindObj(x, y, 'orr', 11385016, 10)) then
      begin
      Mouse(x, y, 1, 1, true);
      Flag;
      End else
     Writeln('Ali no found no.. dop3?');
     Exit;
    end;

    procedure Talk;
    begin
    TalkToRand;
     Mouse(267, 437, 5, 5, true);
     Wait(500);
    end;

    procedure Buy;
    begin
     Mouse(84, 72, 5, 10, true);
     Wait(1000);
      if (FindObj(x, y, 'ick', 10263999, 10)) then
      begin
       Mouse(x, y, 5, 5, false);
       ChooseOption('Buy X');
       Wait(750+random(1000));
        TypeSend('33');
      end;
    end;

    procedure WalkBack1;
    begin
    if (FindSymbol(x, y, 'Silk stall')) then
     begin
      Mouse(x, y, 15, 10, true);
      Flag;
     end else
     Writeln('Didnt find Silk stall');
     Exit;
    end;

    procedure WalkBack2;
    begin
    if (FindSymbol(x, y, 'scimitar shop')) then
     begin
      Mouse(x, y, 5, 5, true);
      Flag;
     end else
      Mouse(601, 115, 5, 5, true);
      Flag;
    end;

    procedure WalkBack3;
    begin
    if (FindSymbol(x, y, 'minigame')) then
     begin
      Mouse(x, y, 5, 5, true);
      Flag;
     end else
     Writeln('Didnt find minigame sign');
     Exit;
    end;

    procedure WalkBack4;
    begin
     Mouse(579, 110, 5, 5, true);
     Flag;
    end;

    procedure Walkbank;
    begin
    if (FindSymbol(x, y, 'bank')) then
     begin
      Mouse(x, y, 5, 5, true);
      Flag;
     end;
    end;

    procedure Bank;
    begin
     OpenBankQuiet('akb');
     Wait(1000+random(500));
      begin
       MouseItem(2, false);
       ChooseOption('All');
       Wait(500+random(250));
       CloseBank;
      end;
    end;

    begin
    SetUpSRL;
    ActivateClient;
    wait(1000);
    repeat
    SetRun(False);
    WalkStone;
     WalkMore;
      WalkSilk;
       FindQ;
      ClickAli;
     Talk;
    Buy;
     WalkBack1;
      WalkBack2;
       WalkBack3;
      WalkBack4;
     WalkBank;
    Bank;
    Loads := Loads + 1;
    Until(Loads = ToDo);
    ClearDebug;
    end.
    Ce ne sont que des gueux


  2. #2
    Join Date
    Feb 2008
    Location
    Under Jansen's bed
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pretty good idea for making a first script. However, the walking routine is not so great; no randomness and it's not based on colors (just a few cords alone).

    Keep reading tutorials and update this, I want to see how well you can get it running .

    You got the core concepts of SCAR/SRL though.

  3. #3
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    I think this is a pretty good and useful script, the only one thing I noticed is the ammount it buy, it says 33, surely i would be 27 if you were buying a full invent and you would have to have money.

    Anyway, I think it looks good.

    DR

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

    Default

    GOod work. The script should work better with more failsafes.


  5. #5
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Quote Originally Posted by cazax View Post
    GOod work. The script should work better with more failsafes.

    Yeah, more failsafes and also anti-randoms as you get them when you talk to some NPCs and auto-respond if someone asks you levels or things like that.

    And if you made it login and logout (sleeptime) then it would be less likely to get randoms and more humanlike (as buying stuff is boring!)

    EDIT: W00T 100th post

  6. #6
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Would learnin radialwalk help?
    Ce ne sont que des gueux


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

    Default

    in this case, radialwalk should work as a failsafe. Yes, radialwalk would help.


  8. #8
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Then first, i need to find a tut on it :P
    Ce ne sont que des gueux


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

    Default

    Click Here
    then Click Here


  10. #10
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    I made a sort of V2 with just RadialWalking:
    SCAR Code:
    program RawCkickenZ;
    {.include SRL\SRL.scar}

    var x, y, Loads : Integer;

    const
    ToDo = 10;  //How much loads?

    procedure AntiBan;
    begin
    case 5 of
     0 : BoredHuman;
     1 : SleepAndMoveMouse(3000+random(1337));
     2 : RandomRClick;
     3 : HoverSkill('random', False);
     4 : AlmostLogout;
     end;
    end;

    procedure WalkStone;
    begin
     RadialWalk(2115946, 0, 90, 72, 99, 99)
     AntiBan;
     FFlag(10);
    end;

    procedure WalkMore;
    begin
      RadialWalk(4871101, 0, 90, 72, 99, 99);
      AntiBan;
      FFlag(10);
    end;

    procedure WalkSilk;
    begin
     RadialWalk(2978876, 0, 90, 99, 99, 99);
     AntiBan;
     FFlag(10);
    end;

    procedure HalfStep;
    begin
     RadialWalk(863023, 270, 90, 92, 99, 99);
     AntiBan;
     FFlag(10);
    end;

    procedure FindQ;
    begin
     if (FindSymbol(x, y, 'quest')) then
     begin
     Mouse(x, y, 5, 5, true);
     AntiBan;
     FFlag(10);
     end;
    end;

    procedure ClickAli;
    begin
    if (FindObj(x, y, 'orr', 11385016, 10)) then
      begin
      Mouse(x, y, 1, 1, true);
      Flag;
      End else
     Writeln('Ali no found no.. dop3?');
     Exit;
    end;

    procedure Talk;
    begin
    TalkToRand;
     Mouse(267, 437, 5, 5, true);
     Wait(500);
    end;

    procedure Buy;
    begin
     Mouse(84, 72, 5, 10, true);
     Wait(1000);
      if (FindObj(x, y, 'ick', 10263999, 10)) then
      begin
       Mouse(x, y, 5, 5, false);
       ChooseOption('Buy X');
       Wait(750+random(1000));
        TypeSend('33');
      end;
    end;

    procedure WalkBack1;
    begin
     RadialWalk(7871140, 270, 90, 72, 99, 99);
     AntiBan;
     FFlag(10);
    end;

    procedure WalkBack2;
    begin
     RadialWalk(9803906, 270, 90, 52, 99, 99);
     AntiBan
     FFlag(10);
    end;

    procedure WalkBack3;
    begin
      RadialWalk(4871101, 0, 90, 62, 99, 99);
      AntiBan;
      FFlag(10);
    end;

    procedure WalkBack4;
    begin
     RadialWalk(2978876, 270, 180, 52, 99, 99);
     AntiBan;
     FFlag(10);
    end;

    procedure Walkbank;
    begin
    if (FindSymbol(x, y, 'bank')) then
     begin
      Mouse(x, y, 5, 5, true);
      AntiBan;
      FFlag(10);
     end;
    end;

    procedure Bank;
    begin
     OpenBankQuiet('akb');
     Wait(1000+random(500));
      begin
       MouseItem(2, false);
       ChooseOption('All');
       Wait(500+random(250));
       CloseBank;
      end;
    end;

    begin
    SetUpSRL;
    ActivateClient;
    wait(1000);
    repeat
    SetRun(False);
    WalkStone;
     WalkMore;
      WalkSilk;
       FindQ;
       HalfStep;
      ClickAli;
     Talk;
    Buy;
     WalkBack1;
      WalkBack2;
       WalkBack3;
      WalkBack4;
     WalkBank;
    Bank;
    Loads := Loads + 1;
    Until(Loads = ToDo);
    ClearDebug;
    end.

    Do the colors of RS change every time i log?!
    They never seem to be good..
    Ce ne sont que des gueux


  11. #11
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    The one with radial walk looks good, btw theres also a script that can help alot when using radial walk.

    I'll attach at the bottom of this when I find it

    EDIT: I founded it!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. canifs chicken buyer
    By Waddo in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 06-20-2009, 08:22 AM
  2. Chicken Buyer
    By Smarter Child in forum OSR Help
    Replies: 4
    Last Post: 09-26-2008, 02:32 AM
  3. chicken buyer + banker
    By x1ras in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 04-25-2008, 03:15 PM
  4. Auto Raw-Chicken buyer [Read post for e.x]
    By Floor66 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 02-29-2008, 10:37 PM
  5. Raw Chicken buyer [At 35%]
    By Floor66 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 02-05-2008, 08:47 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
  •