Someone

alias stats {
  set $+(%,statnick) $replace($1-,$chr(32),_)
  sockopen stats slushpuppy.silverinterlocution.org 80
}
on *:sockopen:stats:{
  sockwrite -nt $sockname GET $+(/rsstats.php?stats=,$($+(%,statnick),2)) HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats:{
  if ($sockerr) {
    echo -a Error: $sockerr
    sockclose $sockname
  }
  else {
    var %ee
    sockread %ee
    if (*The combat* iswm %ee) {
      echo -a [STATS] Nick: $($+(%,statnick),2) Combat: $gettok(%ee,7,32) Base: $remove($gettok(%ee,8,32),$chr(40))
      set $+(%,se) hax
    }
    if (* iswm %ee) && (%se) && (*the combat* !iswm %ee) {
      echo -a $gettok(%ee,1-,32)
      unset $+(%,se)
      unset $+(%,statnick)
      sockclose $sockname
    } 
    if (*does not feature* iswm %ee) {
      echo -a [ERROR] Nick: $($+(%,statnick),2) Does not feature for any skill
      unset $+(%,statnick)
      sockclose $sockname
    }
  }
}