First try not to double post :) only do it if you absoulutley need to…second..read instructions In the script or maybe on the screen…says compatible with ANY bank…so i would start with empty inv..just with knife in 1st slot maybe…and also have logs/fletching logs you WANT to fletch beside Bowstrings?
Looks good will post more feedback ON THE SCRIPT later.
const
TotalLogs=();
Bank = '';
It will NOT compile…it WILL compile if you put a number between
const
TotalLogs=();
so in your script i would put an example of numbers such as 100…so others can check if it CAN compile…looks good…will put in anti randoms+ send you it later
OK ADD ME TO CREDS IF YOU WANT /IF YOU UPDATE SCRIPT…OR USE THIS..
but i dont care if you do or not..IF you cant see the script link below copy and paste this into SCAR 3.15
{lVlaverick's yew Fletcher
Current Version out is: V1.5
Remember to check to see if theres newer versions}
program YewFletcherV1ReleaseBeta;
{.Include Srl/Srl.Scar}
var
x, y, Logscut : Integer;
yewlog, knife : Integer;//Bitmaps
const
TotalLogs=(100); //EXAMPLE OF HOW MANY LOGS YOUR FLETCHING..//
Bank = '';
Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
NumberOfPlayers( 1 );
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='';
Players[0].Active:=True;
End;
Procedure LoadDTMS;
Begin
YewLog := DTMFromString('78DA638C62606048634001899E3C609A11CA0' +
'70023F70179');
Knife := DTMFromString('78DA63B4656260E0656440061136DC601A260' +
'A00143A00EF');
End;
Function LogsInInv : Boolean;
Begin
if (FindDTM(YewLOg, x, y, MIx1, MIy1, MIx2, MIY2)) Then
Begin
Result := True;
End;
End;
procedure CheckRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
Procedure AntiBan;
Begin
Case Random(15) of
1, 2, 3: HoverSkill('random', false);
4, 5, 6: BoredHuman;
7, 8, 9, 10, 11: PickUpMouse;
12 : HoverSkill('fletching', false);
End;
End;
Procedure TakeOutYews;
Begin
If (BankScreen) Then
Begin
If (FindDTM(Yewlog, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
Mouse(x, y, 10, 10, False);
Wait(100+random(500));
FindNormalRandoms;
ChooseOption('All');
CloseBank;
End;
End;
End;
Procedure CutTehYews;
Begin
If (LogsInInv = True) Then
Begin
If (FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2)) Then
Begin
Mouse(x, y, 5, 5, True);
Wait(100+random(500));
Mouse(609, 231, 10, 10, True);
Wait(250+random(500));
FindNormalRandoms;
Mouse(259, 413, 10, 10, False);
Wait(300+random(500));
ChooseOption('X');
Wait(250+random(500));
TypeSend('27');
LogsCut:=LogsCut+27;
AntiBan;
Wait(51000+Random(5000));
FindNormalRandoms;
End;
End;
End;
Procedure BankTehYews;
Begin
OpenBankquiet(Bank);
wait(1500+random(500));
Mouse(624, 228, 10, 10, false);
Wait(150+random(250));
FindNormalRandoms;
ChooseOption('All');
Wait(500+random(250));
End;
Procedure StartTakeOut;
Begin
If (LogsInInv = False) Then
Begin
OpenBankQuiet(Bank);
Wait(1500+random(1500));
FindNormalRandoms;
End;
End;
begin
SetUpSrl;
ActivateClient;
LoadDTMS;
DeclarePlayers;
loginplayer;
gametab(4);
StartTakeOut;
Repeat
TakeOutYews;
CutTehYews;
FindNormalRandoms;
BankTehyews;
Until(LogsCut >= TotalLogs)
FreeDTM(yewlog);
FreeDTM(knife);
end.
or get it here
BTW: almost forgot :duh: looks GREAT for first script…would test if i had a mem :p