Something

on $*:text:/^[!@.](statz)*/Si:#:{
  sockclose RSStats
  set %output.stats $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen RSStats www.o-ss.net 80
} 
ON *:SOCKOPEN:RSStats:{
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %stats HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:RSStats:{
  if ($sockerr) {
    echo -a %output.error Error in RS Stats Lookup
    sockclose $sockname
    halt
  }
  else {
    var %stats
    sockread %RSStats
    echo -a $regml(1)
    %output.xbotforums %stats
    sockclose $sockname
  }
}
}
ON *:SOCKCLOSE:RSStats:{
unset %stats
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}