Etherfreaks fletching script chest support?

[tk8878]

Hey I would like to be able to use the chest in soul wars for fletching using this script but I have no idea how to script it only powerbot or rsbuddy client.

[Note]This is not my script and I will only use it for personal use only!


// script by EtherFreak
program cutnstring1;
{$i srl/srl/misc/Smart.scar}
{.include SRl\SRL.scar}
{$i SRL\SRL\Misc\Stats.simba}

const
// ----------------SETUP-----------------------------
// must be in any bank that has a NPC
//kife in first invintory slot for bow cutting
loadcount= 5000 ; //how many cycles you need (14 to a cycle)
sorc=0 ; //0 for stringing, 1 for cutting
colb= 5 ; //unstrung bow row
rowb= 2 ; //unstrung bow col
cols= 3 ; //bowstring col
rows= 2 ; //bowstring row
col= 2 ; //log row
row= 0 ; //log col

bankty= 1 ; //0 for any npc bank, 1 for specific bank
specific='ank' ; //some valed inputs are: 'veb', 'vwb' 'feb'

var
x, y: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //set username
Pass := ''; //set password
Nick := ''; //set nick 3-4 char
Active := True;
// ---------------END SETUP----------------------------------------
end;
end;


Procedure initrun;
begin
Smart_Members := True;
Smart_Server := 77;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
wait(3000);
SetAngle(true);
mousespeed:=(7+random(5));
end;

Procedure stringing;
begin
mousespeed:=(7+random(6));
wait(200);
if bankty=0 then
openbanknpc;
if bankty=1 then
openbankfast(specific);
wait(500+random(600))
depositall;
wait(800+random(300));
WithdrawEx(colb,rowb,14,[]);
wait(500+random(500));
withdraw(cols,rows,0);
wait(500+random(1000));
closebank;
wait(1800+random(500));
invmouse((random(13)+1),1);
wait(700+random(300));
Invmouse((15+random(14)),1)
wait(1000+random(1000));
mmouse(359,408,200,200);
mmouse(259,408,30,30);
wait(100+random(200));
getmousepos(x,y);
begin
if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
Mouse(x,y,1,1,true)else
exit;
end;
repeat
wait(1000);
until invcount=14
wait(random(5000));
if random(2)=1 then
begin
writeln('taking mini break');
wait(random(20000));
end;
writeln('14 more bows strung');
end;

Procedure Cutting;
var
IT:TInvenItem;
begin
mousespeed:=(7+random(3));
wait(200);
if bankty=0 then
openbanknpc;
if bankty=1 then
openbankfast(specific);
wait(500+random(1000))
invmouse((random(8)+2),2);
wait(400);
FindText(x, y, 'All', UpChars, msx1, msy1, mix2, miy2);
wait(200);
mouse((18+x),(y+2),16,2,true);
wait(800+random(300));
withdraw(col,row,0);
wait(500+random(1000));
closebank;
wait(500+random(1000));
if invfull then
begin
Invmouse((2+random(1)),1)
wait(200+random(300));
invmouse(1,1);
wait(2000+random(1000));
mmouse(359,408,200,200);
mmouse(259,408,30,30);
wait(100+random(200));
getmousepos(x,y);
begin
if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
Mouse(x,y,1,1,true)else
exit;
end;
writeln('Started Cutting');
wait(5000);
IT:=GetInven(28);
repeat //untested, replaces static time
wait(1000)
until IT<>GetInven(28)
writeln('Done Cutting');
wait(random(5000));
if random(2)=1 then
begin
wait(random(10000));
writeln('taking min break');
end;
if invfull then
writeln('27 more unstrung bows')else
begin
writeln('I think you lost your knife');
writeln('Logging out...');
logout;
exit;
end;
end else
begin
writeln('Inv not full, banking issue, or out of logs, logging out');
logout;
exit;
end;
end;

Procedure mainloop;
var
counter:integer;
begin
initrun;
counter:=0;
repeat
counter:=1+counter;
if sorc=0 then //stringing
stringing;
if sorc=1 then //Cutting
cutting;
writeln(loadcount-counter);
writeln('loads to go');
until counter=loadcount
writeln('Another set, problem free');
end;

begin
mainloop;
end.

[Nava2]

Please post in EtherFreak's thread. This will do you no good.