credits go to http://villavu.com/forum/member.php?u=87851 for his Gbodies script, I used it as a base to make this script.
Start at soul wars with 28 fletchable logs in inventory.
Also have those logs in the 1st slot of the bank in any tab.
Everytime I ran this script, it ran for 6 hours D:
Simba Code:
program SixHourFletcher;
{$DEFINE SMART}
{$i srl\srl.simba}
var
Bow, xp: Integer;
//***********Have full invent of logs before you start************
//change line 105 and 107's 1000 & 750 to a higher number if you have a laggy PC
//Change line #120 to the amount of the xp you get on the certain log
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := 'xx'; //name
Pass := 'xx'; //password
Nick := 'xx'; //nickname
Pin := 'xx'; //pin (if you atleast have one, else leave it)
Active := True;
end;
end;
//////////////////////No need for change below this line///////////////////////
procedure Camera;
begin
setangle(0);
Makecompass('N');
end;
procedure NormalCheck;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure Banking;
begin
begin
repeat
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Deposit(1,28, true);
end;
if invCount=0 then
begin
Withdraw(0, 0, 28);
end;
begin
if BankScreen then
CloseBank;
end;
end;
procedure Antiban;
begin
if FindNormalRandoms then
begin
Camera;
end;
case Random(200) of
0: RandomRClick;
1: PickUpMouse;
2: HoverSkill(skill_Fletching, False);
end;
end;
procedure FletchAllTheLogsFirst;
var
Time: integer;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(1, 1);
wait(1000+randomrange(0,100));
Mouse(260, 475, 20, 20, true);
wait(1000+randomrange(0,100));
Mouse(260, 475, 25, 25, true);
wait(750+randomrange(0,100));
MarkTime(Time);
While (TimeFromMark(Time) <= ((42*1269))) do
begin
Wait(100+random(50));
FindNormalRandoms;
Antiban;
end;
Bow := Bow+28;
end;
procedure FletchAllTheLogs;
var
Time: integer;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(1, 1);
wait(1000+randomrange(0,100));
Mouse(260, 425, 20, 20, true);
wait(750+randomrange(0,100));
MarkTime(Time);
While (TimeFromMark(Time) <= ((42*1269))) do
begin
Wait(100+random(50));
FindNormalRandoms;
Antiban;
end;
Bow := Bow+28;
end;
//Change for XP- Currently at yew longbows
Procedure Exp;
begin
xp := Bow*150;
end;
Procedure Progress;
begin
Exp;
Writeln('============================================');
Writeln('We are running now for '+TimeRunning+'');
Writeln('You have gained '+inttostr(xp)+' Fletching xp');
Writeln('============================================');
end;
procedure First;
begin
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 72;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}
SetupSRL;
DeclarePlayers;
LoginPlayer;
Bow := 0;
end;
begin
writeln('Initial Start');
First;
writeln('Loading');
Camera;
FletchAllTheLogsFirst;
repeat
writeln('BANKING TIME');
Banking;
Writeln('Making the Bows');
FletchAllTheLogs;
Writeln ('Checking for randoms');
NormalCheck;
Progress;
until not LoggedIn;
Writeln('What happened? Please post it in the topic');
Progress;
TerminateScript;
end.