SRL Archive - Outdated / Broken

LeetzSxcArrowShafter

Features
Uses the AmountBox function to prepare for Next Click of Shafts so it's always running at 100% efficiency
It will sometimes click and move and sometimes just click the feathers and not move to the shaft's
It will Randomly Right Click and WaitOption when Selecting the 10 Sets option after Clicking feathers and shafts
Anti-Ban of Course with both random check's implemented
Will Feather Shaft's till none are left in the inventory
You can type into the Const which slot your feathers and shafts are in

Massive Update for Anti-Ban (4/20/2012):
- After Almost every action it Changes the Mouse speed to a random number so sometimes it is slower like a human.
- Added a Random Miss Click to things
- Will Do SleepMoveMouse randomly after a lot of actions
- Added the option to Craft the Shafts from Logs instead of just make Headless Arrow's.
- Fast Efficient and reliable method of banking and clicking Log's.
- Banking is at Soul War's.

program LeetzSxcArrowShafter;
{$DEFINE SMART}
{$i SRL/srl.simba}
const
//////////////////////////////////////////IMPORTANT!!IMPORTANT!!IMPORTANT!!IMORTANT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
 //Welcome to LeetzSxcArrowShafter by Leetsxc, Please review the STEPS below and complete which are required before starting the script.\\
                     //            \\                                         //               \\
                    //////////////////////////////Start of $etup////////////////////////////////////
  SERVER            = 85;         // Enter "0" to pick a random server.      STEP 1           //
  MEMBERS           = False;     //False if F2P  True for P2P              STEP 2            //
  NumbOfPlayers     = 1;        //      \\                                                  //
  StartPlayer       = 0;       //        \\                                                //
                              /////BREAKING SETUP\\\\\                                    //
  UseBreaks         = True;  //Do you want to take breaks?              STEP 3            \\
  SwitchWorld       = False; //Do you want to switch worlds after the break?   STEP 4       \\ -----
  BreakIn           = 290; //How many minutes until you take a break?            STEP 5     \\-----
  BreakInRandom     = 10; //How many minutes should the "BreakIn" time be varied by?  STEP 6 \\  \\
  BreakFor          = 7; //How many minutes will you break for?                        STEP 7 \\\ \\
  BreakForRandom    = 7;//How many minutes should the "BreakFor" time be varied by?   STEP 8  //\\ \\
                       ///END OF BREAKING SETUP\\\                                           //\/\\ \\
                      //                         \\                                         //\/\/\\ \\
                     ////LeetzSxcArrowShafter Setup\\\\                                     \/\/\/\/ //
  Trial_Member       = False; //Trial Member Account or not? For the stupid message on start-up.
  Craft              = False;//True if you want to craft them from logs at soul wars
  Bank_Slot          = 14;  //Bank Slot logs are in if crafting
  FeatherSlot        = 3;  //Type in the inventory Slot your feathers are in  STEP 9         \/\/\/ //
  ShaftSlot          = 4;  //Type in the inventory Slot your shafts are in  STEP 10           \/\/ // ---------
  Profit             = 10; //Calculate your profit per shaft through G.E and change it STEP 11 \/ // ---------
  HowMany            = 642000;    //logs or shafts                                            //^^\\
                  ///End of LeetzSxcArrowShafter Setup\\\                                     \\vv//
var                                                                                             //
  BankBooth, CurrentXp, StartTime, AntiBans, Shaftz, ShaftzInInv, x, y, breaktimer, BreaksTaken: integer;

procedure DeclarePlayers;
var
  i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
  begin
    Players[i].BoxRewards := ['amp'];
    Players[i].LampSkill := 13;
  end;
  With Players[0] do
  begin
    Name := ''; //Username. STEP 12
    Pass := ''; //Password.  STEP 13
    Active := True;
  end;
    { With Players[1] do //For more players uncomment the {'s at top left and bottem right
  begin
    Name := ''; //Username.
    Pass := ''; //Password.
    Active := True;
  end;   }
end;
                    ////////////////////////////// End of Setup////////////////////////////////////

procedure AntiBan;
begin
  if(not(LoggedIn))then
    exit;
  FindNormalRandoms;
  Findnoninventoryrandoms;
  Case Random (2500) of
    0..18: Begin SleepAndMoveMouse(5000 + Random(750)); AntiBans:=AntiBans+1; End;
    19..24: Begin GameTab(tab_Inv) ExamineInv; GameTab(tab_Inv); SleepAndMoveMouse(2500 + Random(553));  AntiBans:=AntiBans+1; End;
    25..42: Begin RandomAngle(1); AntiBans:=AntiBans+1; End;
    55..60: Begin PickUpMouse; AntiBans:=AntiBans+1; End;
    61..120: Begin RandomMovement; AntiBans:=AntiBans+1; End;
    121..160: Begin BoredHuman; AntiBans:=AntiBans+1; End;
    161..182: begin if(gametab(tab_inv))then Begin ExamineInv; AntiBans:=AntiBans+1; End; end;
  End;
end;

procedure ShaftProcess;
var
time:integer;
ItemPlace:Tpoint;
begin
  if(random(100)<=5)then
    SleepAndMoveMouse(random(3000));
  if(random(100)<=5)then
  begin
    mousespeed:=randomrange(10, 30);
    ItemPlace:=ItemCoords(FeatherSlot);
    Missmouse(ItemPlace.x+Random(50)-Random(50), ItemPlace.y+Random(50)-Random(50));
  end;
  mousespeed:=randomrange(10, 30);
  MouseItem(FeatherSlot, 1);
  if(random(100)<=5)then
    SleepAndMoveMouse(random(3000))
  else
    sleep(random(3000));
  if(random(10)<=5)then
  begin
    mousespeed:=randomrange(10, 30);
    Mouseitem(ShaftSlot, 3);
  end;
  MarkTime(time);
  if(random(100)<=5)then
    SleepAndMoveMouse(random(3000));
  While ((GetXPBar(1) <> CurrentXP+150) and (TimeFromMark(time)<15000)) do sleep(100);
  sleep(random(300));
  CurrentXp:=GetXPBar(1);
  mousespeed:=randomrange(10, 30);
  Mouseitem(ShaftSlot, 1);
  mousespeed:=randomrange(10, 30);
  if(Waitfindcolor(x, y, 2070783, 218, 431, 299, 458, 5, 4000+random(500)))then
  begin
    if(random(10)<=5)then
    begin
      Mouse(x, y, 3, 3, false);
      mousespeed:=randomrange(10, 30);
        if(WaitOption('ake', 4000))then
          writeln('Making another 10 sets of 15 Shafts')
        else
        begin
          mousespeed:=randomrange(10, 30);
          Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
          Exit;
        end;
    end else
      Mouse(x, y, 3, 3, true);
  end else
  begin
    mousespeed:=randomrange(10, 30);
    Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
    Exit;
  end;
  Sleep(random(5000));
  Shaftz:=Shaftz+150;
  Antiban;
end;

procedure CraftProcess;
var
Whichitem,time:integer;
ItemPlace:Tpoint;
begin
  CurrentXp:=GetXPBar(1);
  Whichitem:=Randomrange(2,28);
  ItemPlace:=ItemCoords(Whichitem);
  if(random(100)<=5)then
    SleepAndMoveMouse(random(3000));
  if(random(100)<=5)then
  begin
    writeln('Missing Mouse');
    mousespeed:=randomrange(10, 30);
    Missmouse(ItemPlace.x+Random(50)-Random(50), ItemPlace.y+Random(50)-Random(50));
  end;
  mousespeed:=randomrange(10, 30);
  writeln('Moving mouse to slot to check for uptext');
  InvMouse(Whichitem, 3);
  MarkTime(time);
  While ((Not(IsUpText('og'))) and (TimeFromMark(time)<6000+random(1000))) do sleep(50);
  if(IsUpText('og'))then
  begin
    getmousepos(x,y);
    Mouse(x,y,0,0,true);
  end else
    Exit;
  if(random(100)<=5)then
    SleepAndMoveMouse(random(500))
  else
    sleep(random(500));
  mousespeed:=randomrange(10, 30);
  if(not(Waitfindcolor(x, y, 2070783, 71, 401, 156, 458, 5, 4000+random(500))))then
    if(Waitfindcolor(x, y, 2070783, 270, 402, 322, 457, 5, 4000+random(500)))then
    begin
      if(random(10)<=5)then
      begin
        Mouse(270, 402, 52, 55, false);
        mousespeed:=randomrange(10, 30);
        if(WaitOption('elect', 4000))then
          writeln('Making another 27 sets of 15 Shafts')
        else
        begin
          mousespeed:=randomrange(10, 30);
          Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
          Exit;
        end;
      end else
        Mouse(270, 402, 52, 55, true);
    end else
    begin
      mousespeed:=randomrange(10, 30);
      Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
      Exit;
    end;

  if(Waitfindcolor(x, y, 2070783, 71, 401, 156, 458, 5, 4000+random(500)))then
  begin
    if(random(10)<=5)then
    begin
      Mouse(71, 401, 85, 57, false);
      mousespeed:=randomrange(10, 30);
      if(WaitOption('ake', 4000))then
        writeln('Making another 27 sets of 15 Shafts')
      else
      begin
        mousespeed:=randomrange(10, 30);
        Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
        Exit;
      end;
    end else
      Mouse(71, 401, 85, 57, true);
  end else
  begin
    mousespeed:=randomrange(10, 30);
    Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
    Exit;
  end;
  MarkTime(time);
  if(random(100)<=5)then
    SleepAndMoveMouse(random(5000))
  else
    sleep(random(5000));
  Antiban;
  While ((GetXPBar(1) <> CurrentXP+135) and (TimeFromMark(time)<60000)) do sleep(100);
  sleep(random(300));
  Shaftz:=Shaftz+405;
end;

procedure BankProcess;
var
aFound: Extended;
begin
  MakeCompass('E');
  SetAngle(0);
  if(finddtmrotated(BankBooth,x,y,MSX1,MSY1,MSX2,MSY2,-Pi, Pi, Pi/30, aFound))then
  begin
    mmouse(x,y,7,7);
    if(WaitUpText('hest',1000))then
    begin
      getmousepos(x,y);
      mouse(x,y,0,0,false);
      WaitOption('Use',3000);
    end;
  end;
end;

function CheckBankUp(Time:integer): Boolean;
begin
  Result:= WaitFindColor(x,y,4106994,195,26,321,43,5,Time);
end;

procedure WithdrawProcess;
begin
  if(CheckBankUp(5000))then
  begin
    MouseBankSlot(Bank_Slot, mouse_Right);
    if(Waitoption('All',2000))then
    begin
      mouse(483,29,5,5,true);
    end else
    begin
    if(CheckBankUp(0))then
      BankProcess
    else
      WithdrawProcess;
    end;
  end;
end;

procedure TakeBreaks;
begin
  if not LoggedIn then
    Exit;
  begin
  if (GetSystemTime > BreakTimer) then
    begin
    WriteLn('Taking a break.');
    Logout;
    Wait(BreakFor * 60000 + Random(BreakForRandom * 60000));
    WriteLn('Logging back in.');
     Case (SwitchWorld) of
     True: if LoginPlayerToLob then
              ChangeWorld(RandomWorld(True, False));
     False: LoginPlayer;
      end;
     Wait(2000);
     BreaksTaken:=BreaksTaken+1;
     BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
     end;
  end;
end;

procedure Proggy;
var
Shaftzrate,Sec:integer;
begin
  Sec:=(1+((Getsystemtime-StartTime)/1000));
  Shaftzrate:=(3600*(Shaftz))/(Sec);
  Writeln('**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**');
  Writeln('   $$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$');
  Writeln('    Time Running: ' + TimeRunning);
  Writeln('    Profit Gained: ' + IntToStr(Shaftz*Profit) + ' GP');
  Writeln('    Profit Per Hour: ' + IntToStr(Shaftzrate*Profit) + ' GP');
  Writeln('    Arrows Shafts Feathered/Made: ' + IntToStr(Shaftz));
  Writeln('    Arrows Shafts Feathered/Made Per Hour: ' + IntToStr(Shaftzrate));
  Writeln('    Anti-Bans Performed: ' + IntToStr(AntiBans));
  Writeln('**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**');
end;

procedure DTMZ;
begin
  BankBooth := DTMFromString('mQwAAAHicY2ZgYLgNxLeg9EIgngrEG4A4PzmUYcvaNQwrFy1k4ADyuaCYEQkDAQCfPAm5');
end;

procedure FREEDTMZ;
begin
  FreeDtm(Bankbooth);
end;

begin
  Smart_server := SERVER;
  Smart_Signed := TRUE;
  Smart_Members := MEMBERS;
  Smart_SuperDetail := FALSE;
  SetupSRL;
  DeclarePlayers;
  if(not(Loggedin))then LoginPlayer;
  mousespeed:=25+random(5);
  BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
  StartTime:=GetSystemTime;
  sleep(2000);
  writeln('Shafts in Inventory = ' + inttostr(ShaftzInInv));
  if(Craft=false)then
    CurrentXp:=GetXPBar(1)-150
  else
  begin
    DTMZ;
    Addonterminate('FREEDTMZ');
    ShaftzInInv:=GetAmountBox(InvBox(ShaftSlot));
  end;
  if(Trial_Member)then
  begin
    sleep(15000);
    mouse(331, 314,0,0,true);
  end;
  repeat
    Proggy;
    if(Craft)then
    begin
     CraftProcess;
     BankProcess;
     WithdrawProcess;
    end else
     ShaftProcess;
    if(Shaftz>Howmany-1)then
      TerminateScript();
    if (UseBreaks) then
      TakeBreaks;
  until (not Loggedin);
end.

Few thing i'd like to see changed :p

Mouse(10, 346, 480, 410, true);   //Incase of misclick and still highlighted item
//Coodinates aren't good!

Wait(2000);

Static waits!!
Add randomness!

But other than that, awesome job =)

Can you be more specific, I can't even understand you.
What do you mean with the //Coordinates aren't good?
Mouse(10, 346, 480, 410, true); Their is a ton of randomness provided by the 480 and 410 offsets,
Also it barely ever get's used since it's only a fail safe in case of a clicking misfunction.

The static wait you pasted is in the Breaking procedure which wouldn't need randomness because it is always varied by the randomness in the Const.
If you meant that I am using Random(3000); and stuff on my Sleep's its exactly the same as Sleep(100+Random(500)); but it isn't always going to be over 100ms which is why I made them like that because with the chances I think it's pointless adding a static before a randomness with this script anyway'z because it's not needed to click properly or function and I like the fact that it could be 10ms every now and again.

Thx for your comment tho..

Just a quick observation: Why not add "AntiBans:=AntiBans+1;" to the outside of your case block instead of inside it for each probability.

Hmmm if the profit/hour is really like that proggy says, this might be my new money making method. Do feathered shafts (lol) sell quickly?

From: smurg
Just a quick observation: Why not add "AntiBans:=AntiBans+1;" to the outside of your case block instead of inside it for each probability.

O I done that part when I was sort of a newb but the reason I did at the time as I recall was because, I would have to Call 2 Probability's just to update it instead of 1, I would need to go
1..182: begin
1..81: blah blah blah
AntiBans:=AntiBans+1;
end;

From: Mjordan
Hmmm if the profit/hour is really like that proggy says, this might be my new money making method. Do feathered shafts (lol) sell quickly?

:) Hmm I updated and it guess what..

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 1 Hours, 17 Minutes and 31 Seconds
Profit Gained: 975000 GP
Profit Per Hour: 754660 GP
Arrows Shafts Feathered: 48750
Arrows Shafts Feathered Per Hour: 37733
Anti-Bans Performed: 21
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

Yeh the 'Feathered Shafts' loolz they do sell quickly as well

That looks awesome, and profits will stay high as long as people sell for mid+ ;)

From: leetsxc


:) Hmm I updated and it guess what..

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 1 Hours, 17 Minutes and 31 Seconds
Profit Gained: 975000 GP
Profit Per Hour: 754660 GP
Arrows Shafts Feathered: 48750
Arrows Shafts Feathered Per Hour: 37733
Anti-Bans Performed: 21
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

Yeh the 'Feathered Shafts' loolz they do sell quickly as well

Oh myyy. After I get done with this batch of unf's I'm giving this a go. I'll report back soon.


EDIT: Well this is a great idea but the GE limits pretty much kill it -__-
You can only buy 10k feathers every 4 hours from the GE. This script uses almost 40k feathers/hour. So unless you stock up for days, well you see what I'm saying….

Keep this public please and like Kyle mentioned Mates please sell Mid+!

From: Mjordan
Oh myyy. After I get done with this batch of unf's I'm giving this a go. I'll report back soon.

EDIT: Well this is a great idea but the GE limits pretty much kill it -__-
You can only buy 10k feathers every 4 hours from the GE. This script uses almost 40k feathers/hour. So unless you stock up for days, well you see what I'm saying….

Doesn't seem to be affecting me lolz :cartman:

Edit:
Ook I'll let you guy's in on my lil method for obtaining that many shafts and feathers,
You just pay people 1 gp extra per feather or shaft their are tons of people in the members just sitting around the G.E talking and stuff if you make a few friends then you can get them to buy 100k Each Per 24 Hour's and say well that's a clean 100k Profit for you everyday without doing anything.
Being in a clan also help's a lot.
Sometimes people get multiple friends to help them out so they can make more profit from you.
So you can get 50k Feathers and 100k Shafts per 24Hours per person if you have it set up correctly, that's why this money making method makes so much because of the limit.
Also while u are doing this part of the method you can use the script without smart and bot while talking and collecting more until you have enough it didn't take me very long ;)

From: leetsxc
Doesn't seem to be affecting me lolz :cartman:

What the hell?? are you buying all of those at once? It's only letting me buy 10k feathers and 20k shafts every 4 hours. I googled it too and that's what the sites said.

Here's a quick proggy I just ran. Profit is around 10-12gp per headless arrow at the current GE prices.

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 34 Minutes and 37 Seconds
Profit Gained: 222750 GP
Profit Per Hour: 386265 GP
Arrows Shafts Feathered: 20250
Arrows Shafts Feathered Per Hour: 35115
Anti-Bans Performed: 7
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

You need to add a check for supplies. I didn't have the same amount of shafts and feathers in my inventory, so it stood there and clicked for like 5 minutes after I ran out of feathers. Also, the shafts feathered count is a little off, I only made a little over 19k.

Those are just little fixes though, it worked extremely well!
Now if I can figure out how you are buying so many supplies at once without the GE limit????

EDIT: ^^^ ahhh now I see how you are doing it.

Nice gotta try it when I get home

Buying feathers and shafts from people works like a charm. I was surprised at the amount of people that only made me pay what they did for them.

Also, everybody sell at mid or above please!!! I just sold 20k of them for mid in about 15 minutes, so they do sell just not instantly.

People better not leak this.. I think I saw a thread on here somewhere of script's in the Member's section showing up elsewhere

Yeah, it's a shame someone would do that. I've seen people sell someone's script ideas from here, without copying a piece of code.

Made about 200k headless arrows today and a little over 2m profit. Great script.

EDIT: Another proggy from today

$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 1 Hours, 38 Minutes and 5 Seconds
Profit Gained: 1431300 GP
Profit Per Hour: 881699 GP
Arrows Shafts Feathered: 110100
Arrows Shafts Feathered Per Hour: 67823
Anti-Bans Performed: 46
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**
Shafts in Inventory = 0
Successfully executed.

I just have my old 10+ player army all buying feathers.

Lol someone made a script for this in public, I'd suggest dumping all your stuff ASAP.

From: Harry
Lol someone made a script for this in public, I'd suggest dumping all your stuff ASAP.

I'm sorry mods, but this calls for cursing…. Fuck.

From: Mjordan
I'm sorry mods, but this calls for cursing…. Fuck.

Better sell your goods asap while you can? Everytime a method is public, it is usually in terms of days for it to go down the drain :D

From: Er1k
Better sell your goods asap while you can? Everytime a method is public, it is usually in terms of days for it to go down the drain :D

Yeah luckily I only have around 100k left, and I am in the process of making those now then selling them. Just sold over 300k of them yesterday too =P

Well at least I made a little money from it while it lasted. Thanks LeetzSxc.

Wtf? It can't be just be by coincidence that someone released this about 1 week after I add this to the section.

The public one looks horrible and is very cheaply done. Doesn't resemble yours at all.

From: Kyle Undefined
The public one looks horrible and is very cheaply done. Doesn't resemble yours at all.

Still it's pretty weird that he released it so soon after leetsxc did.

From: Kyle Undefined
The public one looks horrible and is very cheaply done. Doesn't resemble yours at all.

It's actually nice because people will probably whine about it and then leave it in peace. That way the method will probably won't die out so quickly.

It's sad to see people give up because of some bugs that they can probably fix by learning a little scripting. Many potentially powerful scripts were getting complained and people will start to say, this crap doesn't work.

Love this script. From 33-61 fletch aha, while making nice money. :)

Sadly prices of arrow shafts are slowly increasing.

Thanks a bunch for the nice script.

Will start posting proggies now :)

Edit: Forgot to put in SW, so got forester random and stopped.

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
   $$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
    Time Running: 44 Minutes and 52 Seconds
    Profit Gained: 271800 GP
    Profit Per Hour: 378072 GP
    Arrows Shafts Feathered: 22650
    Arrows Shafts Feathered Per Hour: 31506
    Anti-Bans Performed: 7
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

Updated, It's even more human now and also supports Shaft Crafting.

From: leetsxc
Updated, It's even more human now and also supports Shaft Crafting.

Awesome. Proggie with previous version, don't know why it stopped -

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
   $$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
    Time Running: 47 Minutes and 10 Seconds
    Profit Gained: 306000 GP
    Profit Per Hour: 406044 GP
    Arrows Shafts Feathered: 25500
    Arrows Shafts Feathered Per Hour: 33837
    Anti-Bans Performed: 10
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

Edit: Proggy with new version, manually stopped, awesome script. Thanks a lot. Headless arrows selling for 6gp above mid price, lets keep it like that! Sold 100k of em for 51 each! :)

I cleaned up the script quite a bit, I also added a lot more antiban stuff and made the wait times much more random, added mini breaks and stuff, all in all I should be able to run it longer but it has slowed it down a bit, but you need to fix your standards, your case statements shouldn't all be on one line!

Case Random (2500) of
    0..18: Begin
             SleepAndMoveMouse(5000 + Random(750));
             AntiBans:=AntiBans+1;
           End;
    19..24: Begin
              GameTab(tab_Inv)
              ExamineInv;
              GameTab(tab_Inv);
              SleepAndMoveMouse(2500 + Random(553));
              AntiBans:=AntiBans+1;
            End;
    25..42: Begin
              RandomAngle(1);
              AntiBans:=AntiBans+1;
            End;
    55..60: Begin
              PickUpMouse;
              AntiBans:=AntiBans+1;
            End;
    61..120: Begin
               RandomMovement;
               AntiBans:=AntiBans+1;
             End;
    121..160: Begin
                BoredHuman;
                AntiBans:=AntiBans+1;
              End;
    161..182: begin
                if(gametab(tab_inv))then
                  Begin
                    ExamineInv;
                    AntiBans:=AntiBans+1;
                  End;
              end;
    183..200: begin
                GameTab(tab_Stats);
                HoverSkill(SKILL_FLETCHING, False);
                GameTab(tab_Inv);
                Inc(AntiBans);
              end;
  End;

However this is a really good script, getting 600k/hour due to such a big profit margin (19gp per shaft)

**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
   $$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
    Time Running: 1 Hours, 4 Minutes and 54 Seconds
    Profit Gained: 735300 GP
    Profit Per Hour: 679953 GP
    Arrows Shafts Feathered: 38700
    Arrows Shafts Feathered Per Hour: 35787
    Anti-Bans Performed: 24
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

Script is still running now…

Edit: Just realised you have released a new version, sorry if you have already fixed that stuff

Wow. This looks like a great method. I cant wait to try it out

Oh boy! Sold 50k arrow shafts for 60gp each! Demand is nice! Script is about 800k/hr! :)

Let's keep the prices high! :) Great script to get some starting cash.

They're selling for about 55gp/each right now, profits are great! Just takes a little persistence with buying the supplies.

I just tried your newest update and it's really SLOW…
It waits way too long before making another set of 10. My times are decreased by over 50k arrows/hour! Going back to V1 for now.

Weird it's working sxcely for me hmm..
**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 34 Minutes and 48 Seconds
Profit Gained: 214500 GP
Profit Per Hour: 378900 GP
Arrows Shafts Feathered/Made: 21450
Arrows Shafts Feathered/Made Per Hour: 37890
Anti-Bans Performed: 6
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

From: leetsxc
Weird it's working sxcely for me hmm..
**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**
$$$$$$$$$LeetzSxcArrowShafter$$$$$$$$$$
Time Running: 34 Minutes and 48 Seconds
Profit Gained: 214500 GP
Profit Per Hour: 378900 GP
Arrows Shafts Feathered/Made: 21450
Arrows Shafts Feathered/Made Per Hour: 37890
Anti-Bans Performed: 6
**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**

I'm getting almost 900k profit/hour and 55-65k shafts made an hour on the first version…

Still using first version, noticed this bug:

While ((GetAmountBox(InvBox(4))>ShaftzInInv-Amount) and (TimeFromMark(time)<15000)) do sleep(100);
  

My shafts aren't in 4th, so it kept spam clicking them before 10 were made. I changed it in the const, but that wasn't changed :p (You probably have this problem too Mjordan, this is why you think you're getting so much profit per hr- atm I get about 400k/hr)

It also misclicked once, which broke all of its logic (it kept clicking shaft after it thought feathers was selected, when it was really being the initial white click on the shafts)

Also in your most recent version you really shouldn't setangle every time you're banking. That's a Bad Idea.

Yeh, ^ Fail.. Can't believe I Missed that XD