SRL Archive - RS3 Script Requests

I want to win best spammer in dp's so I need an auto typer. Is it possible to make it so that I can be on a different window and it will still be typing? Thanks:D

From: MatthewDai98
I want to win best spammer in dp's so I need an auto typer. Is it possible to make it so that I can be on a different window and it will still be typing? Thanks:D

What do you want it to say? Simba and SMART already run in the background while you do other things on the computer.

drop party thats it:)

From: MatthewDai98
drop party thats it:)

typeSend('Follow for drop party!');

Not much else to it.

From: KeepBotting

typeSend('Follow for drop party!');

Not much else to it.

but doesnt let me go afk it types on the window I am on:(

From: MatthewDai98
but doesnt let me go afk it types on the window I am on:(

what you're looking for is called SMART https://villavu.com/forum/showthread.php?t=47714. read the "How to install/setup Simba" section and you should be good to go

From: MatthewDai98
but doesnt let me go afk it types on the window I am on:(

Then your script hasn't properly loaded SMART.

1. Download any RS3 script that uses SMART
2. Find the script's mainloop
3. Delete the script's mainloop.
4. Replace the script's mainloop with this:

repeat
 typeSend('text here');
 wait(5000); //desired wait time
until(false);

whenever I try to open anything with player manager involved, it gives an error when trying to login saying
Error: Access violation at line 1042
help?

From: MatthewDai98
whenever I try to open anything with player manager involved, it gives an error when trying to login saying
Error: Access violation at line 1042
help?

The best way to actually get help is to post your code. There could be a bunch of different things that could cause an access violation.

(*
Player Management
=================

The Players file stores the functions related to the Players array. It also
stores properties of the TPlayer type.

The source for this file can be found `here <https://github.com/SRL/SRL-6/blob/master/lib/core/players.simba>`_.

*)

{$f-}

{*
const Internal
~~~~~~~~~~~~~~

File's internal constants.

* __LOGIN_COLOR_TEXT: The color of the login screen text.

*}
const
{$IFNDEF CODEINSIGHT}
__LOGIN_COLOR_TEXT = 12378347;
{$ENDIF}

{*
var Internal
~~~~~~~~~~~~

File's internal variables.

* _boxUsername: TBox of the username edit box.
* _boxPassword: TBox of the password edit box.
* __areDynamicInterfacesSet: Used to set the bounds of dynamic interfaces.

*}
var
_boxUsername: TBox = [-1, -1, -1, -1];
_boxPassword: TBox = [-1, -1, -1, -1];

{$IFNDEF CODEINSIGHT}
__areDynamicInterfacesSet: boolean = false;
{$ENDIF}

(*
type TPlayer
~~~~~~~~~~~~

A record that stores useful information about the current players. It is up to
the scripter to set most these attributes in their scripts.

Example:

.. code-block:: pascal

with players[0] do
begin
loginName := 'example@example.com';
displayName := 'Sir Example III';
nickname := 'fighter1';
password := 'thisismypassword12345';
end;
*)
type
TPlayer = record
loginName: string;
displayName: string;
nickname: string;
password: string;
bankPin: string;
location: string;
isActive: boolean;
isMember: boolean;
findMod: boolean;
findTrade: boolean;
reincarnate: boolean;
secureLogin: boolean;
worked: TTimeMarker; // automatically calculated if SRL's login methods are used
world: integer; // -1 just click play button; 0 for random world
skillLevel: array[0..(SKILL_COUNT - 1)] of integer;
booleans: array[0..99] of boolean;
integers: array[0..99] of integer;
strings: array[0..99] of string;
extendeds: array[0..99] of extended;
variants: array[0..99] of variant;
end;

TPlayerArray = array of TPlayer;

type
PF_TPlayer = record (TPlayer)
settings: TStringArray;
end;

PF_TPlayerArray = array of PF_TPlayer;

(*
Player Variables
~~~~~~~~~~~~~~~~

All the variables associated with players.simba.

* players: TPlayerArray; Used to store information for all players.
* currentPlayer: integer; The index of the player currently running.
* disableIPScreenshots: booelean; Disables the screenshots taken in the lobby screen.

*)
var
players: TPlayerArray;
currentPlayer: integer;
disableIPScreenshots: boolean;

function Raf_GetArmyNames(out names: TStringArray): boolean;
var
s: string := Settings.getPrefix();
begin
Settings.setPrefix('');
try
result := Settings.ListKeys('Rafiki/Armys/', names);
finally
Settings.setPrefix(s);
end;
end;

function Raf_FindArmy(const name: string): boolean;
var
strings: TStringArray;
i: integer;
begin
result := false;

if (Raf_GetArmyNames(strings)) then
for i := 0 to high(strings) do
if (SameText(Replace(Name, ' ', '_', [rfReplaceAll]), Strings)) then
Exit(True);
end;

function Raf_IsArmyEncrypted(const armyName: string): boolean;
var
s: string := Settings.getPrefix();
begin
if (not Raf_FindArmy(armyName)) then
exit(false);

Settings.setPrefix('');
try
result := (lowercase(Settings.getKeyValueDef('Rafiki/Armys/'+armyName+'/Encrpyted', 'False')) = 'true');
finally
Settings.setPrefix(s);
end;
end;

function Raf_DecryptArmy(const armyName: string; var data: string): boolean;
var
pass, dataCopy: string;
label
lStart;
begin
dataCopy := copy(data);

lStart:
pass := '';
data := copy(dataCopy);

if (InputQuery('Rafiki Player Manager', 'Please enter your army password for decryption', pass)) then
begin
rc2_decrypt(pass, htSHA512, data);
result := ExecRegExpr('<player>', data);
end else begin
print('Input query was cancled');
exit(false);
end;

if (not result) then
if (MessageDlg('Rafiki_DecryptArmy', 'Wrong password for decryption', mtError, [mbRetry, mbOk]) = 4) then
goto lStart
else
print('Ok clicked');
end;

function Raf_GetPlayers(ArmyName: String; out _Players: TPlayerArray): Boolean;
var
Data, Pref: String;
TSA: TStringArray;
i: integer;
begin
Result := False;
Print('Raf_GetPlayers()', TDebug.HEADER);

if (not Raf_FindArmy(ArmyName)) then
Exit(Print('Army doesn''t exist!', False, 'Raf_GetPlayers: Result = false'));

Pref := Settings.getPrefix();
Settings.setPrefix('Rafiki/Armys/');
ArmyName := Replace(Lowercase(ArmyName), ' ', '_', [rfReplaceAll]);

try
Print('Army exists, reading the players…');
Data := DeCompressString(Base64Decode(Settings.GetKeyValueDef(ArmyName + '/Player_Data', '')));

if (Raf_IsArmyEncrypted(ArmyName)) then
if (not Raf_DecryptArmy(ArmyName, Data)) then
Exit(Print('Failed to decrpyt army', False, 'Raf_GetPlayers: Result = false'));

if (Length(Data) <= 1) or (Pos('<player>', Data) = 0) then
begin
Print('Corrupted army file, going to remove it');
Print('Deleted = ' + BoolToStr(Settings.DeleteKey(ArmyName), 'Succesfull', 'Failed'));
Exit();
end;

TSA := MultiBetween(Data, '<player>', '</player>');
SetLength(_Players, Length(TSA));

for i := 0 to High(_Players) do
with (_Players) do
begin
loginName := Between('<loginName>', '</loginName>', TSA);
nickName := Between('<nickName>', '</nickName>', TSA);
password := Between('<password>', '</password>', TSA);
bankPin := Between('<bankPin>', '</bankPin>', TSA);
isMember := StrToBoolDef(Between('<isMember>', '</isMember>', TSA), False);
end;
finally
Settings.setPrefix(Pref);
end;

Result := (Length(_Players) > 0);
Printf('Raf_GetPlayers: Result = %s', [toString(Result)], TDebug.FOOTER);
end;

function Raf_GetPlayers(const armyName: string; out __players: PF_TPlayerArray): boolean; overload;
var
tmp: TPlayerArray;
i: integer;
begin
result := Raf_GetPlayers(armyName, tmp);
setLength(__players, length(tmp));

for i := 0 to high(tmp) do
with (__players) do
begin
loginName := tmp.loginName;
nickName := tmp.nickName;
password := tmp.password;
bankPin := tmp.bankPin;
isMember := tmp.isMember;
end;
end;

(*
TPlayerArray.getActive
~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayerArray.getActive(): integer;

Returns the number of players that are still active in the TPlayerArray.

.. note::

- by ss23 & Coh3n
- Last updated: 22 December 2012 by Coh3n

Example:

.. code-block:: pascal

while (players.getActive() > 0) do
mainloop();
*)
function TPlayerArray.getActive(): integer;
var
i, h: integer;
begin
result := 0;
h := high(self);

for i := 0 to h do
if (self.isActive) then
inc(result);
end;

{*
TPlayerArray._add
~~~~~~~~~~~~~~~~~

.. code-block:: pascal

procedure TPlayerArray._add(info: TPlayer);

Adds the player with 'info' to the TPlayerArray.

.. note::

- by Zyt3x & Coh3n
- Last updated: 22 December 2012 by Coh3n

Example:

.. code-block:: pascal

var
P: TPlayer;
Players: TPlayerArray;
begin
with P do
begin
loginName := 'example@example.com';
password := 'examplepassword123';
end;

Players._add(P);
end;
*}
procedure TPlayerArray._add(const info: TPlayer);
begin
setLength(self, length(self) + 1);
self[high(self)] := info;
end;

procedure TPlayerArray.setDefaults();
var
i: integer;
begin
for i := 0 to high(self) do
begin
self.isActive := true;
self.findMod := true;
self.worked.name := 'Player '+toStr(i);
self.worked.start();
self.worked.pause();
self.world := -1;
end;
end;

(*
TPlayerArray.setup
~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

procedure TPlayerArray.setup(names: TStringArray; const army: string = 'default');

Sets up the players with login name, display name, or nickname that match
elements of 'names'. Should only be called in DeclarePlayers(). Will load
army file 'army'. Loads 'default' by default.

.. note::

- by Bart (masterBB)
- Last updated: 4 April 2013 by Bart

Example:

.. code-block:: pascal

players.setup(['woodcutter5', 'miner3', 'fisher6'], 'BartsArmy');

*)
procedure TPlayerArray.setup(names: TStringArray; const army: string = 'default');
var
i, j: integer;
tmp: TPlayerArray;
begin
print('TPlayerArray.setup()', TDebug.HEADER);
printf('Attempting to load player(s) "%s" from army "%s"', [toString(names), army]);

if (not Raf_GetPlayers(army, tmp)) then
begin
print('Unable to get players from army', TDebug.ERROR);
print('TPlayerArray.setup(): Failure', TDebug.FATAL);
end;

for i := 0 to high(names) do
for j := 0 to high(tmp) do
begin
if (names = tmp[j].loginName) or (names = tmp[j].displayName) or (names = tmp[j].nickname) then
begin
print('Loaded player: '+names);
self._add(tmp[j]);
break;
end;

if (j = high(tmp)) then
print('Invalid player name: '+names, TDebug.WARNING);
end;

if (length(players) < 1) then
begin
print('Unable to find any players in army', TDebug.ERROR);
print('TPlayerArray.setup(): Failure', TDebug.FATAL);
end;

self.setDefaults();
print('TPlayerArray.setup(): Success', TDebug.FOOTER);
end;

procedure TPlayerArray.setup(const players: PF_TPlayerArray); overload;
var
i: integer;
p: TPlayer;
begin
for i := 0 to high(players) do
begin
p.loginName := players.loginName;
p.nickName := players.nickName;
p.password := players.password;
p.bankPin := players.bankPin;
p.isMember := players.isMember;
self._add(p);
end;
self.setDefaults();
end;

(*
TPlayerArray.switchTo
~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayerArray.switchTo(player: integer; active: boolean = true; login: boolean = true): boolean;

Switches to the 'player' index in the TPlayerArray. Sets the previous player's
activity to 'active'. It will login the new player if 'login' is true.

.. note::

- by Dankness, Ron, Raymond, ZephyrsFury & Coh3n
- Last updated: 15 March 2015 by The Mayor

Example:

.. code-block:: pascal

players.switchTo(3);
players.switchTo(3, false);
players.switchTo(3, false, false); // To switch but not login

*)
function TPlayerArray.switchTo(player: integer; active: boolean = true; login: boolean = true): boolean;
begin
self[currentPlayer].isActive := active;
self[currentPlayer].logout();

if (self.getActive() <= 0) then
begin
print('All players inactive…', TDebug.SUB);
exit(false);
end;

print('Switching to player '+toStr(player)+' ('+self[player].nickname+')', TDebug.SUB);
currentPlayer := player;

if (SRL_Events[EVENT_PLAYER_NEXT] <> nil) then
SRL_Events[EVENT_PLAYER_NEXT]();

result := true;
if login then result := self[currentPlayer].login()
end;

(*
TPlayerArray.next
~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayerArray.next(active: boolean = true; login: boolean = true): boolean;

Switches to the next active player in the TPlayerArray. Sets the previous
player's activity to 'active'. It will login the new player if 'login' is true.

.. note::

- by ZephyrsFury & Coh3n
- Last updated: 15 March 2015 by The Mayor

Example:

.. code-block:: pascal

players.next();
players.next(false);
players.next(false, false);

*)
function TPlayerArray.next(active: boolean = true; login: boolean = true): boolean;
var
nP: integer;
begin
nP := (currentPlayer + 1) mod length(self);

// get the next active player index
while (not self[nP].isActive) do
nP := (nP + 1) mod length(self);

result := self.switchTo(nP, active, login);
end;

(*
TPlayerArray.randomNext
~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayerArray.randomNext(active: boolean = true): boolean;

Switches to a random active player in the TPlayerArray. Sets the previous
player's activity to 'active'. It will login the new player if 'login' is true..

.. note::

- by ZephyrsFury & Coh3n
- Last updated: 15 March 2015 by The Mayor

Example:

.. code-block:: pascal

players.randomNext();
players.randomNext(false);
players.randomNext(false, false);

*)
function TPlayerArray.randomNext(active: boolean = true; login: boolean = true): boolean;
var
nP: integer;
begin
nP := random(length(self));

// get an active random player index
while (not self[nP].isActive) or (nP = currentPlayer) do
begin
if (self.getActive() = 1) and (nP = currentPlayer) then // if there's only 1 player left
break;

nP := random(length(self));
end;

result := self.switchTo(nP, active, login);
end;

(*
TPlayer.write
~~~~~~~~~~~~~

.. code-block:: pascal

procedure TPlayer.write();

Writes the standard information about the player to the debug box.

.. note::

- by Coh3n
- Last updated: 22 December 2012 by Zyt3x

Example:

.. code-block:: pascal

players[currentPlayer].write();

*)
procedure TPlayer.write();
begin
print('TPlayer.write()', TDebug.HEADER);

print('Login Name: ' + self.loginName);
print('Display Name: ' + self.displayName);
print('Nickname: ' + self.nickname);
print('Member: ' + toStr(self.isMember));
print('Active: ' + toStr(self.isActive));
print('Worked: ' + toStr(self.worked.getTime()));
print('Total Worked: ' + toStr(self.worked.getTotalTime()));

print('TPlayer.write()', TDebug.FOOTER);
end;

(*
__setDynamicInterfaces
~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

procedure __setDynamicInterfaces();

Sets the dynamic interfaces upon login.

.. note::

- by Coh3n
- Last updated: 22 December 2012 by Zyt3x

Example:

.. code-block:: pascal

players[currentPlayer].write();
*)
{$IFNDEF CODEINSIGHT}
procedure __setDynamicInterfaces();
begin
if actionBar.__find() then
begin
chatBox.__setup();
mainScreen.__setup();

__areDynamicInterfacesSet := true;

print('Dynamic interfaces have been set.', TDebug.SUB);
end;
end;
{$ENDIF}

(*
isLoggedIn
~~~~~~~~~~

.. code-block:: pascal

function isLoggedIn(): boolean;

Returns true if a player is logged in, uses the top left of the logout button to
return the result.

.. note::

- by Olly & Coh3n
- Last updated: 11 August 2013 by Coh3n

Example:

.. code-block:: pascal

if (isLoggedIn()) then
writeln('We are logged in!');
*)
function isLoggedIn(): boolean;
const
LOGOUT_BUTTON_COLOUR = 3446209;
begin
result := (getColor(796, 3) = LOGOUT_BUTTON_COLOUR);

if result and (not __areDynamicInterfacesSet) then
__setDynamicInterfaces();
end;

{*
__setInputBoxes
~~~~~~~~~~~~~~~

.. code-block:: pascal

function __setInputBoxes(): boolean;

Finds and sets the username and password box parameters. Returns true if
both boxes are found.

.. note::

- by Coh3n
- Last updated: 3 January 2015 by The Mayor

Example:

.. code-block:: pascal

__setInputBoxes();
*}
{$IFNDEF CODEINSIGHT}
function __setInputBoxes(): boolean;
const
__BORDER_LENGTH = 524;
var
tpaActive, tpaInactive: TPointArray;
bdsActive, bdsInactive: TBox;
begin
findColors(tpaActive, 6774863, 247, 229, 547, 379); // active box border color
findColors(tpaInactive, 6906451, 247, 229, 547, 379); // inactive box border color

if length(tpaActive) = 0 then
findColors(tpaActive, 9867393, 247, 229, 547, 375); // active box border color when mouse is hovering

if length(tpaInactive) = 0 then
findColors(tpaInactive, 9867393, 247, 229, 547, 375); // inactive box border color when mouse is hovering

if (length(tpaActive) = __BORDER_LENGTH) then
begin
result := true;
print('__setInputBoxes(): Set username and password boxes', TDebug.SUB);

bdsActive := tpaActive.getBounds();
bdsInactive := tpaInactive.getBounds();

// sets the username box as the box that's closer to the top of the screen
if (bdsActive.y1 < bdsInactive.y1) then
begin
_boxUsername := bdsActive;
_boxPassword := bdsInactive;
end else
begin
_boxUsername := bdsInactive;
_boxPassword := bdsActive;
end;
end;
end;
{$ENDIF}

{*
__enterLoginInfo
~~~~~~~~~~~~~~~~

.. code-block:: pascal

function __enterLoginInfo(const inputBox: TBox; const info: string; clickBox: boolean = true; pressEnter: boolean = true): boolean;

Types the player's info (username/password) into the input box. It can optionally
click the box to make it active, and press enter after typing.

.. note::

- by The SRL Development Team
- Last updated: 14 March 2015 by The Mayor

Example:

.. code-block:: pascal

__enterLoginInfo(_boxUsername, self.loginName);
*}
{$IFNDEF CODEINSIGHT}
function __enterLoginInfo(inputBox: TBox; const info: string; clickBox: boolean = true; pressEnter: boolean = true): boolean;
var
TPA: TPointArray;
p: TPoint;
c: integer;
t : LongWord;
begin
t := (getSystemTime() + 30000);
inputBox.offset(point(8, 0));

repeat
if (isLoggedIn() or lobby.isOpen()) then exit(true);

if findColors(TPA, __LOGIN_COLOR_TEXT, inputBox) then
begin
sortTPAFrom(TPA, point(inputBox.x2, (inputBox.y1 + inputBox.y2 div 2)));
p := point(TPA[0].x + 20, TPA[0].y);

if (not pointInBox(p, inputBox)) then
p := point(inputBox.x2 - 12, p.y);

if clickBox or (not findColors(TPA, 6774863, inputBox)) then
mouse(p.rand(3), MOUSE_LEFT);
end else
if findColors(TPA, 6774863, inputBox) or (not clickBox) then
break()
else
mouseBox(inputBox, MOUSE_LEFT);

c := 0;
while (countColor(__LOGIN_COLOR_TEXT, inputBox) > 0) and (c < 20) do
begin
inc©;
typeByte(VK_BACK);
wait(50 + random(50));
end;

until(getSystemTime() > t);

wait(100 + random(200));
typeSend(info, pressEnter);
result := true;
end;
{$ENDIF}

{*
TPlayer.__respondToPopup
~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

procedure TPlayer.__respondToPopup(errorMessage: TVariantArray; tries: integer; out reachedMax: boolean);

Internal procedure which responds to the login popup message. If the the max
number of attempts has been reached, it will perform the appropriate action
(action is index 3 of the passed errorMessage array). If not, it will wait
the appropriate amount time (time = index 1 of errorMessage array).

.. note::

- by The Mayor
- Last updated: 19 March 2015 by The Mayor

Example:

.. code-block:: pascal

*}
{$IFNDEF CODEINSIGHT}
procedure TPlayer.__respondToPopup(errorMessage: TVariantArray; tries: integer; out reachedMax: boolean);
begin
typeByte(VK_ESCAPE);

if (tries > errorMessage[2]) then
begin
print('Responding with action: ' + errorMessage[3], TDebug.SUB);

case errorMessage[3] of
'Terminate': terminateScript();
'Set_World': self.world := 0;

'Next_Player_F':
begin
players.next(false, false);
self := players[currentPlayer];
end;

'Next_Player_T':
begin
players.next(true, false);
self := players[currentPlayer];
end;

'Set_Member':
begin
self.isMember := true;
self.world := 0;
end;

'Set_Non-Member':
begin
self.isMember := false;
self.world := 0;
end;

'Reload_Client':
begin
if (@SRL_Events[EVENT_RS_UPDATE] <> nil) then
begin
print('RS Update: Going to call EVENT_RS_UPDATE procedure', TDebug.WARNING);
SRL_Events[EVENT_RS_UPDATE]();
end;
end;
end;

if (players.getActive() < 1) then
print('No other active players, terminating script', TDebug.FATAL);

reachedMax := true;
end;

if (errorMessage[1] > 0) then
begin
print('Waiting ' + toStr(errorMessage[1]) + 'ms before next attempt', TDebug.SUB);
wait(errorMessage[1] + random(2000, 4000));
end;
end;
{$ENDIF}

{*
__getPopupMessage
~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function __getPopupMessage(): string;

Internal function which looks for the login popup box. If found, it will isolate
the message text, and return it as the result.

.. note::

- by The Mayor
- Last updated: 15 March 2015 by The Mayor

Example:

.. code-block:: pascal

*}
{$IFNDEF CODEINSIGHT}
function __getPopupMessage(): string;
var
TPA: TPointArray;
ATPA: T2DPointArray;
b: TBox;
yDiff: integer;
begin
if findColorsTolerance(TPA, 3286022, getClientBounds(), 12) then
if (length(TPA) > 1000) then
begin
ATPA := TPA.cluster(8);
ATPA.filterBetween(1, 1000);
if (length(ATPA) < 1) then exit();
ATPA.sortBySize(true);

b := ATPA[0].getBounds();

if findColorsTolerance(TPA, 16504921, b, 30) then
begin
yDiff := b.Y2 - TPA.getBounds().Y1; // Limit Y2 to the top of the blue buttons
b.edit(7, 85, -7, -yDiff);

if inRange(b.getWidth(), 200, 260) and (b.getHeight() > 24) then
result := trim(tesseract_GetText(b, TESS_FILTER_SMALL_CHARS_2));
end;
end;
end;
{$ENDIF}

{*
TPlayer.__handleLoginPopup
~~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.__handleLoginPopup(tries: integer; inLobby: boolean; out reachedMax: boolean): boolean;

Waits for the login popup message to appear (or logged in successfully). If a
popup message is found, it will pass the details array to __respondToPopup();
The inLobby boolean should be true if it is handling popups from the lobby.

.. note::

- by The Mayor
- Last updated: 23 March 2015 by The Mayor

Example:

.. code-block:: pascal

*}
{$IFNDEF CODEINSIGHT}
function TPlayer.__handleLoginPopup(tries: integer; inLobby: boolean; out reachedMax: boolean): boolean;
var
p: TPoint;
i: integer;
timeOut: TTimeMarker;
popupMessage: string;
errorMessage: TVariantArray;
messages: array [0..17] of TVariantArray;
begin
timeOut.start();

repeat // Wait until the popup appears, or we hit the lobby/isLoggedIn
case inLobby of
true: if isLoggedIn() then exit(true);
false: if lobby.isOpen() then exit(true);
end;

popupMessage := __getPopupMessage();

if (timeOut.getTime() > 60000) then
begin
print('Took too long to find login popup or login - respawning SMART');
popupMessage := 'Your game session has now ended'; // Trick it to reload
end;

if (timeOut.getTime() > 15000) then // If nothing after 15s, check we actually
case inLobby of // clicked the Login button
true: if lobby.findPlayButton(p) then exit(false);
false: if __setInputBoxes() then exit(false);
end;

wait(random(500, 750));
until (length(popupMessage) > 0);

messages := [
{Popup Text Wait time MaxTries Action}
['Unknown login popup', 0, 2, 'Next_Player_F'],
['Invalid username or password', 0, 2, 'Next_Player_F'],
['Your account has been disabled', 0, 0, 'Next_Player_F'],
['Your ban will be lifted in', 0, 0, 'Next_Player_F'],
['Your account has been involved in', 0, 0, 'Next_Player_F'],
['Too many incorrect logins', 5 * 60000, 2, 'Next_Player_F'],
['Your account has not logged out', 15000, 5, 'Next_Player_T'],
['You need a member''s account', 0, 1, 'Set_Non-Member'],
['Player in member-only area', 0, 0, 'Set_Member'],
['Error connecting', 20000, 4, 'Terminate'],
['Unable to connect', 20000, 4, 'Terminate'],
['Runescape has been updated', 0, 0, 'Reload_Client'],
['Client token changed', 0, 0, 'Reload_Client'],
['Your game session has now ended', 0, 0, 'Reload_Client'],
['Our systems are currently unavailable', 3 * 60000, 8, 'Reload_Client'],
['Login limit exceeded', 20000, 8, 'Set_World'],
['You must have a total skill level of', 0, 0, 'Set_World'],
['Cannot connect to world', 10000, 0, 'Set_World']];

for i := 0 to high(messages) do
if (pos(messages[0], popupMessage) > 0) then
begin
errorMessage := messages;
print('Login message: ' + errorMessage[0], TDebug.SUB);
break();
end;

if length(errorMessage) < 1 then
begin
print('Unknown login popup message: ' + popupMessage, TDebug.WARNING);
takeScreenshot('unknown_login_popup.png');
print('PLEASE report this in the SRL-6 bugs section: https://villavu.com/forum/project.php?projectid=10', TDebug.HINT);
errorMessage := ['Unknown login popup', 0, 3, 'Next_Player_F'];
end;

self.__respondToPopup(errorMessage, tries, reachedMax);
end;
{$ENDIF}

(*
TPlayer.loginToLobby
~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.loginToLobby(): boolean;

Logs the TPlayer into to the lobby. Returns true when the lobby screen is
visible.

.. note::

- by The SRL Developers Team
- Last updated: 23 May 2015 by The Mayor

Example:

.. code-block:: pascal

players[currentPlayer].loginToLobby();

*)
function TPlayer.loginToLobby(): boolean;
var
tries: integer = 1;
reachedMaxTries: boolean;
begin
if (not self.isActive) then
begin
print('TPlayer.loginToLobby(): Player ' + self.nickname + ' is not active…');
exit(false);
end;

if (isLoggedIn() or lobby.isOpen()) then exit(true);

if not __setInputBoxes() then
begin
print('TPlayer.loginToLobby(): Failed to find username and/or password box', TDebug.ERROR);
exit(false);
end;

print('TPlayer.loginToLobby()', TDebug.HEADER);
__areDynamicInterfacesSet := false;

repeat
print('Attempt ' + toStr(tries) + ': ' + capitalize(self.loginName) + ' (' + capitalize(self.displayName) + ')');

print('Entering username…', TDebug.SUB);
__enterLoginInfo(_boxUsername, self.loginName, true, true);
wait(500 + random(200));

print('Entering password…', TDebug.SUB);
__enterLoginInfo(_boxPassword, self.password, false, true);
wait(800 + random(200));

result := self.__handleLoginPopup(inc(tries), false, reachedMaxTries);

if reachedMaxTries then tries := 1; //'reachedMaxTries' is passed down from __respondToPopup()
until result;

if (not disableIPScreenshots) then takeScreenshot('IP_address.png');

print('TPlayer.loginToLobby(): ' + toStr(result), TDebug.FOOTER);
end;

(*
TPlayer.login
~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.login(): boolean;

Completely logs the TPlayer into the game. Returns true when they player is
logged in.

.. note::

- by The SRL Developers Team
- Last updated: 19 March 2015 by The Mayor

Example:

.. code-block:: pascal

players[currentPlayer].login();

*)
function TPlayer.login(): boolean;
var
tries: integer;
p: TPoint;
skipPlay, reachedMaxTries: boolean;
begin
print('TPlayer.login()', TDebug.HEADER);

repeat
if isLoggedIn() then
begin
print('Already logged in');
result := true;
break;
end;

if self.loginToLobby() then
begin
if (self.world <> -1) then
if (self.world = 0) then
lobbyWorlds.selectRandomWorld(self.isMember)
else if lobby.quickSelectWorld(self.world) then
skipPlay := true
else
lobbyWorlds.selectWorld(self.world);

if (not skipPlay) then
begin
lobby.findPlayButton(p);
mouse(p.rand(randomRange(-50, 50), randomRange(-10, 10)), MOUSE_LEFT);
end;

result := self.__handleLoginPopup(inc(tries), true, reachedMaxTries);

if reachedMaxTries then tries := 1;
end;

until result;

if self.worked.paused then
self.worked.start();

if (SRL_Events[EVENT_LOGIN] <> nil) then
SRL_Events[EVENT_LOGIN]();

print('TPlayer.login(): ' + toStr(result), TDebug.FOOTER);
end;

(*
TPlayer.logout
~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.logout(): boolean;

Completely logs the player out of the game.

.. note::

- by Coh3n
- Last updated: 23 July 2013 by Coh3n

Example:

.. code-block:: pascal

players[currentPlayer].logout();

*)
function TPlayer.logout(): boolean;
var
t: LongWord;
p: TPoint;
begin
if (not isLoggedIn()) then
exit(true);

print('TPlayer.logout()', TDebug.HEADER);

if (SRL_Events[EVENT_LOGOUT] <> nil) then
begin
print('Calling SRL logout event');
SRL_Events[EVENT_LOGOUT]();
end;

if options.open() then
begin
options.selectOption(['Logout', 'ogout', 'gout']);

t := (getSystemTime() + (7000));

repeat
print('Waiting for login screen…');
result := (not isLoggedIn());
wait(700 + random(500));
until result or (getSystemTime() > t);

self.worked.pause();
end else
print('Failed to click logout text', TDebug.ERROR);

print('TPlayer.logout(): ' + toStr(result), TDebug.FOOTER);
end;

(*
TPlayer.exitToLobby
~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.exitToLobby(): boolean;

Logs the player out to the lobby.

.. note::

- by Coh3n
- Last updated: 14 March 2015 by The Mayor

Example:

.. code-block:: pascal

players[currentPlayer].exitToLobby();
*)
function TPlayer.exitToLobby(): boolean;
begin
result := lobby._open();
end;

(*
TPlayer.leaveLobby
~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.leaveLobby(): boolean;

Leaves the lobby; goes to the login screen.

.. note::

- by Coh3n
- Last updated: 3 March 2013 by Coh3n

Example:

.. code-block:: pascal

players[currentPlayer].leaveLobby();
*)
function TPlayer.leaveLobby(): boolean;
begin
result := lobby._leave();
end;

(*
TPlayer.switchToWorld
~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPlayer.switchToWorld(newWorld: integer = 0): boolean;

Switches the TPlayer to the new world (newWorld). Returns true if successful. Will
choose a random world by default.

.. note::

- by Coh3n
- Last updated: 22 June 2013 by Coh3n

Example:

.. code-block:: pascal

players[currentPlayer].switchToWorld(115);
*)
function TPlayer.switchToWorld(newWorld: integer = 0): boolean;
begin
result := false;

print('Switching to world ' + toStr(newWorld), TDebug.SUB);

if self.exitToLobby() then
begin
self.world := -1;

if (newWorld = 0) then
result := lobbyWorlds.selectRandomWorld(self.isMember)
else
result := lobbyWorlds.selectWorld(newWorld);

if result then
result := self.login();
end;
end;
it comes from this

You're not really meant to change players.simba I think he's asking for the script you tried to run (the one on the screen when you pressed the green triangle to start the script). If it's players.simba well…don;t do that. You're supposed to write your own… and there's a lot of guides here that help you do that