ok but there is an error at line 0 can u check it out for me?......also how would I make a click to chose option "Headless arrow (set of 15)" actually in rs when u add arrowshafts to feathers. Should I use color finder to set a coordinate?
Simba Code:
program FriendlyFletcher ;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i SRL\SRL.scar}
{$i SPS\SPS.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
Version = '1.00';
SRLstats_Username = '';
SRLstats_Password = '';
BreakEvery = '';// How long until you break
BreakFor = '';// How long the break is
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //USERNAME
Pass := ''; //PASSWORD
Pin := ''; //PIN (if any)
Active := True;
BoxRewards := ['xp'];
LampSkill := 'fletching'; // or change to whatever skill exp you want
end;
end;
procedure AddFeathers;
var
Feather: Integer;
ArrowShaft: Integer;
x, y: Integer;
Begin
SetupSRL;
ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found ArrowShaft');
MMouse(X, Y, 7, 7);
If IsUpText ('rrow') then
Mouse (X, Y, 0, 0, True);
End;
Begin
Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Feathers')
MMouse(X, Y, 7, 7);
If IsUpText ('eather') then
Mouse (X, Y, 0, 0, True);
End;