SRL Archive - Outdated / Broken

Someone requested this of me, so I made it. I'm not sure if it works;
I only logged in to find the coordinates.

If you're going to use this, make sure the rune is in the second slot, and the notes are in the first slot.
Use a staff with this.

I didn't think it was necessary to add the randoms. Just go into the dueling arena.

program Alcher;
{.include SRL/SRL.Scar}

var
  NoteColor: integer;
  RuneColor: integer;
  ColorTake: integer;

const
  HighAlch = True; //True or false

procedure RandomWait(int1, int2: integer);
begin
  Wait((int1 * 100) + random((int2 * 100)));
end;

procedure Alch(alcha: boolean);
var
  Alchx, Alchy: integer;
  x, y: integer;
begin
  if(not(GetColor(732, 177) = 2829182))then
  begin
    Mouse(732, 177, 2, 2, True);
    RandomWait(2, 2);
  end;
  case alcha of
    True:
      begin
        Alchx:= 638;
        Alchy:= 324;
      end;
    False:
      begin
        Alchx:= 663;
        Alchy:= 250;
      end;
  end;
  Mouse(Alchx, Alchy, 2, 2, True);
  repeat
    RandomWait(1, 1);
  until(GetColor(633, 179) = 2829182)
  if(FindColor(x, y, NoteColor, 545, 195, 750, 473))then
    begin
      Mouse(x, y, 3, 1, True);
      repeat
        RandomWait(1, 2);
      until(GetColor(730, 175) = 2829182)
    end else
    begin
      Writeln('No more notes');
      TerminateScript;
    end;
end;

procedure Start;
begin
  if(ColorTake = 0)then
    begin
      if(not(GetColor(632, 176) = 2829182))then
        Mouse(632, 176, 3, 3, True);
      NoteColor:= GetColor(576, 236);
      RuneColor:= GetColor(524, 238);
      Writeln('Note color: ' + IntToStr(NoteColor));
      Writeln('Rune color: ' + IntToStr(RuneColor));
    end;
end;

begin
  ActivateClient;
  RandomWait(2, 4);
  Start;
  repeat
    Alch(HighAlch);
  until(False)
end.
    

"Sum of all attachments owned by Pwnd: " <– Ownd

It's the script you made when you were racing me. :p Your turned out way better than mines. =\.

From: WhiteShadow
It's the script you made when you were racing me. :p Your turned out way better than mines. =\.

I still have yours too :P

Omg! -Rubs eyes-
Omg! -Slaps self-

A script from Pwnd :p <3

From: XxKanexX
Omg! -Rubs eyes-
Omg! -Slaps self-

A script from Pwnd :p
Yayzorz. -Clap-

Hey, I had enough back in the day.. I don't wanna hear it ;P

Since when did you finish one for RS? :D

I knew you'd throw that, Lol.

I've actually made 7 scripts for Rs, They're not finished. I normally just get annoyed and stop scripting with them.

Me and Pyro are working on a few, But our recent one isn't going as fast as we want it to. So it's on hold whilst we start a new one.

And a few in the day? ;) You mean 3? :p

From: XxKanexX
I've actually made 7 scripts for Rs, They're not finished. I normally just get annoyed and stop scripting with them.

And a few in the day? ;) You mean 3? :p

From: Pwnd
Since when did you finish one for RS? :D

And it was more like… 5 :)

Starting a script is relevent to finishing a script ;)

btw, you can no longer alch in dueling arena

You've just let me know about the biggest crap ever.. Now I have to add randoms -.-

You can too, I'm doing it now, he means you can't while your dueling some else.

From: I
You can too, I'm doing it now, he means you can't while your dueling some else.

Ah, kk ;) You can do it in the place with the nurses and the beat up homeless guy though.

Test my script while you're at it, please ;P

ill try it out when i get home and post wat happens :)

When you make an alch script, you dont need to add randoms because you will be sitting next to it, risk is too great to just turn off screen and wander off.

Here's my alcher, again, since it seems we all want to make an alcher.

program Alch;

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

begin
SetupSRL;
BenMouse:=False;
Cast('29','Yew',8103092,20);
repeat

while not IsFKeyDown(6) do
    begin
      Mouse(X,Y,0,0,True);
      Wait(1400+Random(100))
      Cast('29','Yew',8103092,20);
      Wait(500+Random(150));
    end;
    wait(50);
until(false)
end.

Nice job though.

I didn't really want to make an alcher, but someone needed it ;)

I just thought I'd share with everyone.

yeh i really need one too.. its really boring to alch for hours!!

From: torrent
yeh i really need one too.. its really boring to alch for hours!!

Tell me if it works :)

I need some feedback on this one.

From: torrent
yeh i really need one too.. its really boring to alch for hours!!

You should not be alching hours in a row.. no human can be that concentrated and alch hours.

From: Wizzup?
You should not be alching hours in a row.. no human can be that concentrated and alch hours.

I could ;)

I think… When I used to cheat early.. Way early, I would guildmine for 10+ hours.. and then legitly smelt the ores. I was "obsessed" to them ;)