SRL Archive - RS3 Outdated / Broken Scripts

This is my first script I made for my self to stay login.

This is simple script working with new version of scar 3.15 and new SRL#16.
Enjoy=)

What script does: Random right clicking on selected area. You can still chat… The script doesn't block chat functions.

Version 1

//Script made by T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}
begin
repeat
 wait(50 + random(10000))
  RandomRClick;
 until false;
end.

Version 2

  //By T-KUAT(Haxal)// ( Thanks to bEnJa for his help )
program StayLogIn;
{.include SRL/SRL.scar}

procedure DeclarePlayers;

begin
  HowManyPlayers := 1; // How many players
  CurrentPlayer := 0;  // Player will start
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name       := 'Username'; // Name of your account
  Players[0].Pass       := 'Password';  //Password (no need to enter)
  Players[0].Nick       := 'Nickname';  // Nick name 4-3 later
  Players[0].Active     :=  True;

 Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
end;

procedure StayLogin;
begin
 wait(50 + random(1000))
 case Random(6) of
  0:RandomRClick;
  1:PickUpMouse;
  2:AlmostLogout;
  3:RandomMovement;
  4:BoredHuman;
  5:HoverSkill('Fishing', False); // You can change Fishing to any other skill

  end;
end;

  procedure SetUp;
  begin
  SetupSRL;
  ActivateClient;
  end;

  begin
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  ActivateClient;
  repeat
  StayLogin;
 until false;
end.

I hope in future I can make something better than that =)

Suggestions: You could make it a little less Routine/Bannable
Add in some GetSkillInfo, TypeSend or Examine random things around you,
Rotate Map, Change Angles etc…

But good work :)
Its better then being a filthy leecher!!

RandomMovement;
SetAngle(True);
SetAngle(False);

case Random(5) of
  0:Talk:='hey dudes';
  1:Talk:='srl pwns rs';
  2:Talk:='blah blah'
  3,4,5:Talk:='im bored';
end;
TypeSend(Talk);

Yes, I'm learning now =) I hope ill do better stuff. But i need some base…

P.S. Idk why but my random movements doesn't work all the time…

I just tried what you wrote and i got that error.[Error] (12657:3): Unknown identifier 'Talk' in script…

Define Talk as a string variable

var Talk: string;

Nava2

//Script made by T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}

var
  Talk:string;
  
begin
repeat
 wait(50 + random(10000))
  case Random(5) of
    0: RandomRClick;
    1: RandomMovement;
    2: PickUpMouse;
    3: SetAngle(True);
    4: BoredHuman;
    5: AlmostLogout;
    6: HoverSkill('random',false);
    7:case Random(5) of
         0:begin
           Talk:='hey dudes';
           TypeSend(Talk);
         end;
         1:begin
           Talk:='srl pwns rs';
           TypeSend(Talk);
         end;
         2:begin
           Talk:='blah blah';
           TypeSend(Talk);
         end;
         3,4,5:begin
           Talk:='im bored';
           TypeSend(Talk);
         end;
       end;
  end;
 until false;
end.

Now you can make the script even better by changing the ratio of chance each option has of being done.
eg/

case Random(13) of
    0,1,2: RandomRClick;
    3,4: RandomMovement;
    5: PickUpMouse;
    6: SetAngle(True);
    7,8,9: BoredHuman;
    10: Almost Logout;
    11,12,13: HoverSkill(random)
   end;

Shorter
No need for Talk

//Script made by T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}

begin
repeat
 wait(50 + random(10000))
  case Random(5) of
    0: RandomRClick;
    1: RandomMovement;
    2: PickUpMouse;
    3: SetAngle(True);
    4: BoredHuman;
    5: AlmostLogout;
    6: HoverSkill('random',false);
    7: case Random(5) of
         0: TypeSend('hey dudes');
         1: TypeSend('srl pwns rs');
         2: TypeSend('blah blah');
         3,4,5: TypeSend('im bored');
        end;
   end;
 until(false);
end.

d`oh! yeh go with smithsps's

Thx alot, from your short examples i learned alot =)

Can you explain how VAR; works?


Idk why but nothing works for me… my scar doesn't want to do the commands… My mouse dragging upstairs with very very slow speed.

to fix mouse dragging, do this;

 SetUpSRL;

before ANYTHING

var is used to declare variables before you use them. it is for anything that is not a set value…
eg
"RoadColor" is a variable,
"14868961" is not.

eg

you have a variable called Rounds, which is a number

so you must have

var
  Rounds : integer;

eg2/

you have a word variable called Name

you must do

 var
  Name : string

Other var simple var type is Boolean (which is True or False)

Hope I helped, its pretty hard to explain

ya i got it =)))
i tryed to setup srl before… idk seems something doesn't really worked…

Still Doesnt work..?

Scripts Should Look like this…

program Script;
{.include SRL/SRL.scar}

procedure Task;
begin
  .....
end;

procedure Setup;
begin
  SetUpSRL;
  ActivateClient;
  .....
end;

begin
  SetUp;
  Task;
end;

Man i set up it… and still got same problem mouse just slide with very very slow speed… (bugged) Indk what to do =((((:confused:

send me your script via pm, ill fix it up for you:)

its doesn't work just when i use other functions of anitban.scar (boredhuman;/ randommovements;/etc.)


I think i found it… every time i try to setupsrl its says ( File access error )

there is really something wrong with my stuff… its was so fickin easy to install all that shit before…


OK i found the problem, folder of scar and all sub folders are read only i tryed to remove read only mark its come back every time.SRL file is not read only but its still right ( File access error )

OK i finally go it =)))

I setup the SRL but problem is still there

Can you copy the exact script you got so far in here?
And Copy Paste what the error says.

ps. Use the Edit button next time, dont double post ;)

Script is the one smith made and i don't get any errors… Script just kinda freeze and mouse begin to slide up with very slow speed.

//Script made by T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}
 
begin
repeat
 wait(50 + random(10000))
  case Random(5) of
    0: RandomRClick;
    1: RandomMovement;
    2: PickUpMouse;
    3: SetAngle(True);
    4: BoredHuman;
    5: AlmostLogout;
    6: HoverSkill('random',false);
    7: case Random(5) of
         0: TypeSend('hey dudes');
         1: TypeSend('srl pwns rs');
         2: TypeSend('blah blah');
         3,4,5: TypeSend('im bored');
        end;
   end;
 until(false);
end.

AlmostLogout function doesn't work
BoredHuman function doesn't work
PickupMouse function doesn't work
ETC.
The only working is RandomClick

//Script made by T-KUAT(Haxal)//
//Edited by: bEnJa
program StayLogIn;
{.include SRL/SRL.scar}

procedure Main; 
  begin
  wait(50 + random(10000))
  case Random(7) of
      0: RandomRClick;
      1: RandomMovement;
      2: PickUpMouse;
      3: SetAngle(True);
      4: BoredHuman;
      5: AlmostLogout;
      6: HoverSkill('random',false);
      7: case Random(5) of
        0: TypeSend('hey dudes');
        1: TypeSend('srl pwns rs');
        2: TypeSend('blah blah');
        3,4,5: TypeSend('im bored');
      end;
   end;
end;

procedure Setup;
begin
  SetupSRL; // THIS IS VITAL!!!!!!
  ActivateClient;
end;

begin
  Setup;
  repeat
    Main;
  until false; //even though endless loops are bad, this is just to teach you how to get the basics of your script going

Post anything you dont undestand :P
SetupSRL is a necessity to every script if you are using procedures/functions from the includes

Thx alot=))) Can i write a later somewhere to recommend you?( Want you to get higher rank)

Ok, little error here. (In my script but got same in yours)

 //By T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}
procedure StayLogin;
begin
 wait(50 + random(1000))
 case Random(5) of
  0:RandomRClick;
  1:PickUpMouse;
  2:AlmostLogout;
  3:RandomMovement;
  4:BoredHuman;
  5:SayCurrentLevels('Fishing');
  end;
end;

  procedure SetUp;
  begin
  SetupSRL;
  ActivateClient;
  end;
  
  begin
  SetUpSRL;
  repeat
  StayLogin;
 until false;
end.

ERROR: New client targeted
Successfully compiled (1368 ms)
SRL Compiled in 0 msec
[Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

[Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

Can't get my fishing working.

From: benjaa

//Script made by T-KUAT(Haxal)//
//Edited by: bEnJa
program StayLogIn;
{.include SRL/SRL.scar}

procedure Main; 
  begin
  wait(50 + random(10000))
  case Random(7) of
      0: RandomRClick;
      1: RandomMovement;
      2: PickUpMouse;
      3: SetAngle(True);
      4: BoredHuman;
      5: AlmostLogout;
      6: HoverSkill('random',false);
      7: case Random(5) of
        0: TypeSend('hey dudes');
        1: TypeSend('srl pwns rs');
        2: TypeSend('blah blah');
        3,4,5: TypeSend('im bored');
      end;
   end;
end;

procedure Setup;
begin
  SetupSRL; // THIS IS VITAL!!!!!!
  ActivateClient;
end;

begin
  Setup;
  repeat
    Main;
  until false; //even though endless loops are bad, this is just to teach you how to get the basics of your script going

Post anything you dont undestand :P
SetupSRL is a necessity to every script if you are using procedures/functions from the includes

Random(7) Returns anything between 0 and 6. ;)

does it really Wizzup?? i thought it was 0 to 7 …

thankyou very much :D

//By T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}
procedure StayLogin;
begin
 wait(50 + random(1000))
 case Random(5) of
  0:RandomRClick;
  1:PickUpMouse;
  2:AlmostLogout;
  3:RandomMovement;
  4:BoredHuman;
  5:SayCurrentLevels('Fishing');
  end;
end;
 
  procedure SetUp;
  begin
  SetupSRL;
  ActivateClient;
  end;
  
  begin
  SetUpSRL;
  repeat
  StayLogin;
 until false;
end.
 

ERROR: New client targeted
Successfully compiled (1368 ms)
SRL Compiled in 0 msec
[Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

[Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

Can't get my fishing working.

Its out of range because you dont have Players[0].Name:= or Players[0].Nick

This is all usually delcared in a procedure called DeclarePlayers at the start.

//By T-KUAT(Haxal)//
program StayLogIn;
//Edited by: bEnJaa
{.include SRL/SRL.scar}

const
  StartPlayer = 0;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;                       // CHANGE: Set Number of Players here.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := StartPlayer;

  Players[0].Name := '';            //CHANGE: Username
  Players[0].Pass := '';          //CHANGE: Password
  Players[0].Nick := '';                 //CHANGE: 3-4 consecutive letters of Username(NOT First letter)
  Players[0].Active := True;                 //CHANGE: Are you going to use this player?
end;

procedure StayLogin;
begin
 wait(50 + random(1000))
 case Random(5) of
  0:RandomRClick;
  1:PickUpMouse;
  2:AlmostLogout;
  3:RandomMovement;
  4:BoredHuman;
  5:SayCurrentLevels('Fishing');
  end;
end;

procedure SetUp;
begin
  SetupSRL;
  ActivateClient;
end;

begin
  SetUpSRL;
  repeat
    StayLogin;
  until false;
end.

[Runtime Error] : Out Of Range in line 140 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiBan.scar

Hmmm seems that its doesn't worked.

 //By T-KUAT(Haxal)//
program StayLogIn;
{.include SRL/SRL.scar}

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

  Players[0].Name       := 'Name';
  Players[0].Pass       := 'Pass';
  Players[0].Nick       := 'Name';
  Players[0].Active     :=  True;

 Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
end;

procedure StayLogin;
begin
 wait(50 + random(1000))
 case Random(6) of
  0:RandomRClick;
  1:PickUpMouse;
  2:AlmostLogout;
  3:RandomMovement;
  4:BoredHuman;
  5:SayCurrentLevels('fishing');
  end;
end;

  procedure SetUp;
  begin
  SetupSRL;
  ActivateClient;
  end;
  
  begin
  SetUpSRL;
  repeat
  StayLogin;
 until false;
end.

WHY?>>>> Line 17: [Error] (12660:4): period ('.') expected in script F:\Program Files\…

Why he needs dot?

+


error of before that still there:

[Runtime Error] : Out Of Range in line 1211 in script F:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

SHIT…my bad…

  begin
  SetUpSRL;
  DeclarePlayers; //forgot to call :D
  ActivateClient;
  LoginPlayer;
  repeat
  StayLogin;
 until false;
end.

WHY? Line 17: [Error] (12660:4): period ('.') expected in script F:\Program Files\…

procedure DeclarePlayers;//<<neccessary
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);
 
  Players[0].Name       := 'Name';
  Players[0].Pass       := 'Pass';
  Players[0].Nick       := 'Name';
  Players[0].Active     :=  True;
 
 Writeln('Using '+IntToStr(HowManyPlayers)+' Player[s].');
end;

Thx alot =) All works

That good =]

Did you learn alot throughout this thread?

Yes, really =)))