SRL Archive - Script Requests

Logging in and logging out

spokas

2014-01-05 15:34:29

nvm .

rj

2014-01-05 16:18:40

this makes no sense

you want it to login and then logout?

why do you want it to logout?

spokas

2014-01-05 16:21:21

From: Officer Barbrady
this makes no sense

you want it to login and then logout?

why do you want it to logout?

I only need that man. :S
Just login and logout.

rj

2014-01-05 16:27:20

{$I RSPS/srlRSPS.Simba}

var
  _cl:_rsps_server;

procedure setUp;
begin
  username := '';
  password := '';
end;

Procedure DeleteSpace(amt:integer);
var
  i:integer;
begin
  for i := 0 to amt do
  begin
    KeyDown(8);
    wait(40);
  end;
  KeyUp(8);
end;

Procedure c_loginPlayer();
var
  tpa, tpa2:TPointArray;
begin
  if _cl.loggedIn then
    exit;
  Mouse(396, 345);
  wait(1000);
  try
    findColorsTolerance(tpa, 1644829, 274, 197, 486, 223, 15);
    findColorsTolerance(tpa2, 13534292, 329, 358, 432, 388, 15);
  except
  end;
  if ((length(tpa) > 50) and (length(tpa2) > 50) and (not _cl.loggedIn)) then
  begin
    Mouse(402, 208);
    DeleteSpace(20);
    TypeSend(username);
    wait(200);
    DeleteSpace(15);
    TypeSend(password);
    if waitfunc(@_cl.loggedIn, 400, 9000) then
      wait(2000);
    if (not _cl.loggedIn) then
      wait(4000);
  end;
end;

function notLoggedin:boolean;
begin
  result := not _cl.loggedIn;
end;

procedure logout;
begin
  mouse(755, 11);
  wait(300);
  mouse(640, 408);
  waitFunc(@notLoggedin, 300, 4000);
end;

begin
  _cl.init(720, 'CloudIn');
  setUp();
  repeat
    if not (_cl.loggedin()) then
      c_loginPlayer()
    else
      logout;
  until isKeyDown(113);
end.

Logins in when Logged out.

download srlRSPS from https://github.com/officerBarbrady/srlRSPS and set your simba interpreter to lape

spokas

2014-01-05 16:33:58

From: Officer Barbrady

{$I RSPS/srlRSPS.Simba}

var
  _cl:_rsps_server;

procedure setUp;
begin
  username := '';
  password := '';
end;

Procedure DeleteSpace(amt:integer);
var
  i:integer;
begin
  for i := 0 to amt do
  begin
    KeyDown(8);
    wait(40);
  end;
  KeyUp(8);
end;

Procedure c_loginPlayer();
var
  tpa, tpa2:TPointArray;
begin
  if _cl.loggedIn then
    exit;
  Mouse(396, 345);
  wait(1000);
  try
    findColorsTolerance(tpa, 1644829, 274, 197, 486, 223, 15);
    findColorsTolerance(tpa2, 13534292, 329, 358, 432, 388, 15);
  except
  end;
  if ((length(tpa) > 50) and (length(tpa2) > 50) and (not _cl.loggedIn)) then
  begin
    Mouse(402, 208);
    DeleteSpace(20);
    TypeSend(username);
    wait(200);
    DeleteSpace(15);
    TypeSend(password);
    if waitfunc(@_cl.loggedIn, 400, 9000) then
      wait(2000);
    if (not _cl.loggedIn) then
      wait(4000);
  end;
end;

function notLoggedin:boolean;
begin
  result := not _cl.loggedIn;
end;

procedure logout;
begin
  mouse(755, 11);
  wait(300);
  mouse(640, 408);
  waitFunc(@notLoggedin, 300, 4000);
end;

begin
  _cl.init(720, 'CloudIn');
  setUp();
  repeat
    if not (_cl.loggedin()) then
      c_loginPlayer()
    else
      logout;
  until isKeyDown(113);
end.

Logins in when Logged out.

download srlRSPS from https://github.com/officerBarbrady/srlRSPS and set your simba interpreter to lape

Seems i can't get it working mouse just sits and do nothing.
I selected they server client.

rj

2014-01-05 16:41:31

You said for a 728. Obv if the mouse does nothing then the servers isn't a 728 or you set it up wrong

spokas

2014-01-05 16:43:45

From: Officer Barbrady
You said for a 728. Obv if the mouse does nothing then the servers isn't a 728 or you set it up wrong

Its 728 server, cloudin.Maybe i set it up wrong ? Can you check it via team viewer please? :D

Mouse is slowly moving to password place and type it but doesnt type username.

rj

2014-01-05 17:09:26

From: spokas
Its 728 server, cloudin.Maybe i set it up wrong ? Can you check it via team viewer please? :D

Mouse is slowly moving to password place and type it but doesnt type username.

woopz and put display settings to safemode and screensize to fixed

Run this instead (gtihub version does not have fixed mousespeed)

{$I RSPS/srlRSPS.Simba}

var
  _cl:_rsps_server;

procedure setUp;
begin
  username := '';
  password := '';
end;

Procedure DeleteSpace(amt:integer);
var
  i:integer;
begin
  for i := 0 to amt do
  begin
    KeyDown(8);
    wait(40);
  end;
  KeyUp(8);
end;

Procedure c_loginPlayer();
var
  tpa, tpa2:TPointArray;
begin
  if _cl.loggedIn then
    exit;
  Mouse(396, 345);
  wait(1000);
  try
    findColorsTolerance(tpa, 1644829, 274, 197, 486, 223, 15);
    findColorsTolerance(tpa2, 13534292, 329, 358, 432, 388, 15);
  except
  end;
  if ((length(tpa) > 50) and (length(tpa2) > 50) and (not _cl.loggedIn)) then
  begin
    Mouse(402, 208);
    DeleteSpace(20);
    TypeSend(username);
    wait(200);
    DeleteSpace(15);
    TypeSend(password);
    if waitfunc(@_cl.loggedIn, 400, 9000) then
      wait(2000);
    if (not _cl.loggedIn) then
      wait(4000);
  end;
end;

function notLoggedin:boolean;
begin
  result := not _cl.loggedIn;
end;

procedure logout;
begin
  mouse(755, 11);
  wait(300);
  mouse(640, 408);
  waitFunc(@notLoggedin, 300, 4000);
end;

begin
  _cl.init(720, 'CloudIn');
  setUp();
  mousespeed := 15;
  repeat
    if not (_cl.loggedin()) then
      c_loginPlayer()
    else
      logout;
  until isKeyDown(113);
end.

spokas

2014-01-05 17:17:20

From: Officer Barbrady
woopz and put display settings to safemode and screensize to fixed

Run this instead (gtihub version does not have fixed mousespeed)

{$I RSPS/srlRSPS.Simba}

var
  _cl:_rsps_server;

procedure setUp;
begin
  username := '';
  password := '';
end;

Procedure DeleteSpace(amt:integer);
var
  i:integer;
begin
  for i := 0 to amt do
  begin
    KeyDown(8);
    wait(40);
  end;
  KeyUp(8);
end;

Procedure c_loginPlayer();
var
  tpa, tpa2:TPointArray;
begin
  if _cl.loggedIn then
    exit;
  Mouse(396, 345);
  wait(1000);
  try
    findColorsTolerance(tpa, 1644829, 274, 197, 486, 223, 15);
    findColorsTolerance(tpa2, 13534292, 329, 358, 432, 388, 15);
  except
  end;
  if ((length(tpa) > 50) and (length(tpa2) > 50) and (not _cl.loggedIn)) then
  begin
    Mouse(402, 208);
    DeleteSpace(20);
    TypeSend(username);
    wait(200);
    DeleteSpace(15);
    TypeSend(password);
    if waitfunc(@_cl.loggedIn, 400, 9000) then
      wait(2000);
    if (not _cl.loggedIn) then
      wait(4000);
  end;
end;

function notLoggedin:boolean;
begin
  result := not _cl.loggedIn;
end;

procedure logout;
begin
  mouse(755, 11);
  wait(300);
  mouse(640, 408);
  waitFunc(@notLoggedin, 300, 4000);
end;

begin
  _cl.init(720, 'CloudIn');
  setUp();
  mousespeed := 15;
  repeat
    if not (_cl.loggedin()) then
      c_loginPlayer()
    else
      logout;
  until isKeyDown(113);
end.

Now moves good but types username and password in password place.

spokas

2014-01-05 18:31:34

I can't fix it myself.It doesn't enter username.He puts bouth pass and username into password field

rj

2014-01-05 18:33:37

From: spokas
I can't fix it myself.It doesn't enter username.He puts bouth pass and username into password field

then you filled it in wrong

spokas

2014-01-05 18:37:07

From: Officer Barbrady
then you filled it in wrong

Try it yourself it writes password and username into password field when you logging to game.
And its looks like this

rj

2014-01-05 20:47:44

From: spokas
Try it yourself it writes password and username into password field when you logging to game.
And its looks like this

I'm sorry I can't help you from here.

spokas

2014-01-06 01:49:47

From: Officer Barbrady
I'm sorry I can't help you from here.

It works on another pc.
Can you add some counter how much times he has logged out and logged in ?
Thanks. :)
And maybe there is way i can use this with SMART?