SRL Archive - Other Scripts

SRL Information Collector

XxKanexX

2006-03-28 07:42:45

I made one of these for Kaitnieks, (Back in the day). So, being bored me, wrote one similar for SRL. Just press play, allow scar to connect to SRL and wait for the information to be displayed.

Made By XxKanexX



var s, NewestMemSource, NewestMem, MemID, Threads, Posts: String;
var Members, ActiveMems, MostOnline, When, Current, HowMems, HowGuests: String;
var TotOnline: String;

function JustNum(s: String): String;
var i, e: Integer;
begin
  for i:= 1 to Length(s) do
 begin
    for e:= 0 to 9 do
      if Copy(s, i, 1) = Inttostr(e) then
        Result:= Result + Inttostr(e);
 end;
end;

procedure CollectValues;
begin
  NewestMem:= Between('rel="nofollow">', '</a>', NewestMemSource);
  MemID:= Between('u=', '"', NewestMemSource);

  Threads:= JustNum(Between('Threads: ', 'Po', s));
  Posts:= JustNum(Between('Posts: ', 'Me', s));

  Members:= JustNum(Between('Members: ', '<span', s));
  ActiveMems:= JustNum(Between('Active Members: ', '</span', s));

  MostOnline:= Between('Most users ever online was ', ', ', s);
  When:= Between('Most users ever online was '+MostOnline+', ', '</div>', s);

  Current:= Between('Currently Active Users</a>: ', ' (', s);
  HowMems:= Between('Currently Active Users</a>: '+Current+' (', ' members', s);
  HowGuests:= Between('Currently Active Users</a>: '+Current+' ('+HowMems+' members and ', ' guests)', s);
end;

procedure CorrectTotOnline;
begin
 if StrToInt(HowMems) > 1 then
   TotOnline:= HowMems + ' Members'
 else
   TotOnline:= HowMems + ' Member';
  TotOnline:= TotOnline + ' and ';

 if StrToInt(HowGuests) > 1 then
   TotOnline:= Totonline + HowGuests + ' Guests'
 else
   TotOnline:= Totonline + HowGuests + ' Guest';
end;

procedure DisplayResults;
begin
  Writeln('Welcome Member #' + MemID + ', "' + NewestMem + '"!');
  Writeln(' ');
  Writeln('Threads: ' + Threads + '.');
  Writeln('Posts: ' + Posts + '.');
  Writeln('Members: ' + Members + '.');
  Writeln('Active Members: ' + ActiveMems+'.');
  Writeln(' ');
  Writeln('Most Users Ever Online: ' + MostOnline + ', ' + When);
  Writeln('There are Currently: ' + Current + ' users online. (' + TotOnline + ')');
  Writeln(' ');
end;

begin

  ClearDebug;
  Writeln('--------------------------------------------------------------');
  Writeln('  Gathering Information From: "http://82.92.130.193/forums/"');
  Writeln('--------------------------------------------------------------');
  Writeln(' ');
  
  s:= GetPage('http://82.92.130.193/forums/');
  NewestMemSource:= Between('Welcome to our newest member,', '</div>', s);
  
  CollectValues;
  CorrectTotOnline;
  DisplayResults;
  
  Writeln('--------------------------------------------------------------');
  Writeln('All information recieved from: "http://82.92.130.193/forums/"');
  Writeln('--------------------------------------------------------------');
  
end.

The Un-Named

2006-03-28 11:02:19

Very nice. :)

I liked the one that opend a random page.

Pyro

2006-03-28 14:53:35

Woah thats pretty cool. Bored again? must learn how to do that that is pretty cool btw post dancing debbie its only the best thing in the world:p

Pwnd

2006-03-28 14:59:14

From: Pyro
Woah thats pretty cool. Bored again? must learn how to do that that is pretty cool btw post dancing debbie its only the best thing in the world:p

Rofl, I remember dancing debbie. ;D

XxKanexX

2006-03-29 23:33:17

It works with Saradomin aswell.:)


var s, NewestMemSource, NewestMem, MemID, Threads, Posts: String;
var Members, ActiveMems, MostOnline, When, Current, HowMems, HowGuests: String;
var TotOnline: String;

function JustNum(s: String): String;
var i, e: Integer;
begin
  for i:= 1 to Length(s) do
 begin
    for e:= 0 to 9 do
      if Copy(s, i, 1) = Inttostr(e) then
        Result:= Result + Inttostr(e);
 end;
end;

procedure CollectValues;
begin
  NewestMem:= Between('rel="nofollow">', '</a>', NewestMemSource);
  MemID:= Between('u=', '"', NewestMemSource);

  Threads:= JustNum(Between('Threads: ', 'Po', s));
  Posts:= JustNum(Between('Posts: ', 'Me', s));

  Members:= JustNum(Between('Members: ', '<span', s));
  ActiveMems:= JustNum(Between('Active Members: ', '</span', s));

  MostOnline:= Between('Most users ever online was ', ', ', s);
  When:= Between('Most users ever online was '+MostOnline+', ', '</div>', s);

  Current:= Between('Currently Active Users</a>: ', ' (', s);
  HowMems:= Between('Currently Active Users</a>: '+Current+' (', ' members', s);
  HowGuests:= Between('Currently Active Users</a>: '+Current+' ('+HowMems+' members and ', ' guests)', s);
end;

procedure CorrectTotOnline;
begin
 if StrToInt(HowMems) > 1 then
   TotOnline:= HowMems + ' Members'
 else
   TotOnline:= HowMems + ' Member';
  TotOnline:= TotOnline + ' and ';

 if StrToInt(HowGuests) > 1 then
   TotOnline:= Totonline + HowGuests + ' Guests'
 else
   TotOnline:= Totonline + HowGuests + ' Guest';
end;

procedure DisplayResults;
begin
  Writeln('Welcome Member #' + MemID + ', "' + NewestMem + '"!');
  Writeln(' ');
  Writeln('Threads: ' + Threads + '.');
  Writeln('Posts: ' + Posts + '.');
  Writeln('Members: ' + Members + '.');
  Writeln('Active Members: ' + ActiveMems+'.');
  Writeln(' ');
  Writeln('Most Users Ever Online: ' + MostOnline + ', ' + When);
  Writeln('There are Currently: ' + Current + ' users online. (' + TotOnline + ')');
  Writeln(' ');
end;

begin

  ClearDebug;
  Writeln('--------------------------------------------------------------');
  Writeln('  Gathering Information From: "http://www.saradomin.net/forums/"');
  Writeln('--------------------------------------------------------------');
  Writeln(' ');
  
  s:= GetPage('http://www.saradomin.net/forums/');
  NewestMemSource:= Between('Welcome to our newest member,', '</div>', s);
  
  CollectValues;
  CorrectTotOnline;
  DisplayResults;
  
  Writeln('--------------------------------------------------------------');
  Writeln('All information recieved from: "http://www.saradomin.net/forums/"');
  Writeln('--------------------------------------------------------------');
  
end.
:p

Jagex_Fagex

2006-06-13 03:00:01

oh yer, i found the kaitnieks one just before, and i was gonna ask you to do it for SRL but you left.., oh well, it looks nice :)

QQu

2006-06-13 03:09:06

Here is an error for you Kane =P

--------------------------------------------------------------
  Gathering Information From: "http://www.saradomin.net/forums/"
--------------------------------------------------------------
 
HTTP/1.1 404 Not Found
[Runtime Error] : Exception: '' is not a valid integer value in line 37 in script

XxKanexX

2006-06-13 03:10:28

I just ran it and it worked fine for me. And it's because you're computer didn't connect. :)

QQu

2006-06-13 03:11:58

Works for the one withought Saradomin but doesn't work for the Saradomin site, for me =(

XxKanexX

2006-06-13 03:15:32

Maybe Saradomin's down/gone?

phantombmx

2006-06-13 03:25:52

ask abby.. hes here now, remember? :p

t3h ub3r k1tten

2006-09-17 00:21:19

Script is outdated to old forum.
Took liberty of making a quick edit :P
Simply changed url, not much difference
var s, NewestMemSource, NewestMem, MemID, Threads, Posts: String;
var Members, ActiveMems, MostOnline, When, Current, HowMems, HowGuests: String;
var TotOnline: String;

function JustNum(s: String): String;
var i, e: Integer;
begin
  for i:= 1 to Length(s) do
 begin
    for e:= 0 to 9 do
      if Copy(s, i, 1) = Inttostr(e) then
        Result:= Result + Inttostr(e);
 end;
end;

procedure CollectValues;
begin
  NewestMem:= Between('rel="nofollow">', '</a>', NewestMemSource);
  MemID:= Between('u=', '"', NewestMemSource);

  Threads:= JustNum(Between('Threads: ', 'Po', s));
  Posts:= JustNum(Between('Posts: ', 'Me', s));

  Members:= JustNum(Between('Members: ', '<span', s));
  ActiveMems:= JustNum(Between('Active Members: ', '</span', s));

  MostOnline:= Between('Most users ever online was ', ', ', s);
  When:= Between('Most users ever online was '+MostOnline+', ', '</div>', s);

  Current:= Between('Currently Active Users</a>: ', ' (', s);
  HowMems:= Between('Currently Active Users</a>: '+Current+' (', ' members', s);
  HowGuests:= Between('Currently Active Users</a>: '+Current+' ('+HowMems+' members and ', ' guests)', s);
end;

procedure CorrectTotOnline;
begin
 if StrToInt(HowMems) > 1 then
   TotOnline:= HowMems + ' Members'
 else
   TotOnline:= HowMems + ' Member';
  TotOnline:= TotOnline + ' and ';

 if StrToInt(HowGuests) > 1 then
   TotOnline:= Totonline + HowGuests + ' Guests'
 else
   TotOnline:= Totonline + HowGuests + ' Guest';
end;

procedure DisplayResults;
begin
  Writeln('Welcome Member #' + MemID + ', "' + NewestMem + '"!');
  Writeln(' ');
  Writeln('Threads: ' + Threads + '.');
  Writeln('Posts: ' + Posts + '.');
  Writeln('Members: ' + Members + '.');
  Writeln('Active Members: ' + ActiveMems+'.');
  Writeln(' ');
  Writeln('Most Users Ever Online: ' + MostOnline + ', ' + When);
  Writeln('There are Currently: ' + Current + ' users online. (' + TotOnline + ')');
  Writeln(' ');
end;

begin

  ClearDebug;
  Writeln('--------------------------------------------------------------');
  Writeln('  Gathering Information From: "http://dakotastorm.sslpowered.com/villu-reborn.com/"');
  Writeln('--------------------------------------------------------------');
  Writeln(' ');

  s:= GetPage('http://dakotastorm.sslpowered.com/villu-reborn.com/');
  NewestMemSource:= Between('Welcome to our newest member,', '</div>', s);

  CollectValues;
  CorrectTotOnline;
  DisplayResults;

  Writeln('--------------------------------------------------------------');
  Writeln('All information recieved from: "http://dakotastorm.sslpowered.com/villu-reborn.com/"');
  Writeln('--------------------------------------------------------------');

end.
Report:

--------------------------------------------------------------
  Gathering Information From: "http://dakotastorm.sslpowered.com/villu-reborn.com/"
--------------------------------------------------------------
 
Welcome Member #1830, "ousoonersdude452"!
 
Threads: 2678.
Posts: 29032.
Members: 1524.
Active Members: 697.
 
Most Users Ever Online: 33, 05-16-2006 at 04:56 PM.
There are Currently: 9 users online. (6 Members and 3 Guests)
 
--------------------------------------------------------------
All information recieved from: "http://dakotastorm.sslpowered.com/villu-reborn.com/"
--------------------------------------------------------------

Works great ;)