SRL Archive - Research & Development Lounge

This is just totally random that I made when I was bored..
It tells you how many people are currently on Runescape at the exact moment you run it.

I don't know what it could be used for.. but meh, thought id post it and add a few inches to my dick. :p

program How_Many_People_Playing;

Function UsersPlaying: Integer;
Var
  ThePage: String;
Begin
  ThePage := GetPage('http://www.runescape.com/');
  Result := StrToInt(Trim(Between('currently', 'people', ThePage)));
End;

begin
  ClearDebug;
  WriteLn('There are currently ' + IntToStr(UsersPlaying) + ' people playing Runescape.');
  WriteLn('');
end.

Thanks,
TurboBk. :)