SRL Archive - RS3 Outdated / Broken Scripts

All I want is a script that will login, keep from logging out and perform anti-randoms. I will be in combat the whole time if that will effect the script. If someone could make this i'd be really thankful.

it's not that hard of a script. maybe you could try it yourself?

EDIT: w00t!!! 400th post!!!

From: skilld u
it's not that hard of a script. maybe you could try it yourself?

EDIT: w00t!!! 400th post!!!

-.-

program dontlogout;
{.include SRL/SRL/Misc/Smart.Scar}
{.include srl/srl.scar}

procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
end;

function FindNormalRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
8: Result := FindMod;
end;
if Result then
Break;
//Wait(1);
end;
end;

begin
setupscript;
login;
FindNormalRandoms;
repeat;
repeat;
end

double post

add antiban. it will still logout if you have just that.

Will anyone please write this script out?

program dontlogout;
{.include SRL/SRL/Misc/Smart.Scar}
{.include srl/srl.scar}

procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
end;

var
  Time: Integer;

begin
  SmartSetupEx(blah, False, False);
  SetupSrl;
  DeclarePlayers;
  LoginPlayer;
  repeat
    MarkTime(Time);
    while TimeFromMark(Time) < 5000 do
      Wait(100);
    Wait(500 + Random(500));
    FindNormalRandoms;
    SendArrowWait(Random(4), 25 + Random(25));
  until(Not(LoggedIn))
end.

That's a basic version, not sure how safe using SendArrowWait is, but with a random wait, it should be fine. It should keep you logged in and randomly send an arrow key every 5 to 6 seconds then check for randoms. Add in anti ban if you want, but that should do the job of just staying logged in.

From: mixster

program dontlogout;
{.include SRL/SRL/Misc/Smart.Scar}
{.include srl/srl.scar}

procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
end;

var
  Time: Integer;

begin
  SmartSetupEx(blah, False, False);
  SetupSrl;
  DeclarePlayers;
  LoginPlayer;
  repeat
    MarkTime(Time);
    while TimeFromMark(Time) < 5000 do
      Wait(100);
    Wait(500 + Random(500));
    FindNormalRandoms;
    SendArrowWait(Random(4), 25 + Random(25));
  until(Not(LoggedIn))
end.

That's a basic version, not sure how safe using SendArrowWait is, but with a random wait, it should be fine. It should keep you logged in and randomly send an arrow key every 5 to 6 seconds then check for randoms. Add in anti ban if you want, but that should do the job of just staying logged in.

thank you so much, i'm going to be just forever training. Like attack something and then let it just lvl on it because my str/atk are each 1. Thank you very much.

*EDIT*
This really gave me insight as to how scripting works. I can use the SRL include and then call on functions already made. I was able to insert anti-bans in here to prevent the log out. Believe it or not seeing this simple script you made has helped me understand SCAR more than ever haha.