Mine

on *:TEXT:?stats*:#:{
  set %stats.nick $iif(!$2,$nick,$2)
  set %stats.display $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($sock(stats)) {
    sockclose stats
  }
  sockopen stats matt1360.no-ip.com 80
}
on *:SOCKOPEN:stats:{
  sockwrite -nt $sockname GET $+(/PHP/hs2.php?name=,%stats.nick) HTTP/1.1
  sockwrite -nt $sockname Host: matt1360.no-ip.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:stats:{
  if ($sockerr) {
    %stats.display Socket error
    unset %stats.*
  }
  else {
    var %read
    var %i = 0
    while (%i < 1) {
      sockread -f %read
      if (!$sockbr) { break }
      if (*highscores* iswm %read) {
        var %a = 1
        var %read = $remove($replace(%read,<br>,$chr(32)),</b>)
        while (%a < $numtok(%read,58)) {     
          inc %a 1
          var %linefeed = $iif(!%linefeed,04Stats for %stats.nick $+ $chr(58),%linefeed $+ $chr(58)) $iif($calc(%a % 2) == 1,04,12) $gettok(%read,%a,58)
        }
      }
    }
    sockclose stats [ $+ [ %id ] ]
  }
  %stats.display %linefeed
  unset %stats.* [ $+ [ %id ] ]
}
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }