Mine

on $*:TEXT:$(/^( $+ $me $+ , [!.@]totalpop|[!.@]totalpop)/Si):#:{
  if ($me isin $1) { tokenize 32 $2- }
  set %totalpop.dest $iif($left($1,1) == @,msg $chan,notice $nick)    
  sockopen TotalPop www.runescape.com 80
}
on *:SOCKOPEN:TotalPop:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:TotalPop:{
  if ($sockerr) {
    echo -a [TotalPop] Error.
    halt
  }
  else {
    var %TotalPop
    sockread %TotalPop
    if (There are currently isin %TotalPop) {
      tokenize 32 %TotalPop
      %TotalPop.dest $+($c1([),$c2(Total Population),$c1(])) $c1(There are currently) $c2($4) $c1(people playing!)     
      sockclose TotalPop    
    }
  }
}
on *:SOCKCLOSE:TotalPop:{
  unset %totalpop*
}