SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I learned SQL and Esenthel (c++ -ish) over the last year in school.


Are you a member of any other communities?
Nope


Tell us about yourself…

From: denart5
I'm from Belgium and I am currently doing something like computer science in school. I learn about web design, hardware/networks and programming.
In my free time I play video games usually. I've been doing that since I was a little kid :D
I used to play a lot of shooters but I played League of Legends over the last few months.

Please show us one (or multiple) of your scripts.

I will put my script in the attachments but the thing you will notice is that I use a lot of RandomRange with random Min and Max.
The numbers aren't completely random,
 I calculated the min and max by the in-game tick speed + lag margin + some random number to not make it look like I never have more than EXACTLY  2 secs between clicks for example(antiban).

My scripts aren't completely polished but they did the job for me :)

//////////////////////////////////////////////////////////////////
program denart_enchanter;

{$DEFINE SMART8}
{$i SRL/SRL.simba}
//makes game necks
Const
  InvsToDo   = 29;      // items/27
Var
  InvsDone: integer;

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

with Players[0] do
begin
  Name        :='';        // Username
  Pass        :='';        // Password
  Pin         :='';        // Bank PIN
  Member      := true;
  Active      := true;
  BoxRewards  := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  Nick        :='';

end;
end;

procedure Enchant;


begin

  OpenBank('vwb', false, false);
  if InvMouse(RandomRange(2, 28), mouse_right) then
  WaitOption('All', RandomRange(501, 688));
  withdraw(1, 1, 28);     //2, 2 actually
  closeBank();
  Wait(RandomRange(804, 823));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(5,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(9,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(13,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(17,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(21,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(25,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(26,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(22,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(18,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(14,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(10,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(6,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(2,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(3,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(7,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(11,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(15,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(19,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(23,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(27,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(28,mouse_left);
  Wait(RandomRange(1854, 2252));
   SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(24,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(20,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(16,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(12,mouse_left);
  Wait(RandomRange(1854, 2252));
    SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(8,mouse_left);
  Wait(RandomRange(1854, 2252));
      SendKeys('z', RandomRange(100, 125), RandomRange(100, 125));
  MouseItem(4,mouse_left);
  Wait(RandomRange(1854, 2252));


end;

procedure Antiban;
begin
  case RandomRange(0,300) of
    50..56:begin
            PickUpMouse;
            Wait(RandomRange(28000, 58000));
           end;

    1..31:begin
             HoverSkill(skill_magic,False);
             FTab(tab_Inv);
           end;
   end;
end;

procedure Randoms;
begin
  FindNormalRandoms;
  LampSkill := 'mining';
end;


procedure ItemCount;
begin
  Inc(InvsDone);
end;



begin
  DeclarePlayers;
  SetupSRL;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  FindSpinTicket;
  repeat
    Enchant;
    Antiban;
    Randoms;
    ItemCount;
  until(InvsDone = InvsToDo)
    LogOut;
end.


//////////////////////////////////////////////////////////////
program denart_fletchHeadlessArrow;

{$DEFINE SMART8}
{$i SRL/SRL.simba}



Const
  ArrowsToDo   = 326;   //  x/150
Var
  InvsDone: integer;

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

with Players[0] do
begin
  Name        :='';        // Username
  Pass        :='';        // Password
  Pin         :='';        // Bank PIN
  Member      := true;
  Active      := true;
  BoxRewards  := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  Nick        :='';

end;
end;




procedure Fletch;

begin
InvMouse(1, 1);
Wait(RandomRange(465,988));
InvMouse(2, 1);

Wait(RandomRange(2002,2888));
MouseBox(258, 301, 485, 325, 1);
Wait(RandomRange(12055,13322));
end;



procedure Randoms;
begin
  FindNormalRandoms;
  LampSkill := 'mining';
end;


procedure ItemCount;
begin
  Inc(InvsDone);
end;

procedure Antiban;
begin
  case RandomRange(0,300) of
    50..51:begin
            PickUpMouse;
            Wait(RandomRange(28000, 58000));
           end;

    1..7:begin
             HoverSkill(skill_fletching,False);
             FTab(tab_Inv);
           end;
    11..18:begin
             RandomAngle(1);
           end;
   end;
end;

begin
  DeclarePlayers;
  SetupSRL;
  LoginPlayer;
  FindSpinTicket;
  SixHourFix;
  repeat
    Fletch;
    Randoms;
    ItemCount;
    AntiBan;
  until(InvsDone = ArrowsToDo)
    LogOut;
end.

//////////////////////////////////////////////////////////////
program denart_teleporter;

{$DEFINE SMART8}
{$i SRL/SRL.simba}

Const
  TelesToDo   = 2803;       //tele in last action bar
Var
  TelesDone: integer;

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

with Players[0] do
begin
  Name        :='almost forgot to clear this :p';        // Username
  Pass        :='';        // Password
  Pin         :='';        // Bank PIN
  Member      := true;
  Active      := true;
  BoxRewards  := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  Nick        :='ttro';

end;
end;

procedure Tele;

begin
Mousebox(451,305,467,321,1);
Wait(RandomRange(3052,3234));
end;

procedure Antiban;
begin
  case RandomRange(0,300) of
    50..54:begin
            PickUpMouse;
            Wait(RandomRange(5223, 7551));
           end;

    1..4:begin
             HoverSkill(skill_magic,False);
             FTab(tab_Inv);
           end;
   end;
end;

procedure Randoms;
begin
  FindNormalRandoms;
  LampSkill := 'mining';
end;


procedure ItemCount;
begin
  Inc(TelesDone);
end;



begin
  DeclarePlayers;
  SetupSRL;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  FindSpinTicket;
  repeat
    Tele;
    Antiban;
    Randoms;
    ItemCount;
  until(TelesDone = TelesToDo)
    LogOut;
end.

//////////////////////////////////////////////////////////////
program denart_ladyzay_swamp_tar; //unfinished

{$DEFINE SMART8}
{$i SRL/SRL.simba}


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

with Players[0] do
begin
  Name        :='';        // Username
  Pass        :='';        // Password
  Pin         :='';        // Bank PIN
  Member      := true;
  Active      := true;
  BoxRewards  := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  Nick        :='';

end;
end;
function Color: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.00, 0.19);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1579289, MSX1, MSY1, MSX2, MSY2, 1);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


procedure Click;
var
  x, y : Integer;
begin
 if FindColor(x, y, Color, MSX1, MSY1, MSX2, MSY2) then
 Mmouse(x,y,4,4);
  if IsUpText('arrel') then
    begin
      Mouse(x, y, 4, 4, 1)
      Wait(RandomRange(883,1355))
     end
  else MouseBox(259,195,272,204,1)


end;

(*
procedure ClickBarrel;
var
  x, y : Integer;
begin
FindObjTPA(x,y,Color,5
      Mouse(x, y, 4, 4, True);

end;


procedure ClickBarrel;
var
  x, y : Integer;
begin
 FindColor(x, y, 1381910, MMX1, MMY1, MMX2, MMY2);
      Mouse(x, y, 4, 4, True);

end;
 *)

procedure Antiban;
begin
  case RandomRange(0,300) of
    50..51:begin
            PickUpMouse;
            Wait(RandomRange(28000, 58000));
           end;
   end;
end;

procedure Randoms;
begin
  FindNormalRandoms;
  LampSkill := 'crafting';
end;




begin
  DeclarePlayers;
  SetupSRL;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  FindSpinTicket;
  repeat
  Click;
  Antiban;
  Randoms;
  until(FindNormalRandoms)
  LogOut;


end.

//////////////////////////////////////////////////////////////

Too simple, an do you have box rewards? Randoms events have been gone for ages. And your hardly active so sorry it's a no.

Look into atpas/tpas

You scripts are too simole , like Barbrady said. Maybe look into using TPAs and ATPAs. I found some col our finding spots, but not enough. Maybe if you added more of the colour finding techniques and use those instead of just coordinates for clicking.

You have been here for sometime, but your post count isn't high enough. I would like to see you around the forums more because the role of an SRL Member is also a community role. People Will Look To you for help, support, etc.

Improve on those and things might go very smooth, but for now, I will have to say no.

A simple for loop in your enchant procedure will make it about 100x shorter!

Like people stated, SRL Member is also a community rank. We'd like to see more activity of you: releasing scripts / helping people.

Scripting wise you're not there yet, still in your learning phase. You should browse the tutorials section more and read thru some scripts from experienced Simbanians. Pick every stuff up you can learn and implement them in your own scripts.

Good luck on your hunt! :)

Hey you're from Belgium! you and @Sjoe can hang :D

On topic, you script is a little simple. I would continue learn/practice and improve your skills (also try and be active and helpful around the forums). Maybe next time round you will get in :)

Sorry - Look's like you aren't becoming a SRL Member at this stage. Don't give up! Keep trying, Read over what other members have said on what you can improve and try to implement them into your script. You may apply again in 2 weeks.

Cheers,

Justin.