Here is a script someone just wrote... it's pretty simple. Maybe you two can work together, he is new to it too.
It high or low alchs, i took out the credits. Its Da Der Der's, if you want to know. Avliable now! 
Code:
program High_Low_Alcher;
{.include SRL/SRL.scar}
var
NumAlchs: Integer;
const
Alchs=2; {Number of alchs that you will be completing}
HighAlcha=True; {Set True for High Alch, False for Low Alch}
Procedure DeclarePlayers;
Begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
End;
Procedure MageBook;
Begin
Mouse(735,184,3,4,True);
Wait(300)
End;
Procedure ProgressReport;
Begin
Writeln(' /////////////////////\\\\\\\\\\\\\\\\\\\\\ ')
Writeln(' Thanks for using' )
Writeln(' Da Der Ders Alcher' )
Writeln(' Worked For:'+ScriptTime2(2) )
Writeln(' Alched:'+IntToStr(NumAlchs)+'Times' )
Writeln(' \\\\\\\\\\\\\\\\\\\\\///////////////////// ')
End;
Procedure HighAlc;
Begin
Mouse(708,326,3,2,True);
Wait(500)
Mouse(711,334,3,4,True);
Wait(3000)
End;
Procedure LowAlc;
Begin
Mouse(707,252,3,2,True);
Wait(500)
Mouse(708,262,2,3,True);
Wait(3000)
End;
Procedure NoBan;
Begin
AntiBan;
BoredHuman;
RandomMovement;
FindMod;
RotateEvery(10);
FindNormalRandoms;
End;
Begin
MageBook;
DeclarePlayers;
If HighAlcha=True Then
Repeat
SetupSRL;
HighAlc;
NumAlchs:=NumAlchs+1;
Until(NumAlchs=Alchs)
SRLRandomsReport;
ProgressReport;
If HighAlcha=False Then
Repeat
SetupSRL;
LowAlc;
NumAlchs:=NumAlchs+1;
Until(NumAlchs=Alchs)
SRLRandomsReport;
ProgressReport;
End.