well ye i tried the tuts but im not good in english..
id rather have someone explaining it to me so i understand better
this is what i have so far
i used a bit from an other buying script
i dont know if it would work or even do anything 
alot still needs to be done too
SCAR Code:
program New;
{----------------------------------------------}
{---------Unl's bronze claw buyer--------------}
{----------------------------------------------}
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
Const
SRLID = ''; // your srl ID
SRLPass = ''; // your srl pass
LoadsPerPlayer = 5; // Loads to do before switching players
SmartPrefix = 'world158'; // Smart world you want to use
Procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
End;
Procedure ToMartin; // still needs to be done
begin
end;
procedure FindMartin; // still needs to be done
begin
end;
Procedure BuyClaws;
begin
FindMartin;
begin
wait(random(2000));
MouseBox(67, 110, 92, 127, 3) // isnt right i think
if(IsUpText('Bronze claws'))then
begin
getmousepos(x, y)
wait(100)
Mouse(x,y,0,0,false)
ChooseOption('Buy X')
Wait(1000)
Case Random(4) of
0: TypeSend('29');
1: TypeSend('32');
2: TypeSend('45');
3: TypeSend('55');
end;
end
else
begin
MouseBox(50, 70, 116, 79, 1) // isnt right i think
wait(random(600))
BuyVials;
end;
Wait(400)
end;
end;
Procedure ToBank; // still needs to be done
begin
end;
Procedure OpenBank; // still needs to be done
begin
end;
Procedure Deposit;
begin
if(BankScreen)then
begin
Flag;
DepositAll;
Claws := Claws + 27;
wait(random(2000));
end
end;
Procedure Setup;
begin
SetupSRL;
Wait(1000)
ActivateClient;
Wait(2000)
DeclarePlayers;
if(not LoggedIn) then LoginPlayer;
wait(1000)
SetAngle(True);
MakeCompass('N');
wait(1000)
end;
Procedure ProgressReport;
var TotalSpent, RateV, Sec : integer;
begin
TotalSpent := Claws * 15;
Sec := GetTimeRunning div 1000+1;
RateV := 3600 * Claws / Sec;
begin
Writeln('X=============================================X');
Writeln('X unls Claw Buyer X');
Writeln('X GP Spent: ' + IntToStr(TotalSpent) + 'gp. X');
Writeln('X Bought: ' + IntToStr(Vials) + ' Claws. [' +IntToStr(RateV)+' Claws p/h.] X');
Writeln('X=============================================X');
Writeln('X Ran For: ' + TimeRunning + ' X');
Writeln('X X');
Writeln('X=============================================X');
end;
end;