[RS2][SRL#14] Jethr0x Alcher v1!

Jethr0x's Auto Alcher!

YOU NEED SRL 4 #20 AND SCAR 3.15 TO RUN THIS!!!!
To get it...
Click Here​

Hello people This is the beta release of my new Auto-Alcher! PLZ POST PROGRESS REPORTS!

Features
- AntiBan
- AntiRandoms
- Multiple Player


Future Updates
- Smart
- More AntiRandoms
- 24/7 Alching
- Sleep
- Better Auto-Responder
- Banker


THIS SCRIPT HAS NOT YET BEEN TESTED BY ANYONE BUT ME!!! PLZ TEST AND POST UR PROGRESS REPORTS!

Code:

program Jethr0xAlcher;
{.include SRL\SRL.scar}

var
  alchs, x, y : integer;

////////////////////////////////////////////////////////////////////////////////
//                            SETUP HERE!!!                                   //
////////////////////////////////////////////////////////////////////////////////

const
  NumOfPlayers = 1;                //How Many Autoers?
  StartPlayer  = 0;                //What Player to start with?
  Alchstodo    = 490;              //How Many Alchs Before Logout.
  iname        = 'ew';              //Enter a few lower case letters of the item... 'ew' is from Yew.

procedure DeclarePlayers;
begin
  HowManyPlayers  := NumOfPlayers;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := StartPlayer;
  Players[0].Name :='';           //Username,
  Players[0].Pass :='';           //Password,
  Players[0].Nick :='';           //Nickname 3-4 letters or ur name (NO CAPS!)
  Players[0].Active:=True;        //Use this Character?
  Players[0].Loc := '';           //DO NOT TOUCH!!!!!
  Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
end;

procedure StartAlch;
begin
  GameTab(7);
  wait(1000+random(1000))
  MouseBox(566, 362, 577, 365, 1);
  wait(500+random(200))
  GetMousePos(x, y)
  Mouse(x, y, 0, 0, true);
end;

procedure AntiBan;
begin
  Case Random(8) of
    1: RandomMovement;
    2: begin
        Gametab(2);
        Wait(1000 + random(500));
        Gametab(7);
       end;
    3: begin
        Case Random(5) of
         0: begin
             Gametab(5);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         1: begin
             Gametab(2);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         2: begin
             Gametab(9);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         3: begin
             Gametab(11);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         4: begin
             Gametab(13);
             Wait(1000 + random(500));
             Gametab(7);
            end;
        end;
       end;
    4: Wait(1000);
    5: Wait(1000 + Random(500));
    6: Wait(1000 + Random(500));
    7: Wait(1000 + Random(500));
    8: Wait(1000 + Random(500));
  end;
  StartAlch;
end;

procedure Report;
begin
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('| Jethr0x''s Alcher Progress Report. PLZ POST!');
  Writeln('| Alched '+ IntToStr(Alchs) + ' ' + iname + 's.');
  Writeln('| Worked for ' + TImeRunning);
  Writeln('| Exp gained '+ IntToStr(alchs*65));
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('Made By Jethr0x!Dont leak or... I WILL RAPE YOU.');
end;

procedure Finished;
begin
  if (alchs = alchstodo) then
  begin
    TypeSend('w000t! '+ IntToStr(AlchsToDO) + ' alchs done :D! bye');
    Logout;
    report;
  end;
end;
{
Procedure AutoRespond;
var
  MageLvl2 : integer;
begin
  if InChatLine('Hi') or InChatLine('Hey') or InChatLine('sup') or InChatLine('yo') then
  begin
    wait(1000 + Random(500));
    case Random(8) of
      0: TypeSend('Hiya');
      1:  TypeSend('Hi');
      2: TypeSend('Heyz');
      3: TypeSend('wattup :p');
      4: TypeSend('Hola');
      5: TypeSend('hai');
      6: TypeSend('ello chap :[)');
      7: TypeSend('wattup :p');
    end;
  end else
  if InChatLine('Mage') or InChatLine('mage') or InChatLine('magick l') or InChatLine('magik l') then
  begin
    MageLvl2 := GetSkillInfo('magic', true);
    begin
      case Random(4) of
        0: TypeSend('mai mage is '+ IntToStr(magelvl2) + '.');
        1: TypeSend(magelvl);
        2: TypeSend('lvl ' + IntToStr(magelvl2) + ' mage.');
        3: TypeSend('I''m ' + IntToStr(magelvl2) + '. You?');
      end;
    end;
  end;
end;
}
procedure Alch;
begin
  StartAlch;
  repeat
    if FindTalk then FindNormalRandoms;
    wait(400+random(400))
    Mouse(x, y, 0, 0, true);
    Wait(1800+random(100));
    if isUpTextMultiCustom(['Ca','st']) then
    begin
      Mouse(x, y, 0, 0, true);
      Alchs:=Alchs + 1;
      Case Random(7) of
        0:Wait(100);
        1:AntiBan;
        2:Wait(100);
        3:FindNormalRandoms;
        4:Wait(100);
        5:Wait(100);
        6:Wait(100);
      end;
    end else
    StartAlch;
    until alchs=alchstodo;
    Finished;
end;



Procedure Setup;
begin
  SetupSRL;
  wait(1000)
  ActivateClient;
  wait(1000)
  declareplayers;
  if(not LoggedIn) then
  begin
    wait(100);
    loginplayer;
  end;
end;



///////////////////////////
begin
  Setup;
  wait(3000)
  wait(100)
//  AutoRespond;
  wait(10)
  Alch;
end.

i need members before i can update this much more... >.>

 

I will test

 

post any flaws, or stuff =X

 

is smart really necessary with an auto alcher? could i run without it anyway?

 

yes. u can.

i just like to macro in the background.. i dont think this release has smart tho.

 

hey, couldnt u use this in barrows tombs? then it woulld rid of the randoms?

 

u can use where ever... just good to have anti-randoms just in case

 

yeah, im gonna test as well, but when i follow ur guide on the SRL#14, i get

File access error
SRL compiled in 16 msec
"what i typed"
sucessfully executed.

^^ is that suppose to happen? on yours it says 0 msecs and no access error.

 

kk

uhm
try again... if not..

make sure u go to the tools ---> options --> then click allow all for all the tabs that have it... it should work

 

File access error I get that and i have alowed my firewall to all urls and file access so i dunno what it could be, anyways i added a bit more antiban such as angle changing and added more randomness to the alching ( u had it set on 1 coord only equals BAN)

Real nice script tho mabye a bigger responder and get rid of that file access error thing and this would be a great script


btw r u an SRL member?

P.S ill PM u the script i edited

 

finally/.....

 

its not set to 1 coord.... also the new version uses my version of MouseBox... which = pwnage

 

Just kind of curious is this script safe to overnight??

 

Most are...

 

im pretty sure this is... but ill be uploading a new one tomorrow nite... along with my auto yew cutter.

 

Id like to look in code,but i dont want to download a new scar...

 

i dont have scar on this computer atm (gust computer) i will chekc later...

 

so has this been tested, is it good? any flaws?

 

do not use this now... i forgot to upload my new one... im on my bus heading to school atm... ill upload new one when i get home

 

worked ok it repeats itself to often on the auto talk u just stand out asa auto but u can change that ur self 2 thunbs up tho lol work very well
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Jethr0x's Alcher Progress Report. PLZ POST!
| Alched 112 Yews.
| Worked for 6 Minutes and 48 Seconds
| Exp gained 7280
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~