SRL Archive - Outdated / Broken

Finally,

As you all have been waiting :D , my new awesome auto alcher is out! This is my second posted script here. Hope you guys enjoy, it has full antirandoms.

~Aztek

Ill try it, Thank you.

Looking good thanks :)

Aztek clickmouse is very detect able use SRL Mouse funtions and look in SKILLS magic there is low alch and high alch things :)

i fixed it up for you cause thats all i do around here :p

//INFO\\
//Created by: Aztek\\
//Edited by: -Chaos-\\
//Script Use: Magic, Alching objects\\
//Based on Jagex Fagex's Tele Script\\
//Version#1.0 ~final\\

//------------------------------------------------\\
//-----------------INSTRUCTIONS-------------------\\

//1st: Start In any bank, since randoms least effect you there
//2nd: Fill in lines 33 - 35
//3rd: Put the desired alch item beneath alch spell button
//     (so it can just click twice once to hit the button,
//      once to click on the item desired to alch)
//Final: Hit play and let it do its job :)

//------------------------------------------------\\


program autoalcher;

{.include SRL\SRL.scar}
{.Include SRL\SRL\Skill\Magic.scar}

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
var
KS:integer;

const
alchtype = 2; //2 equals low alch, 1 equals high alch

alchtimes = 100;
Lampskill = 'magic';
startplayer = 0;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=1;               // Sets # of players (you can change)
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length
     CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

     Players[0].Name :='username';
     Players[0].Pass :='password';
     Players[0].Nick :='what randoms call you';
     Players[0].Loc  :='location';
     Players[0].Skill:='lampskill';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc  :='';
     Players[1].Skill:='';
     Players[1].Active:=False;

     writeln(inttostr(HowManyPlayers)+' Players');
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure alchit;
  begin
  if(alchtype=1)then
  begin
    MMouse(738, 191, 1, 1)
    wait(700+random(100))
    Mouse(738, 191, 0, 0, true)
    wait(700+random(100))
    MMouse(634, 330, 1, 1)
    wait(700+random(100))
    Mouse(634, 330, 0, 0, true)
    wait(1000+random(1000))
    Mouse(634, 330, 0, 0, true)
    wait(5000+random(1000))
  end else
if(alchtype=2)then
  begin
    MMouse(738, 191, 1, 1)
    wait(700+random(100))
    Mouse(738, 191, 0, 0, true)
    wait(700+random(100))
    MMouse(656, 257, 1, 1)
    wait(700+random(100))
    Mouse(656, 257, 0, 0, true)
    wait(1000+random(1000))
    Mouse(656, 257, 0, 0, true)
    wait(5000+random(1000))
  end;
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
procedure LoginCheck;
begin
if(loggedin=false)then
  begin
    Players[CurrentPlayer].Active:=False;
    NextPlayer(true);
    LogInPlayer;
    wait(50+random(100))
    CloseWindow;
  end;
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
procedure ProgressReport;
begin
  begin
  ClearDebug;
  WriteLn(' ');
  WriteLn('<============== - AzTeks Alcher - Progress Report ===============>');
  writeln('Worked for '+ TimeRunning);
  writeln('Alched ' + Inttostr (KS) + ' Times.');

  WriteLn('Random Event Report:');
  if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' Time[s].');
  if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
  if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' Time[s].');
  if(doctors>0)then WriteLn('  Solved '+IntToStr(doctors)+' Fords[s].');
  if(frogs>0)then WriteLn('  Solved '+IntToStr(frogs)+' Frog[s].');
  if(demons>0)then WriteLn('  Solved '+IntToStr(demons)+' Demon[s].');
  if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' Time[s].');
  WriteLn('<==========================================================================>');
  end;
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
procedure FindRandoms;
begin
  CloseWindow;
  ClickToContinue;
  FindLamp(LampSkill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindDemon;
  if Findname Then FindTalk;
  if FindNewBox then Logout;
end;


begin
  KS:=0
  SetupSRL;
  activateclient;
  ClearDebug;
  repeat
    alchit;
    wait(1000)
    FindRandoms;
    KS:=KS+1
    if(KS=30)then
    begin
      ProgressReport;
    end;
  until(KS=alchtimes)
end.

hope you like it :D

Yah man, THX! I actually figured out the 'mouse' procedure. I was about to change, but i was too lazy l0l. Thanks anyway ;)

~Aztek [stop using my sig… jk idk]

In your procedure "alchit;" where ther is MMouse, then a long wait (700+random(100))) maybe try and make that more of "wait(70+random(20))"
:)

Also insteed of have your "FindRandoms;" procedure, you can simple have "findnormalrandoms" as it is in SRL already ;)

looks good.. i hope this dosent get me banned like the other alcher i used :(