SRL Archive - Outdated / Broken

Bewnt.

It works, ;D

program Alcher;
                                                                                            {
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++            High and Lower Alcher By Pwnd          +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++     Instructions:                                 +++
 +++       1: Fill out the setup.                      +++
 +++       2: Target the client.                       +++
 +++       3: Press start, and hopefully enjoy.        +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++     Contact:                                      +++
 +++       MSN: Dirtywonker@yahoo.com.                 +++
 +++       AIM: Dirtywonker.                           +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++                     }
                  {.include SRL\SRL.scar}

const
{+++  Setup +++}
  HighAlch = True; //True for high alch; False for low alch
  Report = 1;  //Put the number of times you'd like the report to come out.
{++++++++++++++}

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
var
  NoteColor: integer;
  RuneColor: integer;
  ColorTake: integer;
  Exp, ExpGained: integer;
  
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure RWait(Base, Rand: integer);
begin
  if((Base > 100) and (Rand > 100))then
    begin
      Wait(Base + Random(Rand));
    end else
      Wait(Base * 100 + Random(Rand * 100));
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Alch(AlchA: boolean);
var
  Sex, Sey: integer;
  x, y, xa, ya: integer;
begin
  GameTab(7);
  case(AlchA)of
    True:
      begin
        Sex:= 638;
        Sey:= 324;
      end;
    False:
      begin
        Sex:= 663;
        Sey:= 250;
      end;
  end;
  Mouse(Sex, Sey, 2, 2, True);
  repeat
    RWait(1, 1);
  until(GetColor(633, 179) = 2829182)
  if(FindColor(x, y, NoteColor, 545, 195, 750, 473) and
      FindColor(xa, ya, RuneColor, 545, 195, 750, 473))then
    begin
      Mouse(x, y, 3, 1, True);
      repeat
        RWait(15, 5);
      until(GetColor(730, 175) = 2829182)
    end else
    begin
      WriteLn('No more notes or runes!');
      TerminateScript;
    end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Start;
begin
  if(ColorTake = 0)then
    begin
      GameTab(4);
      RWait(1, 1);
      case(HighAlch)of
        True:
          Exp:= 65;
        False:
          Exp:= 31;
      end;
      NoteColor:= GetColor(576, 236);
      RuneColor:= GetColor(621, 233);
      Writeln('Note color: ' + IntToStr(NoteColor));
      Writeln('Rune color: ' + IntToStr(RuneColor));
    end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure ProgressReport;
begin
  ClearDebug;
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ Pwnd'#39's High and low Alcher ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ ' + ScriptTime2(2) + ' ++)');
  WriteLn('(++ You'#39've alched ' + IntToStr(ExpGained / Exp) + ' items ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ You'#39've gained ' + IntToStr(ExpGained) + ' Exp points ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
begin
  SetupSRL;
  ActivateClient;
  ExpGained:= 0;
  RWait(2, 4);
  Start;
  repeat
    Alch(HighAlch);
    ExpGained:= ExpGained + Exp;
    if((ExpGained / Exp) mod Report = 0)then
      ProgressReport;
  until(False)
end.

Wee. Great job. I like the way the commentary looks, with the +'s.

I noticed you changed some variables. -.-

First SRL script?

Yeah, I think it is my first SRL script.

Woot. You finally bothered to do it ;D -Claporz-

From: XxKanexX
Woot. You finally bothered to do it ;D -Claporz-

I've also been working on a few milder things that will help the overall awesomeness of the script.

Sometimes it will click the spell, but not right on it, so it misses.. and the script ends there.

From: Pwnd
I've also been working on a few milder things that will help the overall awesomeness of the script.

Sometimes it will click the spell, but not right on it, so it misses.. and the script ends there.

Ownt bebe?

From: I
Ownt bebe?

For now…. but pwnd knows that if I it down and re-write my Alcher he couldn't win ;) :D

Actuly I think I will re-write it tonight :)

From: Bebemycat2
For now…. but pwnd knows that if I it down and re-write my Alcher he couldn't win ;) :D

Actuly I think I will re-write it tonight :)

You won't win, believe me :)

i over macored with this script and got banned.. but i used ur old one which was in the leecher section! i went from lvl 60-79 in one day :\ it went non stop and for some reason i didint get any randoms! and i didnt get banned right away.. i got banned after like 2 days.

Thanks man

Hmmm, ive tried out all the alchers on this site, and they all either have specific errors, or with yours Pwnd, it seems as though the coords are off, as it clicks on the spell to the left of the High Alch spell, I edited another alcher from here with new coords, and it worked, next load of alching I do, ill try editing the coords for this one too.

Is this happening to anyone else? Im using the newest versions of Scar and SRL.

Jagex put a new spell in so most spell co-ordinates have changed.

From: HDKilla
Hmmm, ive tried out all the alchers on this site, and they all either have specific errors, or with yours Pwnd, it seems as though the coords are off, as it clicks on the spell to the left of the High Alch spell, I edited another alcher from here with new coords, and it worked, next load of alching I do, ill try editing the coords for this one too.

Is this happening to anyone else? Im using the newest versions of Scar and SRL.

You could try my alcher? :).

From: inferno
Jagex put a new spell in so most spell co-ordinates have changed.

Lol, I cant believe I didnt think of that :p

meh nice !

lol can any one edit it so we can use then :P

program Alcher;
                                                                                            {
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++            High and Lower Alcher By Pwnd          +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++     Instructions:                                 +++
 +++       1: Fill out the setup.                      +++
 +++       2: Target the client.                       +++
 +++       3: Press start, and hopefully enjoy.        +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 +++     Contact:                                      +++
 +++       MSN: Dirtywonker@yahoo.com.                 +++
 +++       AIM: Dirtywonker.                           +++
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++                     }
                  {.include SRL\SRL.scar}

const
{+++  Setup +++}
  HighAlch = True; //True for high alch; False for low alch
  Report = 1;  //Put the number of times you'd like the report to come out.
{++++++++++++++}

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
var
  NoteColor: integer;
  RuneColor: integer;
  ColorTake: integer;
  Exp, ExpGained: integer;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure RWait(Base, Rand: integer);
begin
  if((Base > 100) and (Rand > 100))then
    begin
      Wait(Base + Random(Rand));
    end else
      Wait(Base * 100 + Random(Rand * 100));
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Alch(AlchA: boolean);
var
  Sex, Sey: integer;
  x, y, xa, ya: integer;
begin
  GameTab(7);
  case(AlchA)of
    True:
      begin
        Sex:= 661;
        Sey:= 325;
      end;
    False:
      begin
        Sex:= 663;
        Sey:= 250;
      end;
  end;
  BenMouse:= True;
  wait(175+random(175))
  MMouse(Sex, Sey, 0, 0);
  wait(150+random(100))
  Mouse(Sex, Sey, 0, 0, True);
  repeat
    RWait(1, 1);
  until(GetColor(656, 345) = 7971762)
  if(FindColor(x, y, NoteColor, 545, 195, 750, 473) and
      FindColor(xa, ya, RuneColor, 545, 195, 750, 473))then
    begin
     wait(150+random(150))
      Mouse(661, 325, 0, 0, True);
      repeat
        RWait(15, 5);
      until(GetColor(665, 323) = 3195184)
    end else
    begin
      WriteLn('No more notes or runes!');
      TerminateScript;
    end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Start;
begin
  if(ColorTake = 0)then
    begin
      GameTab(4);
      RWait(1, 1);
      case(HighAlch)of
        True:
          Exp:= 65;
        False:
          Exp:= 31;
      end;
      NoteColor:= GetColor(679, 327);
      RuneColor:= GetColor(660, 224);
      Writeln('Note color: ' + IntToStr(NoteColor));
      Writeln('Rune color: ' + IntToStr(RuneColor));
    end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure ProgressReport;
begin
  ClearDebug;
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ Pwnd'#39's High and low Alcher ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ ' + ScriptTime2(2) + ' ++)');
  WriteLn('(++ You'#39've alched ' + IntToStr(ExpGained / Exp) + ' items ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
  WriteLn('(++ You'#39've gained ' + IntToStr(ExpGained) + ' Exp points ++)');
  WriteLn('(++++++++++++++++++++++++++++++++++++)');
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
begin
  SetupSRL;
  ActivateClient;
  ExpGained:= 0;
  RWait(2, 4);
  Start;
  repeat
    Alch(HighAlch);
    ExpGained:= ExpGained + Exp;
    if((ExpGained / Exp) mod Report = 0)then
      ProgressReport;
  until(False)
end.

Fixed a lot of things.
- now it wont jump around the alch icon when alching (now its humanlike and wont move WHILE alching. Itl just click.
-Edited positions.
-Edited the colours it will pick and so. didnt work for me before i did that :).
-Maybe more i dont remember doing.

Please, pwnt, tell me if you dont wish me to share the version that i edited. ill remove it straight away!