hey i need some help with the script by Sleziak she has a script and is gone away on vacation, this is hers >>>
Code:
program new;
{.include SRL/SRL/misc/Smart.Scar}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/Skill/Magic.scar}
const
Username = '';  //Your Runescape username
Password = '';  //Your Runescape password
Nickname = 'cle';  //Few letters from your name Example: Username = 'Zezima'  then the nickname would be 'Zez'
ToDo = 1000;       //How many rings do you want to alch
logo = false;   //Log out after doing the desired ammount of alches/Using all your nature runes?



var
x,y,a,b,counter,exp : integer;

procedure DeclarePlayers;
begin
 HowManyPlayers := 1;
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0;
 Players[0].Name := Username;
 Players[0].Pass := Password;
 Players[0].Nick := Nickname;
 Players[0].Active:= true;
end;

procedure FindIrksol;
var
  TMT, Times: Integer;
begin
  TMT := 0;
  if not ShopScreen then
  begin
  wait(2000+random(3000))
  if(FindSymbolIn(x, y, 'gem stall', MMX1, MMY1, MMX2, MMY2)) then
  begin
  writeln('Walking to gem stall');
  flag;
  Mouse(x + 12, y, 0, 0, true)
  Flag;
  end;
  repeat
  Times:=0;
  TMT := TMT + 1
  if FindObjCustom(x, y, ['Talk-to Irk'], [2965826, 2965826], 4) then
  begin
  Wait(50 + Random(20));
  Mouse(X, Y, 1, 1, false);
  Wait(50 + Random(20));
  if ChooseOption('rade') then
  begin
  repeat
  Times:= Times + 1
  wait(100);
  until (ShopScreen) or (Times > 20);
  if shopscreen then
  begin
  writeln('Trading Irksol');
  exit;
  end;
  end;
  end;
  until (TMT > 5);
  if (not(ShopScreen)) then
  begin
  if(FindSymbolIn(x, y, 'gem stall', MMX1, MMY1, MMX2, MMY2)) then
  begin
  Mouse(x + 12, y, 0, 0, true)
  Players[CurrentPlayer].loc := 'gem stall';
  FindIrksol;
  end;
  end
  else
  Writeln('Could Not Find Irksol.');
  end
  else
  Logout;
end;



Procedure BuyRings;
begin
  FindIrksol;
  begin
  wait(random(2000));
  MouseBox(74,101,85,111, 3)
  if(IsUpText('Ruby'))then
  begin
  writeln('Buying rings');
  getmousepos(x, y)
  wait(100)
  Mouse(x,y,0,0,false)
  ChooseOption('Buy X')
  Wait(1000)
  TypeSend(IntToStr(RandomRange(28, 99)));
  CloseWindow;
  end
  else
  begin
  MouseBox(50, 70, 116, 79, 1)
  wait(random(600))
  BuyRings;
  end;
  Wait(400)
  end;
  end;
  
procedure Progress;
  begin
  Cleardebug;
  if (loggedin=false) or (Counter > ToDo) then
  begin
  Writeln('----------------------------------------------');
  Writeln(' _____________________________________________');
  Writeln('- Sleziak''s    Zanaris alcher               ');
  Writeln('- Ran for: ' + (TimeRunning) + '              ');
  Writeln('- Alched ' +IntToStr(Counter)+ ' rings        ');
  writeln('- You have gained ' +  IntToStr(exp) + ' Exp!' );
  Writeln('- Succesfully alched all requested rings      ');
  Writeln('-            Post this proggy please ;)       ');
  Writeln('-_____________________________________________');
  Writeln('----------------------------------------------');
  terminatescript;
end
else
begin
  Cleardebug;
  if(Counter < ToDo) then
  begin
  Writeln('----------------------------------------------');
  Writeln(' _____________________________________________');
  Writeln('- Sleziak''s    Zanaris alcher               ');
  Writeln('- Ran for: ' + (TimeRunning) + '              ');
  Writeln('- Alched ' +IntToStr(Counter)+ ' rings        ');
  Writeln('- You have gained ' +  IntToStr(exp) + ' Exp! ');
  Writeln('-                Still running!               ');
  Writeln('-            Post this proggy please ;)       ');
  Writeln('-_____________________________________________');
  Writeln('----------------------------------------------');
end
end
end;

procedure Checkrunes;
  begin
  if (FindBlackChatMessage('ature')) then
  TerminateScript;
end;

Procedure Alch;
  begin
  repeat
  if (not(LoggedIn)) then
  LoginPlayer;
  FindNonInventoryRandoms;
  wait(400+random(100));
  Cast('high level alchemy');
  findcolortolerance(a,b,1749707,555,213,722,453,2);
  mmouse(a+random(5),b+random(5),0,0)
  wait(1600+random(100));
  if not findcolortolerance(a,b,1749707,555,213,722,453,2) then
  begin
  buyrings;
  end
  else
  mouse(a,b,0,0,true);
  checkrunes;
  exp:= exp + 65;
  counter:= counter + 1;
  progress;
  until(false);
end;

Procedure ScriptTerminate;
  Begin
  progress;
  WriteLn('Out of runes!');
  if logo = true then logout
  else
  WriteLn('Finished script/Out of runes!');
end;

begin
 SetupSrl;
SmartSetupEx(100, True, True, False);
SetTargetDC(SMARTGetDC);
 DeclarePlayers;
 LogInPlayer;
 Wait(2000);
repeat
SetAngle(True);
MakeCompass('N');
SetRun(True);
BuyRings
alch;
findnormalrandoms;
checkrunes;
progress;
wait(2000);
until(loggedin=false)
end.
then this is a anothers that updated it, but it cant find the store keeper -.-
>>>
Code:
program new;
{.include SRL/SRL/misc/Smart.Scar}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/reflection/Reflection.scar}

const
  Username = 'cleaned you2';  //Your Runescape username
  Password = '';  //Your Runescape password
  Nickname = 'cle';  //Few letters from your name Example: Username = 'Zezima'  then the nickname would be 'ezi'
  ToDo = 2000;       //How many rings do you want to alch? If you're using all your nature runes, set 1 higher.
  logo = false;   //Log out after doing the desired ammount of alches/Using all your nature runes?

var
  cx, cy, Counter, Exp, OldItemSlots, NewItemSlots, dtmHAlch, dtmRing: integer;
  FirstCast: boolean;
  ItemSlots, ItemSlots2: TIntegerArray;

procedure DeclarePlayers;
begin
  Status('Declaring Players.');
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nickname;
  Players[0].Active:= true;
end;

procedure LoadDTM; //Thanks to cycrocism for the dtm of the ring and akwardsaw for the dtm of the high alch
begin
  dtmHAlch := DTMFromString('78DA63B46662604860644006BFBEF18069982' +
       '8A31D504D04AA1A982C5C8D03116A9C816A5209A83102AA4922A0' +
       'C61EA82604BF1A004F1D05B8');
  dtmRing := DTMFromString('78DA638C626060286340011EF6C6609A11CA6' +
    '78C011239A86A36A88AA2AA89031225A86A2E6C934455130D24AA51D' +
    '5EC592A8EAA26144854A1AAB9B4430A554D389028445533BB5D18554' +
    'D3C90C84355D3262380A206000F1D0DF9');
end;

function FindKeeper : boolean;
var
  jNPC : TNPC;
begin
  if (FindNPC('Irksol', jNPC)) then
  begin
    Mouse(jNPC.ms.x, jNPC.ms.y, 2, 2, false);
    Result := ChooseOption('rade');
    Flag;
  end;
end;

procedure BuyRings;
begin
  Status('Finding storekeeper.');
  FirstCast := true;
  repeat
    FindKeeper;
    Flag;
    Wait(Random(1000));
  until (ShopScreen);
  Status('Buying rings.');
  if FindDTM(dtmRing, cx, cy, MSX1, MSY1, MSX2, MSY2) then
  begin
    Mouse(cx, cy, 7, 7, false);
    Wait(100 + Random(200));
    ChooseOption('uy X');
  end;
  Wait(1000);
    case Random(8) of
      0: TypeSend('28');
      1: TypeSend('32');
      2: TypeSend('54');
      3: TypeSend('55');
      4: TypeSend('65');
      5: TypeSend('65');
      6: TypeSend('98');
      7: TypeSend('87');
    end;
  CloseWindow;
end;

procedure Progress;
begin
  ClearDebug;
  if (loggedin=false) or (Counter > ToDo) then
  begin
    Writeln('----------------------------------------------');
    Writeln(' _____________________________________________');
    Writeln('- Sleziak''s    Zanaris alcher                ');
    Writeln('- Ran for: ' + (TimeRunning) + '              ');
    Writeln('- Alched ' + IntToStr(Counter) + ' rings      ');
    writeln('- You have gained ' +  IntToStr(Exp) + ' Exp!' );
    Writeln('- Succesfully alched all requested rings      ');
    Writeln('-            Post this proggy please ;)       ');
    Writeln('-_____________________________________________');
    Writeln('----------------------------------------------');
  TerminateScript;
  end else
  begin
    Cleardebug;
    Writeln('----------------------------------------------');
    Writeln(' _____________________________________________');
    Writeln('- Sleziak''s    Zanaris alcher                ');
    Writeln('- Ran for: ' + (TimeRunning) + '              ');
    Writeln('- Alched ' + IntToStr(Counter) + ' rings      ');
    Writeln('- You have gained ' +  IntToStr(Exp) + ' Exp! ');
    Writeln('-                Still running!               ');
    Writeln('-            Post this proggy please ;)       ');
    Writeln('-_____________________________________________');
    Writeln('----------------------------------------------');
  end;
end;

procedure Checkrunes;
begin
  if not InventoryContains(562, ItemSlots2) then
    TerminateScript;
end;

procedure Alch;
begin
  repeat
    if (not(LoggedIn)) then
      LoginPlayer;
    FindNonInventoryRandoms;
    if InventoryContains(1642, ItemSlots) then
    begin
      OldItemSlots := Length(ItemSlots);
      Wait(200 + random(100));
      if (FirstCast = true) then
      begin
        if (GetCurrentTab <> 7) then
        begin
          GameTab(7);
          Wait(500 + Random(500));
        end;
      end;
      if FindDTM(dtmHAlch, cx, cy, 559, 336, 583, 360) then
      begin
        Status('alching.');
        Mouse(cx, cy, 7, 7, true);
        FirstCast := false;
      end;
      Wait(random(100));
      MouseItem(ItemSlots[0], true);
      Wait(1600 + random(100));
      CheckRunes;
      Exp := Exp + 65;
      Counter := Counter + 1;
      Progress;
      InventoryContains(1642, ItemSlots);
      NewItemSlots := Length(ItemSlots);
      Wait(100);
      if (OldItemSlots = NewItemSlots) then
      begin
        FirstCast := true;
        Exp := Exp - 65;
        Counter := Counter - 1;
      end;
    end else
    begin
      BuyRings;
    end;
  until(false);
end;

procedure ScriptTerminate;
begin
  Progress;
  WriteLn('Out of runes!');
  if logo = true then Logout
  else
   WriteLn('Finished script/Out of runes!');
end;

begin
SetupSrl;
SmartSetupEx(100, True, True, False);
SetTargetDC(SMARTGetDC);
SetupReflection;
DeclarePlayers;
LogInPlayer;
Wait(2000);
LoadDTM;
FirstCast := true;
repeat
  SetAngle(True);
  MakeCompass('N');
  SetRun(True);
  Alch;
  FindNormalRandoms;
  CheckRunes;
  Progress;
  Wait(2000);
until(loggedin = false);
end.
i see many ppl alching so many ppl must be able to figure this out any assistance?

thread >> http://www.villavu.com/forum/showthread.php?t=44376