Results 1 to 7 of 7

Thread: Simple Arrow Maker[First Script]

  1. #1
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default Simple Arrow Maker[First Script]

    Got tired of putting together arrows so i made this. Nothing fancy

    Attaches feathers to shafts, and then arrow heads to the headless arrows.
    You have to set up the inventory a bit which is explained in the script.
    Doesn't detect when you level up, but aside from that I've fletched around 50k arrows no problems.
    The code is a bet messy looking at parts and i don't think it goes in line with the standards, my bad.
    -Some anti-ban
    -2 lines with Anti-Leach(very easy)

    *This is set up to use smart 8, so edit it accordingly.
    Last edited by burden; 03-11-2013 at 05:05 AM.

  2. #2
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    can you please post it? or can youy modify this outdated script:

    program New;
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$i srl/srl.simba}

    // SETUP !!! Read nubcakes :P
    // - have your arrow shafts and feathers or headless arrows and arrowtips
    // in Inventory spots 1 and 2
    // - have atleast 1 arrow shaft or arrow in Inventory spot 3 (depending on
    // what your making)
    // - run
    // - sometimes you gotta run the script twice once SMART has loaded, i dunno why
    // - feedback, how long you ran it for, rep etc all appreciated.

    Var
    InitialArrows: Integer;

    procedure DeclarePlayers;

    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name:= ''; // character's username
    Pass:= ''; // characte'r password
    Active:= True;
    end;
    loginplayer;
    end;


    procedure AntiBan;

    begin
    case Random(1000) of
    1: begin
    PickUpMouse;
    end;
    2: begin
    BoredHuman;
    end;
    3: begin
    RandomMovement;
    end;
    4..7: begin
    wait(RandomRange(200, 5000));
    end;
    8: begin
    HoverSkill('Summoning', false);
    GameTab(25);
    MMouse(0, 0, 730, 460);
    end;
    end;
    end;

    function ArrowCount: Integer;

    var
    amount: Integer;

    begin
    amount := GetAmount(663, 230);
    if amount = 0 then
    begin
    Logout;
    TerminateScript;
    end;
    Result:= amount;
    end;



    procedure Arrow;

    var
    previousarrows: Integer;

    begin
    While (ExistsItem(1) and ExistsItem(2)) do
    begin
    previousarrows:= ArrowCount;
    MouseItem(1,1);
    MouseItem(2,1);
    Wait(1050 + RandomRange(200,400));
    MouseBox(219, 403, 299, 455, 1);
    Wait(1000 + RandomRange(100,200));
    Repeat
    wait(100 + randomRange(150, 300));
    AntiBan;
    if previousarrows = ArrowCount then
    Break;
    if not(ExistsItem(1) and ExistsItem(2)) then
    Break;
    Until(ArrowCount = (previousarrows + 150));
    end;
    end;

    begin
    Smart_Server := 86;
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    SetUpSRL;
    ActivateClient;
    DeclarePlayers;
    InitialArrows:= ArrowCount
    Arrow;
    Writeln('Arrows made: ' + IntToStr(ArrowCount - InitialArrows));
    Writeln('Time Ran: ' + TimeRunning);
    Writeln('Job Complete ');
    Logout;

    end.
    Last edited by awesomem8; 04-19-2013 at 04:19 AM.

  3. #3
    Join Date
    Apr 2013
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    i want this script!

  4. #4
    Join Date
    Jul 2012
    Location
    Estonia, dont try to find it from the map its a cave!
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Why did u make it so complex and hard to use I just made easyer and more advanced version with just 63 lines also very user friendly took me like 15 mins to write it tho.. I may release it here
    what it does:
    puts feathers to arrow safts then puts arrow heads to the headless arrows.
    it can make 21k arrows per hour
    or it can put 42k feathers to safts or 42k arrow tips to headless arrows per 1 hour.
    if any1 is interested of the script let me know.

  5. #5
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by kriss1993 View Post
    Why did u make it so complex and hard to use I just made easyer and more advanced version with just 63 lines also very user friendly took me like 15 mins to write it tho.. I may release it here
    what it does:
    puts feathers to arrow safts then puts arrow heads to the headless arrows.
    it can make 21k arrows per hour
    or it can put 42k feathers to safts or 42k arrow tips to headless arrows per 1 hour.
    if any1 is interested of the script let me know.
    i am interested

  6. #6
    Join Date
    Dec 2012
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    would this also put feathers onto bolts?

  7. #7
    Join Date
    Aug 2014
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    For such thing i recommend just a Macro recorder into the SMART <It's a based mouse recorder for such actions,it goes by quick and it's not complicated at all>

    Record > Repeat Infinity

Thread Information

Users Browsing this Thread

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

Posting Permissions

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