SRL Archive - Outdated / Broken

SuPaFletcher v1.75

[PHP]{==============================================================================]
[ —————– ]
[ ~SuPaFletcher~ ]
[ ———– ]
[ By: ]
[ ChArMz ]
[ ————— ]
[ Version 1.75 ]
[ ————— ]
[ ]
[ Features: ]
[ ~AutoLogin ]
[ ~Randoms ]
[ ~AntiBan ]
[ ~Progress Report ]
[ ]
[ Description: ]
[ A autofletcher that cuts any log into bows, and then strings them. ]
[ ]
[ Directions: ]
[ (1) Start in Varrock West Bank. ]
[ (2) Set the Runescape brightness to V-bright. ]
[ (3) SCAR version 2.0.3 needed. ]
[ (4) Setup lines 40-68. ]
[ (5) Have knife in first invertory spot, extra in 2nd bank spot. ]
[ (6) Have logs in 1st bank spot if cutting them into bows. ]
[ (7) Have (U)Bows in 1st bank slot and bowstrings in 2nd if Stringing. ]
[==============================================================================}[/PHP]

[PHP]<============== Progress Report ===============>
SuPaFletcher v1.0 By: ChArMz
Worked for 51 Minutes and 27 Seconds
Cut 1026 Logs.
Strung 0 Bows.
<============== Progress Report ===============>

<============== Progress Report ===============>
SuPaFletcher v1.25 By: ChArMz
Worked for 33 Minutes and 47 Seconds
Strung 644 Bows.
Gained 59248 Fletching Exp.
<============== Progress Report ===============>[/PHP]

Works Pretty Well, I'm very proud of this script, I recommend trying it out :D

Have FUN!

~ChArMz

Some nice code there, I'll have to try it out one day.

Download it again, I fixed some bugs..Works PERFECT :P..Give feedback please

Very good job I just tested it out on 500 yew (U) long bows and it strung them without a problem.

for some reason its not wanting to do anything for me after it logs in… i have my willow logs in the first bank slot, knife in first inv slot, i have the setup set to cut, willows, longbow oh and im in the right spot too west varrock bank im not real sure what the problem could be it just logs me in and the mouse doesnt move after that

OK, to maybe help some people out, follow these steps.


Make sure you fill out the template and the script with your username and pass and all that.

If you are cutting logs, just put "Cut", not "Cut Logs", it will just sit there if you put "Cut Logs".

If you are making LongBows, make sure the b on bows is capitalized, so its Long"B"ows.


Those little things fixed it for me, and it runs excellent!


Only mistake on my part was that I thought it would know when it ran out of logs, but it didnt, so im probably going to get banned for having it say "27" in the chat for a few hours….But I might get away with it because I chose a highly populated server…guess ill just have to wait and find out, but if a input option could be made for the script where you can put in say "500", then it logs out, that would be very smart, but other than that, rock solid script :D



*Edit*

Well, today I got banned, I didnt even use Scar on the account for more than 5 hours.

I dont know what the heck happened, but I got screwed over big time.

I'm sry for that, When I update it I'll make sure I add those thing into the script..but im glad to hear it works good..thanks

i'l iuse this when i am member and thanx

It works very nice.. untill you gain a level. then it deposits knife, logs and undone bows…. and trys to use a log with a log and type 27 over and over :(…. mine said "27" for 6 hours today…. and plenty of player mods has talked i saw in chat. I hope i dont get banned :P

I have to edit the script for when it gains lvls, i have to make it check for the knife in the inv before fletching, and make the script end when it has run out of logs. So stop using the script until I put all these things into it please, i dont want you to get banned.

Rating : 9/10
reason: because i think it would run over night, if someone had that many logs
Improvements: i found the mouse to be a bit slower than a human would, try the one in squig 4 ( mousec).
report:

<============== Progress Report ===============>
<============== Progress Report ===============>
SuPaFletcher v1.25 By: ChArMz
Worked for 1 Minutes and 59 Seconds
Gained 0 Fletching Exp.
Strung 14 Bows.
Gained 0 Fletching Exp.
<============== Progress Report ===============>

thankyou very much

The worst part about my ban was that I had about 5k yew logs on it :(

But theres no doubt that this script will cut 2k logs +, as I did that, and I know it would have been able to do the 5k as well.


*Edit*

Im sure you know what is wrong with the script, but im going to make a short list of stuff here.

- Level Up - Doesnt recognize when levelled up, goes through as it normally would, skipping all uncut logs.
- Stringing - Sometimes it wont withdraw the Bowstring, it will right click, then miss the "Withdraw All".
- Stringing - It will sometimes mess up when it is putting the 1st bow to the 28th inv. spot, it will put it in the 27th instead.
- Biggest One of All - Doesnt stop when it runs out of logs/string/bows. Maybe just put a field where the user can specify how many logs to cut/string.
- Cutting - Deposits knife somehow?
- Random - Ended up to the right outside of Varrock Bank (W).


Im pretty sure thats all of the major bugs with the script, once thats all fixed up it will be a wicked script, im using it right now and went from level 5 to 40 in an hour and a bit :D

From: HDKilla
The worst part about my ban was that I had about 5k yew logs on it :(

But theres no doubt that this script will cut 2k logs +, as I did that, and I know it would have been able to do the 5k as well.


*Edit*

Im sure you know what is wrong with the script, but im going to make a short list of stuff here.

- Level Up - Doesnt recognize when levelled up, goes through as it normally would, skipping all uncut logs.
- Stringing - Sometimes it wont withdraw the Bowstring, it will right click, then miss the "Withdraw All".
- Stringing - It will sometimes mess up when it is putting the 1st bow to the 28th inv. spot, it will put it in the 27th instead.
- Biggest One of All - Doesnt stop when it runs out of logs/string/bows. Maybe just put a field where the user can specify how many logs to cut/string.
- Cutting - Deposits knife somehow?
- Random - Ended up to the right outside of Varrock Bank (W).


Im pretty sure thats all of the major bugs with the script, once thats all fixed up it will be a wicked script, im using it right now and went from level 5 to 40 in an hour and a bit :D

the problem with ending up on the right side of the bank happens when i dont even have an auto running(when im doin it legit) and if u click the knife or log it sumtimes make u walk around to theright side of the bank but this only happens to me when i dont click on the log or knife perfectly

Oh, I see.


If this script is going to be updated, might as well take a look at some of this.


- When inputting # to string/cut, make it a random number above 27, but the same digits, such as 33, 44, 55, 66, etc, and randomize which is put in, I never put in 27, its always whatever is quickest for me at that moment.

- If possible, speed up the whole process, not sure, but not a big dealio if it cant be done.


Thats all I can think of atm, along with my other post pertaining to the bugs, I just wanted to say that I appreciate your work, along with all of the other scripters :)

I have edited this script a bit, so it worked nicer for me, and less detectable im pretty sure. I think i stuck some more waits+random waits inthere… But i cant remember it all, cause ive been used it for a week now. Working nice charmz, besides sometimes it will for some reason deposit the knife. i think its something when you level up, im not sure though :/

{==============================================================================]
[                             -----------------                                ]
[                               ~SuPaFletcher~                                 ]
[                                -----------                                   ]
[                                   By:                                        ]
[                                  ChArMz                                      ]
[ ---------------                                                              ]
[  Version 1.25                                                                ]
[ ---------------                                                              ]
[                                                                              ]
[ Features:                                                                    ]
[  ~AutoLogin                                                                  ]
[  ~Randoms                                                                    ]
[  ~AntiBan                                                                    ]
[  ~Progress Report                                                            ]
[                                                                              ]
[ Description:                                                                 ]
[  A autofletcher that cuts any log into bows, and then strings them.          ]
[                                                                              ]
[ Directions:                                                                  ]
[  (1) Start in Varrock West Bank.                                             ]
[  (2) Set the Runescape brightness to V-bright.                               ]
[  (3) SCAR version 2.0.3 needed.                                              ]
[  (4) Setup lines 40-67.                                                      ]
[  (5) Have knife in first invertory spot, extra in 2nd bank spot.             ]
[  (6) Have logs in 1st bank spot if cutting them into bows.                   ]
[  (7) Have (U)Bows in 1st bank slot and bowstrings in 2nd if Stringing.       ]
[==============================================================================}

Program SuPaFletcher;
{.include SRL/SRL.Scar}

Var
EXP, AmountFletched, AmountStrung, StartPlayer: Integer;
UseAntiBan : Boolean;

Const
Ver = 'v1.25';

{---------Setup----------------------------------------------------------------}

Const
StringOrCut= 'Cut'; //String, or Cut Logs
TypeOfBow= 'LongBow'; //Make LongBow, or Shortbow
TypeOfLogs= 'Yew'; //Normal, Oak, Willow, Maple, Yew, or Magic


Procedure SetUpVars;
Begin
 StartPlayer     := 0;         //First Player To Start
 HowManyPlayers  := 1;         //Number of Players
 MouseSpeed      := 15;        //15 for fletching, 11 for stringing
 UseAntiBan      := True;      //Will Chat, Rotate Screen, Check Exp, Ect.
End;

Procedure DeclarePlayers;
Begin
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=StartPlayer;

     Players[0].Name   :='*';         //Type in Username And Password
     Players[0].Pass   :='*';
     Players[0].Nick   :='*';           //Nick Name of Current Player
     Players[0].Active :=True;
End;

{------------------------------------------------------------------------------}

{-Main Script-}

Procedure Ro1;
Begin
Keydown(VK_DOWN);
 Wait(100+Random(2000));
Keyup(VK_DOWN);
  Wait(100+random(500));
Keydown(VK_Right);
 Wait(100+Random(2000));
Keyup(VK_Right);
  Wait(100+random(500));
Keydown(VK_Up);
 Wait(100+random(2000));
KeyUp(VK_Up);
 Wait(100+Random(500));
Keydown(VK_Left);
 Wait(100+Random(2000));
KeyUp(VK_Left);
End;

Procedure Ro2;
Begin
Keydown(VK_DOWN);
 Wait(100+Random(2000));
Keyup(VK_DOWN);
 Wait(100+Random(500));
Keydown(VK_Right);
 Wait(100+Random(2000));
KeyUp(VK_Right);
 Wait(100+Random(500));
Keydown(VK_Up);
 Wait(100+random(2000));
KeyUp(VK_Up);
 Wait(100+Random(500));
Keydown(VK_Left);
 Wait(100+Random(2000));
KeyUp(VK_Left);
End;

Procedure Rotate;
Var RandomRotate: Integer;
Begin
  RandomRotate:=Random(2)+1
    Case RandomRotate of
      1:Ro1;
      2:Ro2;
  End;
End;

Procedure ALLExp;
Begin
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Normal')then EXP:= 5;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Normal')then EXP:= 10;
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Oak')then EXP:= 16;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Oak')then EXP:= 25;
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Willow')then EXP:= 33;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Willow')then EXP:= 41;
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Maple')then EXP:= 50;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Maple')then EXP:= 58;
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Yew')then EXP:= 67;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Yew')then EXP:= 75;
If(TypeOfBow= 'Shortbow') and (TypeOfLogs= 'Magic')then EXP:= 83;
If(TypeOfBow= 'LongBow') and (TypeofLogs= 'Magic')then EXP:= 92;
End;

Function GainLvl: Boolean;
Begin
If(FindColorTolerance(x, y, 16711680, 15, 349, 466, 431, 3))then
  Begin
    Mouse(x, y, 1, 1, true);
    Wait(500+random(100));
If(FindColorTolerance(x, y, 16711680, 15, 349, 466, 431, 3))then
     Begin
      Mouse(x, y, 1, 1, true);
      Wait(500+random(100));
     End;
    Result:=True;
  End;
End;

Procedure OpenBank4;
Var
  x, y, fs, fs2 : Integer;
Begin
  If not BankScreen then
    Repeat
      If (FindObj3(x, y, 'Use Bank', 608609, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 3239562, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 4803151, 10)) then
        Mouse(x, y, 4, 4, False);
      Wait(250+random(150));
      If (ClickOption('quickly', 1)) then
      Begin
        Flag;
        Repeat
          Wait(100+random(100));
          fs := fs + 1;
        Until (BankScreen) or (fs >= 50);
      End;
      fs2 := fs2 + 1;
    Until (BankScreen) or (fs2 > 5);
End;

{=====================Progress Report==========================================}

Procedure ProgressReport;
Begin
  WriteLn('<============== Progress Report ===============>');
  WriteLn('SuPaFletcher ' + Ver + ' By: ChArMz');
  Writeln('Worked for '+ TimeRunning);
  If(StringOrCut= 'Cut')then
  WriteLn('Fletched '+IntToStr(AmountFletched)+' Logs.');
  WriteLn('Gained '+IntToStr(AmountFletched*EXP)+' Fletching Exp.');
  If(StringOrCut= 'String')then
  WriteLn('Strung '+IntToStr(AmountStrung)+' Bows.');
  WriteLn('Gained '+IntToStr(AmountStrung*EXP)+' Fletching Exp.');
  WriteLn('<============== Progress Report ===============>');
End;

{==============================================================================}

Procedure DepositAndWithdrawLogs;
Begin
OpenBank4;
  If(not(BankScreen))then
OpenBank4;
If(BankScreen)then
FixBank;
Wait(1000+Random(1000));
 Deposit(2, 28, 2);
Wait(1000+Random(1000));
    BankMouse(1, False);
Wait(800+Random(1000));
 ChooseOption(x, y, 'All');
 Wait(800+Random(1000));
Repeat
  CloseWindow;
Until(not(BankScreen));
End;

Procedure CutIntoBows;
Begin
If(TypeOfBow= 'LongBow')then
Begin
Gametab(4);
Wait(300+Random(1000));
MMouse(585, 230, 3, 3);
 Mouse(585, 230, 3, 3, True);
Wait(700+Random(1000));
  MMouse(627, 226, 3, 3);
   Mouse(627, 230, 3, 3, True);
Wait(300+Random(1000));
    MMouse(382, 404, 10, 10);
     Mouse(382, 404, 10, 10, False);
Wait(1000+Random(1000));
  ChooseOption(x, y, 'Make X');
Wait(1000+Random(1000));
 Typesend('27');
  GainLvl;
Wait(50000+random(2050));
 ProgressReport;
AmountFletched:=AmountFletched+27;
 DepositAndWithDrawLogs;
End;
If(TypeOfBow= 'Shortbow')then
Begin
Gametab(4);
Wait(300+Random(1000));
MMouse(585, 230, 3, 3);
 Mouse(585, 230, 3, 3, True);
Wait(700+Random(1000));
  MMouse(627, 226, 3, 3);
   Mouse(627, 230, 3, 3, True);
Wait(300+Random(1000));
    MMouse(152, 405, 10, 10);
     Mouse(152, 405, 10, 10, False);
Wait(1000+Random(1000));
  ChooseOption(x, y, 'Make X');
Wait(1000+Random(1000));
 Typesend('27');
  GainLvl;
  Rotate;
Wait(50000);
 ProgressReport;
AmountFletched:=AmountFletched+27;
 DepositAndWithDrawLogs;
  End;
End;

Procedure DepositAndWithDrawStrings;
Begin
OpenBank4;
  If(not(BankScreen))then
OpenBank4;
If (BankScreen) then
 FixBank;
Wait(900+Random(1000));
 Deposit(1, 28, 2);
Wait(900+Random(1000));
 Withdraw(1, 1, 14);
Wait(900+Random(1000));
 BankMouse(2, False);
Wait(500+random(250));
 ChooseOption(x, y, 'All');
Repeat
  CloseWindow;
Until(not(BankScreen));
End;

Procedure SBows;
Begin
  DragItem(1, 28);
  Wait(900+Random(1000));
Repeat
  MMouse(670, 442, 3, 3);
   Wait(100+random(100));
 Mouse(670, 442, 3, 3, True);
  Wait(200+random(100));
  MMouse(713, 441, 3, 3);
   Wait(100+random(100));
 Mouse(713, 441, 3, 3, True);
    Wait(200+random(100));
  MMouse(671, 444, 3, 3);
   Wait(100+random(100));
 Mouse(671, 444, 3, 3, True);
  Wait(200+random(100));
  MMouse(712, 444, 3, 3);
   Wait(100+random(100));
 Mouse(712, 444, 3, 3, True);
Until(InvCount=14);
 ProgressReport;
AmountStrung:=AmountStrung+14;
 DepositAndWithdrawStrings;
End;

{-Randoms-}

Procedure Randoms;
Begin
  CloseWindow;
  FindFight;
  SolveBox;
  Findlamp('fletching');
  DwarfItem;
  FindPlant;
  If(FindFight)then
  Begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
      If(FindName)then
      Begin
        FindTalk;
    End;
  End;
End;

{-Antiban-}

Procedure ABan;
Begin
If (UseAntiBan= True) then
begin
     RotateEvery (20+Random(10));
     LeaveScreenEvery (5+Random(5));
     HoverEvery (10 +Random(10), 'fletching');
 End;
End;

Procedure FletchLogs;
Begin
If(StringOrCut= 'Cut')then
Begin
Repeat
 CutIntoBows;
Until(False);
 End;
End;

Procedure StringBows;
Begin
If(StringOrCut= 'String')then
Begin
 Repeat
  SBows;
Until(False);
 End;
End;

Procedure Setup;
Begin
SetupSRL;
  SetUpVars;
   DeclarePlayers;
    ALLExp;
 LoginPlayer;
DisguiseScar('Winamp');
End;

{-Main Loop-}

Begin
Setup;
 FletchLogs;
 StringBows;
End.

To avoid the depositing of the knife, just change;

Deposit(2, 28, 2);

to

Deposit(2, 28, 10);


So instead of it possibly clicking on the knife, then deposit, it will click on just another bow. I dont have the script on this comp., but I am pretty sure that what I changed above is correct, but feel free to tell me otherwise.


Its an easy fix, but im still new to everything, so I was happy when I changed it :)

Updated Script, Fixed everything that needed to be fixed, test it out and tel me how it works =D

From: _ChArMz
Updated Script, Fixed everything that needed to be fixed, test it out and tel me how it works =D

Just sits there when I start it up, doesnt do anything :/

EDIT

Its the Longbow thing again, has to be Long(B)ow, my bad.



ANOTHER EDIT

I let it run last night, and I had it set to cut 2k logs, and it cut more around 6k, and I came back to it with a inv. full of bow string :/

And stringing is still bugged, it will miss the withdrawing of the BS, then it just gets stuck in a loop :/

From: _ChArMz
Updated Script, Fixed everything that needed to be fixed, test it out and tel me how it works =D

Cant see anything new, can you point it out for me? :)

Tip on strings :

LowerCase(StringHere)

^ This lowercases every string you put in. So it wouldn't matter if people would type lONGbOWS, it would still be longbows for the script. :)

I let it run last night, and I had it set to cut 2k logs, and it cut more around 6k, and I came back to it with a inv. full of bow string :/

And stringing is still bugged, it will miss the withdrawing of the BS, then it just gets stuck in a loop :/

I fixed the banking of the bowstrings..that now works..but i dont understand y it didnt stop at the 2k u had set..

Get this….I got banned a little while ago right after I bought 5k yew logs, like I said, then, more recently, I got banned right after I sold 5k yew long bows….I told Jagex this in my appeal, and I was unbanned the next day, I was banned as I was selling the longs as well, because I was disconnected then upon relogging in, I was banned.

Any thoughts on this new shit Jagex is trying to pull off?

Failed when compiling
Line 317: [Error] (14918:1): Unknown identifier 'RunAwayDirection' in script

I get this when i try to run it and i got srl 3.3 install too

Line 317: [Error] (15172:1): Unknown identifier 'RunAwayDirection' in script C:\DOCUME~1\Owner\LOCALS~1\Temp\ChArM's SuPaFletcher v1.75-2.scar

Few adjustments..but i like it ;)

looks pretty good

Coding is hillarious.
Its almost all cords =)
But hey, all devs start somewhere.
I know this thread is older than my grandma, but here:

<============== Progress Report ===============>
SuPaFletcher v1.75 By: ChArMz
Worked for 8 Minutes and 11 Seconds
Fletched 135 Logs.
Gained 10125 Fletching Exp.
<============== Progress Report ===============>

worked well after a few quick fixes.

10-18-2006, 05:48 PM Gravedig

I am well aware of the date it was posted.
Wouldn't consider it gave digging as it was 3rd on the list anyways, also no one comments any of the fletcher's in the section anyways or even looks at these threads, so no harm done.

Yeah, I just wanted to use the opportunity of saying first time "gravedig"