on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsonline|players|rsplayers|online))/Si):#:{
  if ($globoff($chan)) && ($me !isin $1) { halt }
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  hadd -m $+(rsonline.,$nick) disp $iif(@ isin $1,msg $chan,notice $nick) 
  sockopen $+(rsonline.,$nick) runescape.com 80
}
on *:sockopen:rsonline.*:{
  sockwrite -nt $sockname GET /title.ws HTTP/1.1
  sockwrite -nt $sockname Host: runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsonline.*:{
  If ($sockerr) {
    halt
  }
  else {
    sockread %read
    if (*there are currently* iswm %read) { 
      $hget($sockname,disp) $c1(There Are Currently) $c2($bytes($remove($htmlfree(%read),there are currently,people playing!),b)) $c1(People Playing!) 
    }
  }
}