Mine

on *:TEXT:!stats *:#:{ sockopen $+(stats.,$2) parsers.freehostia.com 80 }
on *:SOCKOPEN:stats.*:{ var %a = sockwrite -nt $sockname | %a GET $+(/parsers/statsoww.php?rsname=,$replace($gettok($sockname,2,46),_,-,-,+)) HTTP/1.1 | %a Host: parsers.freehostia.com $+ $crlf $+ $crlf }
on *:SOCKREAD:stats.*:{ var %a | sockread -f %a | tokenize 32 %a | if ($1 == HTTP/1.1) sockread -f %a | if (- isin $1) sockread -f %a | if ($1 != END) && (($remove($2,$chr(44)) isnum) || ($2 == NOT)) { set %line %line $1 $+ : $iif($3 == RANKED,NA,$v1) } | if ($1 == END) { msg #scripts Stats for: $gettok($sockname,2,46) | msg #scripts %line | unset %line | sockclose $sockname | halt } }