SRL Archive - First Scripts

Tired of using those scripts, that are so filled up with antirandoms and features that it just becomes unproductive to use? Tired of getting scripts that just plainly don't work or mess up? Well here is your solution.

I made this script in about 10 minutes, i needed about 25k Alches done. This script is designed to work anywhere, but since it has absolutely NO antirandoms implemented, it would be quite foolish to try it anywhere else.

Start the script logged off, with a fire staff equipped, and the item your alching in the correct position in your inventory. Use it only on top of the duel arena. Since i am a novice, the script is anything but elegant. But it works.

THIS IS MY FIRST SCRIPT, I KNOW YOU PROBABLY DON'T GIVE A SH*T, BUT PLEASE POST YOUR REPORTS. THANK YOU.

//////////////////////////////////////////////
///                                        ///
///     MATVIY'S DULE ARENA ALCHER         ///
///                                        ///
///                                        ///
///  1)SET UP LINES 23~26                  ///
///  2)Start script logged off, ontop of   ///
///  the duel arena.                       ///
///                                        ///
///      HAVE A FIRE STAFF EQUIPTED        ///
///      BEFORE STARTING THE SCIRPT        ///
///                                        ///
//////////////////////////////////////////////


program New;
{.include srl/srl.scar}

var alches, current, mouse2: integer;

Procedure login;
begin
     mouse(451,293,5,5,True);
     typesend(''); //USERNAME
     typesend(''); //PASSWORD
     Alches:= 2; // NUMBER ALCHES
     mouse(320,321,5,5,True);
     wait(6000);
     mouse(400,340,10,10,True);
     wait(5000);
end;

Procedure setup;
begin

MouseSpeed := 25;
ActivateClient;
login;
HighestAngle;
end;

procedure Fagex;
begin
    case Random(20) of

      0: PickUpMouse;
      
      2: PickUpMouse;

      8: HighestAngle;
      
      10: LowestAngle;
      
      12: RandomMovement;
      
      14: RandomMovement;
      
      
      

         end;
    end;

Procedure Talk;
begin
if current = 1041 then
begin
typesend('gonna take forever....ehhhhhhh')
end;

if current = 3444 then
begin
typesend('lol u see that guy get owned?')
end;

if current = 6754 then
begin;
typesend('woot im like halfs way done')
end;

if current = 8536 then
begin
typesend('stupid noob, go away')
wait(20000)
typesend('ugh stupid asshole')
end;

if current = alches then
begin
typesend('wot finally im done!!...fDSFSD')
end;
end;

procedure quit;
begin
          mouse(885,-104,0,0,True);
end;

Procedure alch;
begin
repeat
//----\\
current:=current +1;
mouse2:=mouse2 +1;
//----\\
  wait(500+random(250))
  if (not(gametab(7)))then
  begin
       gametab(7);
  end;
  //----\\
Wait(1000+random(200));
Mouse(710,331,4,4,True);
Wait(100+random(50));
//----\\
  if mouse2= 20+ random(11) then
  begin
  Mouse(710,331,2,1,True);
  mouse2:= 0;
  end;
//----\\
Mouse(710,331,0,0,True)
Talk;
Fagex;
until(Current = Alches);
end;

Procedure report;
begin
     Writeln('================================')
     Writeln('                                ')
     Writeln(' YOU COMPLETED '+ IntToStr(current)+ ' ALCHES')
     Writeln(' THANK YOU FOR USING MY ALCHER!!')
     Writeln('                                ')
     Writeln('================================')
end;

begin
setup;
alch;
quit;
report;
end.

PLEASE POST REPORTS DANGIT.:rolleyes:

I did not tested, but there lots of srl functions missing, why do you need to do hard job yourself, use srl! like your login procedure… just use declareplayers, and when you want to player login then just use "loginplayer", and you forgot to insert Setupsrl; into your setup or beginning of main loop, i don't know does it compiles, cant test(i'm on linux atm(computer class))

Well but i'm glad you did not made an autotalker or clicker :D

keep going and learning

nice start!

maybe for next time:
- Multi Player
- Anti Randoms
- Anti Ban
- fail saves

good luck and keep it up!

Another place is the barrows since no randoms happen their either…also less likely to be nubs tryin to talk or challenge u…

yeah

================================

YOU COMPLETED 2453 ALCHES
THANK YOU FOR USING MY ALCHER!!

================================

I edited a little bit so it won't get me banned :P

wow nice alcher, worked smooth, very easy to set up i love you for making it
================================

YOU COMPLETED 1000 ALCHES
THANK YOU FOR USING MY ALCHER!!

================================

nice work,im making one aswell.

I'll download when i bother hopping back to windows :P

Also just a thought but if it says assholes probs nto the best idea cause that can get some people to report for offensive language :P