SRL Archive - OSR Help

Hey guys ! :spot:

Yesterday i made an almost full barb outpost agility course script… but it's very very simple :p and i want you to tell me what i need to change :D

Thanks All ! :spot::spot:

program new;

{$i srl/srl.simba}
{$i sps/sps.simba}


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

  with Players[0] do
  begin
    Name :=' '; // Username
    Pass :=' '; // Password
    Active := True;
  end;
end;


procedure Antiban;
begin
  case Random(999) of
    1: HoverSkill('Agility', false);
    2: ExamineInv;
    3: Wait(RandomRange(3000,5000));
    4: PickUpMouse;
  end;
end;


procedure SwingRope;
var
  x,y: Integer;
begin
  if FindObj(x, y, 'swing', 928046, 10) then
  Mouse(x, y, 0, 0, False);
  ChooseOption('-on Rope');
end;

procedure Acrossit;
var
  x,y: Integer;
begin
  if FindObj(x, y, 'Log balance', 2370620, 5) then
  Mouse(x, y, 0, 0 , False);
  ChooseOption('across');
end;

procedure ClimbOver;
var
  x, y: Integer;
begin
  SetAngle(SRL_ANGLE_HIGH);
  if FindObj(x, y, 'Obstacle net', 5337209, 10) then
  Mouse(x, y, 2, 2, True);
end;

procedure WalkLedge;
var
  x, y: Integer;
begin
  MakeCompass('N');
  SetAngle(SRL_ANGLE_HIGH);
  Wait(1000);
  if FindObj(x, y, 'Balancing', 1454400, 10) then
  Mouse(x, y, 2, 2, False);
  ChooseOption('across');
end;

procedure ClimbDown;
var
  x, y: Integer;
begin
  MakeCompass('S');
  wait(500);
  if FindObj(x, y, 'Ladder', 1651522, 5) then
  Mouse(x, y, 2, 2, False);
  ChooseOption('down Ladder');
end;



begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  SwingRope;
  WriteLn('Skilfully swing');
  Wait(5000);
  Acrossit;
  Wait(6000);
  writeln('going to the net');
  Wait(500);
  ClimbOver;
  Wait(1000);
  WalkLedge;
  Wait(5000);
  ClimbDown;
end.

 if FindObj(x, y, 'Balancing', 1454400, 10) then
  Mouse(x, y, 2, 2, False);
  ChooseOption('across');

Use WaitOptionMulti(['option1', 'option2'], time)
Otherwise the script won't work for people when the option doesn't pop up immediately.

Can also remove this

{$i sps/sps.simba}

as you aren't using it.

Also the constant changing of the compass isn't necessary, try to find the objects using different methods. It's very botlike if you constantly change your angles at some objects.

I've also been working on a Barbarian Outpost script, you can find my development blog in my signature. Should be finished pretty soon :P

Oh yeah, you don't have any failsafes when you fail to pass the object. You can fail at the swing, the log and when walking the ledge. Took me a long time to get it on video but they are in here
[youtube]Ql9CswKvMhA#![/youtube]

From: J J

 if FindObj(x, y, 'Balancing', 1454400, 10) then
  Mouse(x, y, 2, 2, False);
  ChooseOption('across');

Use WaitOptionMulti(['option1', 'option2'], time)
Otherwise the script won't work for people when the option doesn't pop up immediately.

Can also remove this

{$i sps/sps.simba}

as you aren't using it.

Also the constant changing of the compass isn't necessary, try to find the objects using different methods. It's very botlike if you constantly change your angles at some objects.

I've also been working on a Barbarian Outpost script, you can find my development blog in my signature. Should be finished pretty soon :P

ty :p the sps is to continue the script… it ends after climb down the ladder. ahaha

yeah, i know changing compass is very botlike, but i'm only start scripting and don't know how to rotate to find the items :p

From: catanado15
ty :p the sps is to continue the script… it ends after climb down the ladder. ahaha

yeah, i know changing compass is very botlike, but i'm only start scripting and don't know how to rotate to find the items :p

You don't need to rotate the stuff to find them I think, it worked for me though but that is by using more advanced methods :P It looks good, at 50 agility or so you will never fail the course I think so it will work well. You never used SPS in the script you posted, I just checked it :O Also slightly edited my first post just before you responded.

Anyways, you should definately add an extra random wait everywhere. Otherwise it will always be the same wait after clicking which is easily detectable.. well, Jagex doesn't really ban anymore nowadays but still.

Wait(5000);

–>

Wait(5000 + Random(1000));

Will wait 5000 ms AND another random 0-1000 ms