SRL Archive - First Scripts

Hi guys,
My first script made with the noobie tutorial.
Its EXTREMELY basic but it does its work.
Start on the north side of the stone with your camera facing north all up
It might misclicks sometimes but il make that stable in the next version :)
I made this because i couldn't find it anywhere else without problems so i made one myself.
Citadel got no random events.

1. I will add anti-ban next version and less misclicks. DONE

Will add auto-walking and exp counter. Even tells you when you can claim the ring, all come in time.

Updated: Anti-ban (small) and less misclicks :)


Greetz, Ketsh

This is a great first script well done, you could add SMART support and maybe a progress report, have a look at some changes and comments:

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] do
    begin
      Name := '';       //Doing this saves you putting Players[0] every time
      Pass := '';
      Nick := '';
      Active := True;
    end;
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then
    Exit;
  case Random(8) of
   0 : begin
         HoverSkill('Mining', false);
         wait(2453+Random(432));
       end;
   1 : PickUpMouse;
   2 : begin
         MakeCompass('N');
         wait(100+random(133));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
       end;
  end;
end;

procedure MineStone;
var
  x, y : integer;
begin
  repeat
    if FindObj(x, y, 'ine', 8358547, 35) then
      begin               //You need to use begin and end to do several things with an if function
        Mouse(x, y, 2, 2, mouse_Right);
        ChooseOption('ine');
        repeat
          wait(240+random(2700));
        Until not IsUpText('tone') or (InvFull);
      end;
  until(InvFull);
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  MineStone;
end.

From: putonajonny
This is a great first script well done, you could add SMART support and maybe a progress report, have a look at some changes and comments:

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] do
    begin
      Name := '';       //Doing this saves you putting Players[0] every time
      Pass := '';
      Nick := '';
      Active := True;
    end;
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then
    Exit;
  case Random(8) of
   0 : begin
         HoverSkill('Mining', false);
         wait(2453+Random(432));
       end;
   1 : PickUpMouse;
   2 : begin
         MakeCompass('N');
         wait(100+random(133));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
       end;
  end;
end;

procedure MineStone;
var
  x, y : integer;
begin
  repeat
    if FindObj(x, y, 'ine', 8358547, 35) then
      begin               //You need to use begin and end to do several things with an if function
        Mouse(x, y, 2, 2, mouse_Right);
        ChooseOption('ine');
        repeat
          wait(240+random(2700));
        Until not IsUpText('tone') or (InvFull);
      end;
  until(InvFull);
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  MineStone;
end.

Thank you :)
I will look forward of making progress next week, i've reached max cap this week so i can't do anything till thursday.

You could always turn it into a normal miner, at al kharid or something :)

It clicks way to often. It doesn't even allow my character to get a sing rock before it clicks again.