SRL Archive - First Scripts

Program AutoMiner;
{.include srl/srl.scar}

procedure DeclarePlayers;
begin
  cleardebug;
  HowManyPlayers := 1;
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  Players[0].Name := 'Username'; //username here
  Players[0].Pass := 'Password'; //password here
  Players[0].Nick := 'nickname'; /nickname here
  Players[0].Active := True;
end;

Procedure ClickOnExistingUserButton;
begin
  cleardebug;
  wait(1000+Random(2000));
  WriteLn('Logging in...')
  Mouse (444,285,1,1,true);
  Wait(1000+Random(2000));
end;

Procedure TypeInUserandPass;
Begin
  TypeSend('username'); // username here
  wait(1000+Random(200));
  TypeSend('password'); //password here
end;

Procedure CompleteLogin;
Begin
  Mouse(305,326,1,1,true);
  Wait(5000+Random(2000));
  Mouse(375,329,5,5,true);
  wait(2000+Random(3000));
end;

Procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp('Mining');
end;

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;

Procedure Automine;
Begin
  WriteLn('Mining...')
  Mouse(231,92,1,1,true);
  Wait(20000+Random(2500));
  Mouse(274,110,1,1,true);
  Wait(20000+Random(2500));
  Mouse(308,112,1,1,true);
  Wait(20000+Random(2500));
  dropall;
  WriteLn('Dropping...')
end;

Procedure DropEss;
Begin
  dropall;
end;


begin
  SetupSRL;
  Disguise('iTunes')
  ActivateClient;
  ClickOnExistingUserButton;
  TypeInUserandPass;
  CompleteLogin;
  Declareplayers;
  Repeat
    automine;
    dropess;
    antiban;
  Until(false)
end.

Updated to Version 2.1 Hope you like it!

Who wants to powermine rune essence? And you should use Declare Players

i would use this script but you have to add alot more better stuff like what whackey said and you could also add some antiban and anti randoms

1 tin ore 5 exp 1 rune ess 5 exp rune ess no rock changing tin rock changing rune ess you need to done a quest tin not

From: Hermpie
1 tin ore 5 exp 1 rune ess 5 exp rune ess no rock changing tin rock changing rune ess you need to done a quest tin not

lol, what? i think hes saying that if you're going to powermine, why rune essence which gives least xp out of all mine-able things…

From: mrpager
lol, what? i think hes saying that if you're going to powermine, why rune essence which gives least xp out of all mine-able things…

-.- tin and copper have the same exp as rune essence.
For rune essence you mine 1 rock whole the time, copper and tin involves walking to other rock for rune essence not.

so if you have a low mining lvl, rune ess would be best to get it up

emmmmm rune ess gives 5 xp ea but copper and tin dont give same they give something like 17 xp ee lol but w/e

still, its much faster to mine and all you have to do is click and wait, instead of clicking on a diferent rock every time

miner+banker, thats what u need! pure ess i alot of money (i think)