Something

on $*:text:/^[!@]/Si:#: { 
  if ($Skills($Remove($1,$left($1,1)))) {
    inc %x
    if (!$2) {
      if ($readini(defname.ini,rsnicks,$nick)) {
        set %nick. $+ %x $readini(defname.ini,rsnicks,$nick)
      }
      else {
        set %nick. $+ %x $nick
      }
    }
    else {
      set %nick. $+ %x $2
    }
    Sockopen stats. $+ %x parsers.o-ss.net 80
  }
}
on *:SOCKOPEN:Stats*: {
  set %nick1 $(%nick $+ $gettok($sockname,2,46))
  Sockwrite -nt $sockname GET /Stats.php?user= $+ %nick1 HTTP/1.0 
  Sockwrite -nt $sockname Host: parsers.o-ss.net
  Sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Stats*: {
  var %sockread
  sockread %sockread
  echo %sockread
}